--- loncom/localize/lonlocal.pm 2007/10/18 21:08:31 1.42 +++ loncom/localize/lonlocal.pm 2008/05/31 23:37:49 1.45 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.42 2007/10/18 21:08:31 albertel Exp $ +# $Id: lonlocal.pm,v 1.45 2008/05/31 23:37:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -182,7 +182,15 @@ sub mt (@) { # print LOG (@_[0]."\n"); # close(LOG); if ($lh) { - return $lh->maketext(@_); + if ($_[0] eq '') { + if (wantarray) { + return @_; + } else { + return $_[0]; + } + } else { + return $lh->maketext(@_); + } } else { if (wantarray) { return @_; @@ -259,9 +267,16 @@ sub get_language_handle { # ========================================================== Localize localtime sub gettimezone { - my ($time) = @_; if ($Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'}) { return $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'}; + } elsif ($Apache::lonnet::env{'request.course.id'} ne '') { + my $cdom = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.domain'}; + if ($cdom ne '') { + my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom); + if ($domdefaults{'timezone_def'} ne '') { + return $domdefaults{'timezone_def'}; + } + } } return 'local'; } @@ -289,7 +304,8 @@ sub locallocaltime { my $day = $dt->day_of_month(); my $mon = $dt->month()-1; my $year = $dt->year(); - my $wday = $dt->wday()-1; + my $wday = $dt->wday(); + if ($wday==7) { $wday=0; } my $month =(split(/\,/,$lh->maketext('date_months')))[$mon]; my $weekday=(split(/\,/,$lh->maketext('date_days')))[$wday]; if ($seconds<10) {