--- loncom/interface/londocs.pm 2014/08/25 00:55:27 1.583 +++ loncom/interface/londocs.pm 2014/10/14 21:01:23 1.585 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.583 2014/08/25 00:55:27 raeburn Exp $ +# $Id: londocs.pm,v 1.585 2014/10/14 21:01:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3358,6 +3358,7 @@ sub entryline { $renametitle=~s/\\/\\\\/g; $renametitle=~s/\"\;/\\\"/g; + $renametitle=~s/"/%22/g; $renametitle=~s/ /%20/g; $oldtitle = $renametitle; $renametitle=~s/\'/\\\'/g; @@ -5467,7 +5468,6 @@ sub decompression_info { unshift(@hiddens,$pathitem); foreach my $item (@hiddens) { if ($env{'form.'.$item}) { - my $value = $env{'form.'.$item}; $hiddenelem .= ''."\n"; } @@ -5536,7 +5536,7 @@ sub remove_archive { $archiveidx = $position-1; } $env{'form.cmd'} = 'remove_'.$archiveidx; - my ($title,$url,@rrest) = + my ($title,$url,@rrest) = split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]); if ($url eq $env{'form.archiveurl'}) { if (&handle_edit_cmd($docuname,$docudom)) {