--- loncom/publisher/loncfile.pm 2006/05/30 12:47:41 1.77 +++ loncom/publisher/loncfile.pm 2006/11/22 22:10:58 1.78 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.77 2006/05/30 12:47:41 www Exp $ +# $Id: loncfile.pm,v 1.78 2006/11/22 22:10:58 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1138,7 +1138,7 @@ sub phasetwo { &Debug($r, "loncfile - Entering phase 2 for $fn"); - # Break down the file into it's component pieces. + # Break down the file into its component pieces. my $dir; # Directory path my $main; # Filename. @@ -1179,7 +1179,7 @@ sub phasetwo { if(!&Rename2($r, $uname, $dir, $fn, $env{'form.newfilename'})) { return; } - $dest = $env{'form.newfilename'}; + $dest = $dir."/"; } } elsif ($env{'form.action'} eq 'delete') { if(!&Delete2($r, $uname, $env{'form.newfilename'})) {