--- loncom/publisher/loncfile.pm 2005/08/16 15:52:08 1.71 +++ loncom/publisher/loncfile.pm 2005/08/26 19:44:16 1.72 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.71 2005/08/16 15:52:08 raeburn Exp $ +# $Id: loncfile.pm,v 1.72 2005/08/26 19:44:16 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -321,9 +321,9 @@ sub cleanDest { $foundbad=1; $dest=~s/\.//g; } - if ($dest=~/[\#\?&%\"]/) { + if ($dest=~/[\#\?&%\":]/) { $foundbad=1; - $dest=~s/[\#\?&%\"]//g; + $dest=~s/[\#\?&%\":]//g; } if ($dest=~m|/|) { my ($newpath)=($dest=~m|(.*)/|);