From: Mike G. v. a. <we...@ma...> - 2010-01-11 18:53:30
|
Log Message: ----------- warning messages if timezone hasn't been defined correctly Modified Files: -------------- webwork2/lib/WeBWorK: Utils.pm Revision Data ------------- Index: Utils.pm =================================================================== RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/Utils.pm,v retrieving revision 1.83 retrieving revision 1.84 diff -Llib/WeBWorK/Utils.pm -Llib/WeBWorK/Utils.pm -u -r1.83 -r1.84 --- lib/WeBWorK/Utils.pm +++ lib/WeBWorK/Utils.pm @@ -477,6 +477,7 @@ sub parseDateTime($;$) { my ($string, $display_tz) = @_; + warn "time zone not defined".caller() unless defined($display_tz); $display_tz ||= "local"; #warn "parseDateTime('$string', '$display_tz')\n"; @@ -590,8 +591,8 @@ sub formatDateTime($;$) { my ($dateTime, $display_tz) = @_; + warn "not defined formatDateTime('$dateTime', '$display_tz') ",join(" ",caller(2)) unless $display_tz and $dateTime; $display_tz ||= "local"; - #warn "formatDateTime('$dateTime', '$display_tz')\n"; my $dt = DateTime->from_epoch(epoch => $dateTime, time_zone => $display_tz); #warn "\t\$dt = ", $dt->strftime(DATE_FORMAT), "\n"; |