loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.42, 2007/10/18 21:08:31	version 1.44, 2008/05/16 16:11:56
Line 182 sub mt (@) {	Line 182 sub mt (@) {
# print LOG (@_[0]."\n");	# print LOG (@_[0]."\n");
# close(LOG);	# close(LOG);
if ($lh) {	if ($lh) {
return $lh->maketext(@_);	if ($_[0] eq '') {
	if (wantarray) {
	return @_;
	} else {
	return $_[0];
	}
	} else {
	return $lh->maketext(@_);
	}
} else {	} else {
if (wantarray) {	if (wantarray) {
return @_;	return @_;
Line 289 sub locallocaltime {	Line 297 sub locallocaltime {
my $day = $dt->day_of_month();	my $day = $dt->day_of_month();
my $mon = $dt->month()-1;	my $mon = $dt->month()-1;
my $year = $dt->year();	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 $month =(split(/\,/,$lh->maketext('date_months')))[$mon];
my $weekday=(split(/\,/,$lh->maketext('date_days')))[$wday];	my $weekday=(split(/\,/,$lh->maketext('date_days')))[$wday];
if ($seconds<10) {	if ($seconds<10) {