version 1.92, 2009/01/15 18:31:19
|
version 1.94, 2009/03/26 16:50:12
|
Line 361 sub cleanDest {
|
Line 361 sub cleanDest {
|
my ($newpath)=($dest=~m|(.*)/|); |
my ($newpath)=($dest=~m|(.*)/|); |
$newpath=&relativeDest($fn,$newpath,$uname); |
$newpath=&relativeDest($fn,$newpath,$uname); |
if (! -d "$newpath") { |
if (! -d "$newpath") { |
$request->print("<p><span class=\"LC_error\">" |
$request->print('<p><span class="LC_error">' |
.&mt("You have requested to create file in directory [_1] which doesn't exist. The requested directory path has been removed from the requested file name." |
.&mt("You have requested to create file in directory [_1] which doesn't exist. The requested directory path has been removed from the requested file name." |
,'"'.&display($newpath).'"') |
,'"'.&display($newpath).'"') |
."</span></p>"); |
.'</span></p>'); |
$dest=~s|.*/||; |
$dest=~s|.*/||; |
} |
} |
} |
} |
if ($dest =~ /\.(\d+)\.(\w+)$/){ |
if ($dest =~ /\.(\d+)\.(\w+)$/){ |
$request->print('<span class="LC_error">' |
$request->print('<span class="LC_error">' |
.&mt('Bad filename [_1].<br /> <tt>(name).(number).(extension)</tt> not allowed. <br /> Removing the <tt>.number.</tt> from requested filename.',&display($dest)) |
.&mt('Bad filename [_1]','<span class="LC_filename">'.&display($dest).'</span>') |
|
.'<br />' |
|
.&mt('[_1](name).(number).(extension)[_2] not allowed.','<tt>','</tt>') |
|
.'<br />' |
|
.&mt('Removing the [_1].number.[_2] from requested filename.','<tt>','</tt>') |
.'</span>'); |
.'</span>'); |
$dest =~ s/\.(\d+)(\.\w+)$/$2/; |
$dest =~ s/\.(\d+)(\.\w+)$/$2/; |
} |
} |
Line 1360 function writeDone() {
|
Line 1364 function writeDone() {
|
$r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>'); |
$r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>'); |
|
|
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
$r->print('<h3><span class="LC_error">'.&mt('Co-Author').': '.$uname.' at '.$udom. |
$r->print('<p class="LC_warning">' |
'</span></h3>'); |
.&mt('Co-Author [_1]:[_2]',$uname,$udom) |
|
.'</p>' |
|
); |
} |
} |
|
|
|
|