--- loncom/localize/lonlocal.pm 2003/09/17 01:45:14 1.4 +++ loncom/localize/lonlocal.pm 2003/09/17 23:16:27 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.4 2003/09/17 01:45:14 www Exp $ +# $Id: lonlocal.pm,v 1.5 2003/09/17 23:16:27 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,13 +76,19 @@ sub texthash { } return %hash; } +# ======================================================== Re-route translation + +sub clearreroutetrans { + &reroutetrans(); + $reroute=''; +} # ======================================================== Re-route translation sub reroutetrans { $ENV{'transreroute'}=1; - $reroute=''; } + # ==================================================== End re-route translation sub endreroutetrans { $ENV{'transreroute'}=0;