loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

-version 1.17, 2003/10/02 17:35:57
+version 1.18, 2003/10/04 18:13:36
  Line 280  sub get_language_handle {
  ###    setlocale(LC_ALL,&current_locale);
  }
+ # ========================================================== Localize localtime
+ sub locallocaltime {
+     my $thistime=shift;
+     if ((&current_language=~/^en/) || (!$lh)) {
+ 	return ''.localtime($thistime);
+     } else {
+ 	my $format=$lh->maketext('date_locale');
+ 	if ($format eq 'date_locale') {
+ 	    return ''.localtime($thistime);
+ 	}
+ 	my ($seconds,$minutes,$twentyfour,$day,$mon,$year,$wday,$yday,$isdst)=
+ 	    localtime($thistime);
+ 	my $month=(split(/\,/,$lh->maketext('date_months')))[$mon];
+ 	my $weekday=(split(/\,/,$lh->maketext('date_days')))[$wday];
+ 	if ($seconds<10) {
+ 	    $seconds='0'.$seconds;
+ 	}
+ 	if ($minutes<10) {
+ 	    $minutes='0'.$minutes;
+ 	}
+ 	$year+=1900;
+ 	my $twelve=$twentyfour;
+ 	if ($twelve>12) {
+ 	    $twelve-=12;
+ 	    $twelve.=$lh->maketext('date_pm');
+ 	} else {
+ 	    $twelve.=$lh->maketext('date_am');
+ 	}
+ 	foreach
+ 	('seconds','minutes','twentyfour','twelve','day','year',
+ 	 'month','weekday') {
+ 	    $format=~s/\$$_/eval('$'.$_)/gse;
+ 	}
+ 	return $format;
+     }
+ }
  # ==================== Normalize string (reduce fragility in the lexicon files)
  # This normalizes a string to reduce fragility in the lexicon files of