version 1.116, 2012/10/29 17:38:55
|
version 1.117, 2012/11/30 11:36:14
|
Line 101 my $r; # Needs to be global for some
|
Line 101 my $r; # Needs to be global for some
|
=cut |
=cut |
|
|
sub Debug { |
sub Debug { |
# Put out the indicated message butonly if DEBUG is true. |
# Put out the indicated message but only if DEBUG is true. |
if ($DEBUG) { |
if ($DEBUG) { |
my ($r,$message) = @_; |
my ($r,$message) = @_; |
$r->log_reason($message); |
$r->log_reason($message); |
Line 109 sub Debug {
|
Line 109 sub Debug {
|
} |
} |
|
|
sub done { |
sub done { |
my ($url)=@_; |
my ($url) = @_; |
my $done=&mt("Done"); |
return |
return(<<ENDDONE); |
'<p>' |
<a href="$url">$done</a> |
.&Apache::lonhtmlcommon::confirm_success(&mt("Done")) |
<script type="text/javascript"> |
.'<br /><a href="'.$url.'">'.&mt("Continue").'</a>' |
location.href="$url"; |
.'<script type="text/javascript">' |
</script> |
.'location.href="'.$url.'";' |
ENDDONE |
.'</script>' |
|
.'</p>'; |
} |
} |
|
|
=pod |
=pod |
Line 436 Parameters:
|
Line 437 Parameters:
|
|
|
sub CloseForm1 { |
sub CloseForm1 { |
my ($request, $fn) = @_; |
my ($request, $fn) = @_; |
$request->print('<p><input type="submit" value="'.&mt('Continue').'" /></p></form>'); |
$request->print('<input type="submit" value="'.&mt('Continue').'" /></form>'); |
$request->print('<form action="'.&url($fn). |
$request->print(' <form action="'.&url($fn).'" method="post">'. |
'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></p></form>'); |
'<input type="submit" value="'.&mt('Cancel').'" /></form>'); |
} |
} |
|
|
|
|
Line 837 Side Effects:
|
Line 838 Side Effects:
|
=item 2 new forms are displayed. Clicking on the confirmation button |
=item 2 new forms are displayed. Clicking on the confirmation button |
causes the browser to attempt to load the specfied URL, allowing the |
causes the browser to attempt to load the specfied URL, allowing the |
proper handler to take care of file creation. There is also a Cancel |
proper handler to take care of file creation. There is also a Cancel |
button which returns you to the driectory listing you came from |
button which returns you to the directory listing you came from |
|
|
=back |
=back |
|
|
Line 961 sub phaseone {
|
Line 962 sub phaseone {
|
$dirlist=$fn; |
$dirlist=$fn; |
} |
} |
$r->print('<div class="LC_error">'.$error.'</div>'. |
$r->print('<div class="LC_error">'.$error.'</div>'. |
'<h3><a href="'.&url($dirlist).'">'.&mt('Return to Directory'). |
'<p><a href="'.&url($dirlist).'">'.&mt('Return to Directory'). |
'</a></h3>'); |
'</a></p>'); |
return; |
return; |
} |
} |
$r->print('<form action="/adm/cfile" method="post">'. |
$r->print('<form action="/adm/cfile" method="post">'. |
Line 1098 sub Rename2 {
|
Line 1099 sub Rename2 {
|
} |
} |
} else { |
} else { |
$request->print( |
$request->print( |
'<p>' |
'<p class="LC_error">' |
.&mt('No such file: [_1]', |
.&mt('No such file: [_1]', |
&display($oldfile)) |
&display($oldfile)) |
.'</p></form>' |
.'</p></form>' |
Line 1386 sub phasetwo {
|
Line 1387 sub phasetwo {
|
$dest = $newdir."/"; |
$dest = $newdir."/"; |
} |
} |
if ( ($env{'form.action'} eq 'newdir') && ($env{'form.phase'} eq 'two') && ( ($env{'form.callingmode'} eq 'testbank') || ($env{'form.callingmode'} eq 'imsimport') ) ) { |
if ( ($env{'form.action'} eq 'newdir') && ($env{'form.phase'} eq 'two') && ( ($env{'form.callingmode'} eq 'testbank') || ($env{'form.callingmode'} eq 'imsimport') ) ) { |
$r->print('<h3><a href="javascript:self.close()">'.&mt('Done').'</a></h3>'); |
$r->print( |
|
'<p>' |
|
.&Apache::lonhtmlcommon::confirm_success(&mt('Done')) |
|
.'<br /><a href="javascript:self.close()">'.&mt('Continue').'</a>' |
|
.'</p>' |
|
); |
} else { |
} else { |
if ($env{'form.action'} eq 'rename') { |
if ($env{'form.action'} eq 'rename') { |
$r->print('<h3><a href="'.&url($dest).'">'.&mt('Return to Directory').'</a></h3>'); |
$r->print( |
$r->print('<h3><a href="'.&url($dest_newname).'">'.$disp_newname.'</a></h3>'); |
'<p>'.&Apache::lonhtmlcommon::confirm_success(&mt('Done')).'</p>' |
|
.&Apache::lonhtmlcommon::actionbox( |
|
['<a href="'.&url($dest).'">'.&mt('Return to Directory').'</a>', |
|
'<a href="'.&url($dest_newname).'">'.$disp_newname.'</a>'])); |
} else { |
} else { |
$r->print(&done(&url($dest))); |
$r->print(&done(&url($dest))); |
} |
} |
Line 1496 function writeDone() {
|
Line 1505 function writeDone() {
|
&Apache::loncommon::CSTR_pageheader($trailfile)) |
&Apache::loncommon::CSTR_pageheader($trailfile)) |
); |
); |
|
|
$r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>'); |
$r->print('<p>'.&mt('Location').': '.&display($fn).'</p>'); |
|
|
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
$r->print('<p class="LC_info">' |
$r->print('<p class="LC_info">' |
Line 1507 function writeDone() {
|
Line 1516 function writeDone() {
|
|
|
|
|
&Debug($r, "loncfile::handler Form action is $env{'form.action'} "); |
&Debug($r, "loncfile::handler Form action is $env{'form.action'} "); |
if ($env{'form.action'} eq 'delete') { |
my %action = &Apache::lonlocal::texthash( |
$r->print('<h3>'.&mt('Delete').'</h3>'); |
'delete' => 'Delete', |
} elsif ($env{'form.action'} eq 'rename') { |
'rename' => 'Rename', |
$r->print('<h3>'.&mt('Rename').'</h3>'); |
'move' => 'Move', |
} elsif ($env{'form.action'} eq 'move') { |
'newdir' => 'New Directory', |
$r->print('<h3>'.&mt('Move').'</h3>'); |
'decompress' => 'Decompress', |
} elsif ($env{'form.action'} eq 'newdir') { |
'copy' => 'Copy', |
$r->print('<h3>'.&mt('New Directory').'</h3>'); |
'newfile' => 'New Resource', |
} elsif ($env{'form.action'} eq 'decompress') { |
'newhtmlfile' => 'New Resource', |
$r->print('<h3>'.&mt('Decompress').'</h3>'); |
'newproblemfile' => 'New Resource', |
} elsif ($env{'form.action'} eq 'copy') { |
'newpagefile' => 'New Resource', |
$r->print('<h3>'.&mt('Copy').'</h3>'); |
'newsequencefile' => 'New Resource', |
} elsif ($env{'form.action'} eq 'newfile' || |
'newrightsfile' => 'New Resource', |
$env{'form.action'} eq 'newhtmlfile' || |
'newstyfile' => 'New Resource', |
$env{'form.action'} eq 'newproblemfile' || |
'newtaskfile' => 'New Resource', |
$env{'form.action'} eq 'newpagefile' || |
'newlibraryfile' => 'New Resource', |
$env{'form.action'} eq 'newsequencefile' || |
'Select Action' => 'New Resource', |
$env{'form.action'} eq 'newrightsfile' || |
); |
$env{'form.action'} eq 'newstyfile' || |
if ($action{$env{'form.action'}}) { |
$env{'form.action'} eq 'newtaskfile' || |
$r->print('<h2>'.$action{$env{'form.action'}}.'</h2>'); |
$env{'form.action'} eq 'newlibraryfile' || |
|
$env{'form.action'} eq 'Select Action' ) { |
|
$r->print('<h3>'.&mt('New Resource').'</h3>'); |
|
} else { |
} else { |
$r->print('<p class="LC_error">' |
$r->print('<p class="LC_error">' |
.&mt('Unknown Action').' '.$env{'form.action'} |
.&mt('Unknown Action: [_1]',$env{'form.action'}) |
.'</p>' |
.'</p>' |
.&Apache::loncommon::end_page() |
.&Apache::loncommon::end_page() |
); |
); |
return OK; |
return OK; |
} |
} |
|
|
if ($env{'form.phase'} eq 'two') { |
if ($env{'form.phase'} eq 'two') { |
&Debug($r, "loncfile::handler entering phase2"); |
&Debug($r, "loncfile::handler entering phase2"); |
&phasetwo($r,$fn,$uname,$udom); |
&phasetwo($r,$fn,$uname,$udom); |