![[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.102, 2020/12/18 19:14:25 | version 1.103, 2022/01/01 19:53:45 |
|---|---|
| Line 68 sub handler { | Line 68 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; |