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>