loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.52, 2004/03/02 16:48:27	version 1.53, 2004/04/03 00:23:47
Line 426 sub Rename1 {	Line 426 sub Rename1 {
#renaming a dir, delete the trailing /	#renaming a dir, delete the trailing /
#remove second to last element for current dir	#remove second to last element for current dir
if (-d $fn) {	if (-d $fn) {
	$newfilename=~/\.(\w+)$/;
	if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
	$request->print('<br /><font color="red">'.
	&mt('Cannot change MIME type of a directory').
	'</font>'.
	'<br /><a href="'.&url($fn).'">'.&mt('Cancel').'</a>');
	return;
	}
$newfilename=~s/\/[^\/]+\/([^\/]+)$/\/$1/;	$newfilename=~s/\/[^\/]+\/([^\/]+)$/\/$1/;
}	}
$newfilename=~s://+:/:g; # remove duplicate /	$newfilename=~s://+:/:g; # remove duplicate /