--- loncom/publisher/loncfile.pm 2004/03/02 16:48:27 1.52
+++ loncom/publisher/loncfile.pm 2004/04/03 00:23:47 1.53
@@ -9,7 +9,7 @@
# and displays a page showing the results of the action.
#
#
-# $Id: loncfile.pm,v 1.52 2004/03/02 16:48:27 albertel Exp $
+# $Id: loncfile.pm,v 1.53 2004/04/03 00:23:47 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -426,6 +426,14 @@ sub Rename1 {
#renaming a dir, delete the trailing /
#remove second to last element for current dir
if (-d $fn) {
+ $newfilename=~/\.(\w+)$/;
+ if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
+ $request->print('
'.
+ &mt('Cannot change MIME type of a directory').
+ ''.
+ '
'.&mt('Cancel').'');
+ return;
+ }
$newfilename=~s/\/[^\/]+\/([^\/]+)$/\/$1/;
}
$newfilename=~s://+:/:g; # remove duplicate /