--- loncom/localize/lonlocal.pm 2005/06/22 05:04:51 1.34 +++ loncom/localize/lonlocal.pm 2005/11/10 19:19:51 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.34 2005/06/22 05:04:51 albertel Exp $ +# $Id: lonlocal.pm,v 1.35 2005/11/10 19:19:51 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -259,11 +259,14 @@ sub get_language_handle { } # ========================================================== Localize localtime +sub gettimezone { + return ' ('.$Apache::lonnet::env{'server.timezone'}.')'; +} sub locallocaltime { my $thistime=shift; if ((¤t_language=~/^en/) || (!$lh)) { - return ''.localtime($thistime); + return ''.localtime($thistime).&gettimezone(); } else { my $format=$lh->maketext('date_locale'); if ($format eq 'date_locale') { @@ -293,7 +296,7 @@ sub locallocaltime { 'month','weekday','ampm') { $format=~s/\$$_/eval('$'.$_)/gse; } - return $format; + return $format.&gettimezone(); } }