loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.39, 2006/04/20 04:30:23	version 1.41, 2006/08/28 14:26:25
Line 264 sub gettimezone {	Line 264 sub gettimezone {

sub locallocaltime {	sub locallocaltime {
my $thistime=shift;	my $thistime=shift;
	if (!defined($thistime) \|\| $thistime eq '') {
	return &mt('Never');
	}
if ((&current_language=~/^en/) \|\| (!$lh)) {	if ((&current_language=~/^en/) \|\| (!$lh)) {
return ''.localtime($thistime).&gettimezone($thistime);	return ''.localtime($thistime).&gettimezone($thistime);
} else {	} else {
Line 342 sub transstatic {	Line 345 sub transstatic {
$$strptr=~s/MT\{([^\}]*)\}/&mt($1)/gse;	$$strptr=~s/MT\{([^\}]*)\}/&mt($1)/gse;
}	}

	=pod

	=item * mt_escape

	mt_escape takes a string reference and escape the [] in there so mt
	will leave them as is and not try to expand them

	=cut

	sub mt_escape {
	my ($str_ref) = @_;
	$$str_ref =~s/~/~~/g;
	$$str_ref =~s/([\[\]])/~$1/g;
	}

1;	1;

__END__	__END__