loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.2, 2003/09/16 19:23:47	version 1.3, 2003/09/16 22:40:25
Line 32 package Apache::lonlocal;	Line 32 package Apache::lonlocal;

use strict;	use strict;
use Apache::localize;	use Apache::localize;
	use Apache::File;

require Exporter;	require Exporter;

Line 45 use vars qw($lh);	Line 46 use vars qw($lh);
# ===================================================== The "MakeText" function	# ===================================================== The "MakeText" function

sub mt (@) {	sub mt (@) {
return $lh->maketext(@_);	unless ($ENV{'environment.translator'}) {
	return $lh->maketext(@_);
	} else {
	return '<a target="trans" href="/cgi-bin/translator.pl?arg1='.
	&Apache::lonnet::escape($_[0]).'&arg2='.
	&Apache::lonnet::escape($_[1]).'&arg3='.
	&Apache::lonnet::escape($_[2]).'&lang='.
	$ENV{'environment.translator'}.
	'">'.$lh->maketext(@_).'</a>';
	}
}	}

# ========= Get a handle (do not invoke in vain, leave this to access handlers)	# ========= Get a handle (do not invoke in vain, leave this to access handlers)