version 1.33, 2015/05/23 18:10:02
|
version 1.34, 2015/05/23 21:02:39
|
Line 122 sub copy_stage {
|
Line 122 sub copy_stage {
|
} |
} |
|
|
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
|
return; |
} |
} |
|
|
sub confirm { |
sub confirm { |
Line 135 sub confirm {
|
Line 136 sub confirm {
|
|
|
<input type="submit" value="Delete" /> |
<input type="submit" value="Delete" /> |
</form>'); |
</form>'); |
|
return; |
} |
} |
|
|
sub delete_copy_file { |
sub delete_copy_file { |
Line 148 sub delete_copy_file {
|
Line 150 sub delete_copy_file {
|
$r->print('<form name="delete_done" action="/adm/source" target="_parent" method="post">' |
$r->print('<form name="delete_done" action="/adm/source" target="_parent" method="post">' |
.'<input type="button" value="'.&mt('Close Window').'" name="close"' |
.'<input type="button" value="'.&mt('Close Window').'" name="close"' |
.' onclick="window.close()" />' |
.' onclick="window.close()" />' |
.'</p>'); |
.'</form></p>'); |
} else { |
} else { |
$r->print(&Apache::loncommon::start_page('Copying Source',undef,{'only_body' => 1})); |
$r->print(&Apache::loncommon::start_page('Copying Source',undef,{'only_body' => 1})); |
if(-e $path_to_new_file) { |
if(-e $path_to_new_file) { |
Line 163 sub delete_copy_file {
|
Line 165 sub delete_copy_file {
|
©_file($r, $newpath, $filename, $path_to_new_file); |
©_file($r, $newpath, $filename, $path_to_new_file); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
return; |
} |
} |
|
|
sub copy_file { |
sub copy_file { |
Line 206 sub copy_file {
|
Line 209 sub copy_file {
|
.&mt('Close Window').'" name="close" onclick="window.close()" />' |
.&mt('Close Window').'" name="close" onclick="window.close()" />' |
.'</form>'); |
.'</form>'); |
#Some 1.3'ish feature is to include the derivative feature, will go here..' |
#Some 1.3'ish feature is to include the derivative feature, will go here..' |
|
return; |
} |
} |
|
|
sub print_item { |
sub print_item { |