Return to lonsupportreq.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.79.2.8, 2021/01/04 03:46:06 | version 1.79.2.9, 2022/01/01 19:55:31 |
---|---|
Line 70 sub handler { | Line 70 sub handler { |
} | } |
my $origurl = $env{'form.origurl'}; | my $origurl = $env{'form.origurl'}; |
if ($origurl =~ m{^https?://[^/]+(.*)$}) { | if ($origurl =~ m{^https?://[^/]+(.*)$}) { |
$origurl =~ $1; | $origurl = $1; |
} | } |
$origurl =~ s/(`)//g; | $origurl =~ s/(`)//g; |
$origurl =~ s/\$/\(\$\)/g; | $origurl =~ s/\$/\(\$\)/g; |