- Timestamp:
- 2002-06-11T14:21:46+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/EMAILPlug.pm
r3136 r3143 274 274 $value = $raw{"Date"}; 275 275 my ($day, $month, $year) = $value =~ /(\d?\d)\s([A-Z][a-z][a-z])\s(\d\d\d?\d?)/; 276 if ($year < 100) { $year += 1900; } 276 # make some assumptions about the year formatting... 277 # some (old) software thinks 2001 is 101, some think 2001 is 01 278 if ($year < 20) { $year += 2000; } # assume not really 1920... 279 elsif ($year < 150) { $year += 1900; } # assume not really 2150... 277 280 $raw{"Date"} = &sorttools::format_date($day, $month, $year); 278 281
Note:
See TracChangeset
for help on using the changeset viewer.