version 1.93, 2009/01/29 11:50:32
|
version 1.95, 2009/04/04 21:45:57
|
Line 588 sub Delete1 {
|
Line 588 sub Delete1 {
|
|
|
if( -e $fn) { |
if( -e $fn) { |
$request->print('<input type="hidden" name="newfilename" value="'. |
$request->print('<input type="hidden" name="newfilename" value="'. |
$fn.'"/>'); |
$fn.'" />'); |
if (-d $fn) { |
if (-d $fn) { |
unless (&empty_directory($fn,'Delete1')) { |
unless (&empty_directory($fn,'Delete1')) { |
$request->print('<h3>'.&mt('Only empty directories may be deleted.').'</h3>'. |
$request->print('<h3>'.&mt('Only empty directories may be deleted.').'</h3>'. |
Line 718 sub NewDir1 {
|
Line 718 sub NewDir1 {
|
$request->print('</form>'); |
$request->print('</form>'); |
} else { |
} else { |
if ($mode eq 'testbank') { |
if ($mode eq 'testbank') { |
$request->print('<input type="hidden" name="callingmode" value="testbank">'); |
$request->print('<input type="hidden" name="callingmode" value="testbank" />'); |
} elsif ($mode eq 'imsimport') { |
} elsif ($mode eq 'imsimport') { |
$request->print('<input type="hidden" name="callingmode" value="imsimport">'); |
$request->print('<input type="hidden" name="callingmode" value="imsimport" />'); |
} |
} |
$request->print('<input type="hidden" name="newfilename" value="'. |
$request->print('<input type="hidden" name="newfilename" value="'. |
$newfilename.'" /><p>'.&mt('Make new directory').' '. |
$newfilename.'" /><p>'.&mt('Make new directory').' '. |
Line 733 sub NewDir1 {
|
Line 733 sub NewDir1 {
|
sub Decompress1 { |
sub Decompress1 { |
my ($request, $user, $domain, $fn) = @_; |
my ($request, $user, $domain, $fn) = @_; |
if( -e $fn) { |
if( -e $fn) { |
$request->print('<input type="hidden" name="newfilename" value="'.$fn.'"/>'); |
$request->print('<input type="hidden" name="newfilename" value="'.$fn.'" />'); |
$request->print('<p>'.&mt('Decompress').' '.&display($fn).'?</p>'); |
$request->print('<p>'.&mt('Decompress').' '.&display($fn).'?</p>'); |
&CloseForm1($request, $fn); |
&CloseForm1($request, $fn); |
} else { |
} else { |
Line 1364 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>' |
|
); |
} |
} |
|
|
|
|