![[BACK]](/icons/back.gif){kind=icon}
Return to lonsupportreq.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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; |