loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.81, 2007/03/30 20:37:31	version 1.82, 2007/04/20 20:55:01
Line 300 sub checksuffix {	Line 300 sub checksuffix {
my $newsuffix;	my $newsuffix;
if ($new=~m:(./)([^/]+)\.(\w+)$:) { $newsuffix=$3; }	if ($new=~m:(./)([^/]+)\.(\w+)$:) { $newsuffix=$3; }
if ($old=~m:(.*)/+([^/]+)\.(\w+)$:) { $oldsuffix=$3; }	if ($old=~m:(.*)/+([^/]+)\.(\w+)$:) { $oldsuffix=$3; }
if ($oldsuffix ne $newsuffix) {	if (lc($oldsuffix) ne lc($newsuffix)) {
$result.=	$result.=
'<p><font color="red">'.&mt('Warning: change of MIME type!').'</font></p>';	'<p><span class="LC_warning">'.&mt('Warning: change of MIME type!').'</span></p>';
}	}
return $result;	return $result;
}	}
Line 463 sub Rename1 {	Line 463 sub Rename1 {
if (-d $fn) {	if (-d $fn) {
$newfilename=~/\.(\w+)$/;	$newfilename=~/\.(\w+)$/;
if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {	if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
$request->print('<br /><font color="red">'.	$request->print('<br /><span classr="LC_warning">'.
&mt('Cannot change MIME type of a directory').	&mt('Cannot change MIME type of a directory').
'</font>'.	'</span>'.
'<br /><a href="'.&url($fn).'">'.&mt('Cancel').'</a>');	'<br /><a href="'.&url($fn).'">'.&mt('Cancel').'</a>');
return;	return;
}	}