diff --git a/CREDITS b/CREDITS index d4a14df..c45a9d9 100644 --- a/CREDITS +++ b/CREDITS @@ -6,6 +6,7 @@ Users which contributed patches added to versions after 1.0: * CliffordAdams * DavidClaughton * DavidWall +* GunnarH * GyPark * JuanMtnezPineda * MikeCastle diff --git a/Changelog b/Changelog index 0198bb7..8360ea7 100644 --- a/Changelog +++ b/Changelog @@ -6,6 +6,8 @@ Changes for bugfix release 1.0.5: * added patch DoPageLockMinorTweak contributed by JuanMtnezPineda * Allow "0" as page name if FreeLinks are allowed +* fixed bug NumericDatesNeedZeroPadding + fix contributed by GunnarH Changes for bugfix release 1.0.4 (December 1, 2007): diff --git a/wiki.pl b/wiki.pl index f50a074..f921af2 100755 --- a/wiki.pl +++ b/wiki.pl @@ -3047,7 +3047,7 @@ sub CalcDay { $ts += $TimeZoneOffset; my ($sec, $min, $hour, $mday, $mon, $year) = localtime($ts); if ($NumberDates) { - return ($year + 1900) . '-' . ($mon+1) . '-' . $mday; + return sprintf("%d-%02d-%02d", $year+1900, $mon+1, $mday); } return ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", @@ -3064,15 +3064,15 @@ sub CalcTime { if (($TimeZoneOffset == 0) && ($ScriptTZ ne "")) { $mytz = " " . $ScriptTZ; } - $ampm = ""; - if ($UseAmPm) { + unless ($UseAmPm) { + return sprintf("%02d:%02d$mytz", $hour, $min); + } $ampm = " am"; if ($hour > 11) { $ampm = " pm"; $hour = $hour - 12; } $hour = 12 if ($hour == 0); - } $min = "0" . $min if ($min<10); return $hour . ":" . $min . $ampm . $mytz; }