version 1.4, 2003/09/17 01:45:14
|
version 1.5, 2003/09/17 23:16:27
|
Line 76 sub texthash {
|
Line 76 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; |