version 1.80, 2006/12/20 22:41:08
|
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; |
} |
} |
Line 749 sub NewFile1 {
|
Line 749 sub NewFile1 {
|
return; |
return; |
} |
} |
if ($newfilename !~ /\Q.$extension\E$/) { |
if ($newfilename !~ /\Q.$extension\E$/) { |
if ($newfilename =~ m|^[^\.]*\.([^\.]+)$|) { |
if ($newfilename =~ m|/[^/.]*\.(?:[^/.]+)$|) { |
#already has an extension strip it and add in expected one |
#already has an extension strip it and add in expected one |
$newfilename =~ s|.([^\.]+)$||; |
$newfilename =~ s|(/[^./])\.(?:[^.]+)$|$1|; |
} |
} |
$newfilename.=".$extension"; |
$newfilename.=".$extension"; |
} |
} |
} |
} |
my $result=&exists($user,$domain,$newfilename); |
my $result=&exists($user,$domain,$newfilename); |
if($result) { |
if($result) { |
$request->print('<font color="red">'.$result.'</font></form>'); |
$request->print('<span class="LC_error">'.$result.'</span></form>'); |
} else { |
} else { |
$request->print('<p>'.&mt('Make new file').' '.&display($newfilename).'?</p>'); |
$request->print('<p>'.&mt('Make new file').' '.&display($newfilename).'?</p>'); |
$request->print('</form>'); |
$request->print('</form>'); |