Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 28:61fb1a6de2c5
Fixing timestamp entry sometimes left
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 17:36:03 +0000 |
parents | 789877ff0e1a |
children | 420807d41e04 |
comparison
equal
deleted
inserted
replaced
27:789877ff0e1a | 28:61fb1a6de2c5 |
---|---|
53 close CACHE; | 53 close CACHE; |
54 | 54 |
55 if (time > ($marks->{timestamp} + $marks_cache_expiry)) | 55 if (time > ($marks->{timestamp} + $marks_cache_expiry)) |
56 { | 56 { |
57 $marks = undef; | 57 $marks = undef; |
58 } | |
59 else | |
60 { | |
61 delete $marks->{timestamp}; | |
62 } | 58 } |
63 } | 59 } |
64 | 60 |
65 unless ($marks) | 61 unless ($marks) |
66 { | 62 { |
93 $marks->{$_} = 1 foreach ('Tritanium', 'Pyerite', 'Mexallon', | 89 $marks->{$_} = 1 foreach ('Tritanium', 'Pyerite', 'Mexallon', |
94 'Isogen', 'Nocxium', 'Zydrine', | 90 'Isogen', 'Nocxium', 'Zydrine', |
95 'Megacyte', 'Morphite'); | 91 'Megacyte', 'Morphite'); |
96 } | 92 } |
97 } | 93 } |
94 | |
95 delete $marks->{timestamp} if exists $marks->{timestamp}; | |
98 | 96 |
99 # What evenutally will be printed. | 97 # What evenutally will be printed. |
100 print<<END; | 98 print<<END; |
101 <html> | 99 <html> |
102 <body> | 100 <body> |