loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.4, 2003/09/17 01:45:14	version 1.6, 2003/09/20 13:21:45
Line 67 sub mt (@) {	Line 67 sub mt (@) {
}	}
}	}

	# ============================================================== What language?

	sub current_language {
	return $lh->language_tag();
	}

# ============================================================== Translate hash	# ============================================================== Translate hash

sub texthash {	sub texthash {
Line 76 sub texthash {	Line 82 sub texthash {
}	}
return %hash;	return %hash;
}	}
	# ======================================================== Re-route translation

	sub clearreroutetrans {
	&reroutetrans();
	$reroute='';
	}

# ======================================================== Re-route translation	# ======================================================== Re-route translation

sub reroutetrans {	sub reroutetrans {
$ENV{'transreroute'}=1;	$ENV{'transreroute'}=1;
$reroute='';
}	}

# ==================================================== End re-route translation	# ==================================================== End re-route translation
sub endreroutetrans {	sub endreroutetrans {
$ENV{'transreroute'}=0;	$ENV{'transreroute'}=0;
Line 97 sub endreroutetrans {	Line 109 sub endreroutetrans {

sub get_language_handle {	sub get_language_handle {
$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);	$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);
	# &Apache::lonnet::logthis($lh->encoding().' - '.$lh->language_tag());
}	}

1;	1;