![[BACK]](/icons/back.gif){kind=icon}
Return to loncfile.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to loncfile.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.71, 2005/08/16 15:52:08 | version 1.72, 2005/08/26 19:44:16 |
|---|---|
| Line 321 sub cleanDest { | Line 321 sub cleanDest { |
| $foundbad=1; | $foundbad=1; |
| $dest=~s/\.//g; | $dest=~s/\.//g; |
| } | } |
| if ($dest=~/[\#\?&%\"]/) { | if ($dest=~/[\#\?&%\":]/) { |
| $foundbad=1; | $foundbad=1; |
| $dest=~s/[\#\?&%\"]//g; | $dest=~s/[\#\?&%\":]//g; |
| } | } |
| if ($dest=~m|/|) { | if ($dest=~m|/|) { |
| my ($newpath)=($dest=~m|(.*)/|); | my ($newpath)=($dest=~m|(.*)/|); |