version 1.31, 2013/06/07 16:07:46
|
version 1.32, 2014/02/11 15:49:15
|
Line 124 sub copy_stage {
|
Line 124 sub copy_stage {
|
|
|
sub confirm { |
sub confirm { |
my ($r, $newpath, $filename, $path_to_new_file) = @_; |
my ($r, $newpath, $filename, $path_to_new_file) = @_; |
$r->print("<b>Press delete to remove file and replace it with a copy of the source you are viewing</b><br /><br / >"); |
$r->print('<b>'.&mt('Press delete to remove file and replace it with a copy of the source you are viewing.').'</b><br /><br />'); |
$r->print('<form name="delete_confirm" action="/adm/source" target="_parent" method="post"> |
$r->print('<form name="delete_confirm" action="/adm/source" target="_parent" method="post"> |
<input type="hidden" name="filename" value="'.$filename.'" /> |
<input type="hidden" name="filename" value="'.$filename.'" /> |
<input type="hidden" name="path" value="'.$path_to_new_file.'" /> |
<input type="hidden" name="path" value="'.$path_to_new_file.'" /> |
Line 143 sub delete_copy_file {
|
Line 143 sub delete_copy_file {
|
.'</span><br />' |
.'</span><br />' |
.&mt('Please use the code view in previous window to use shared code.') |
.&mt('Please use the code view in previous window to use shared code.') |
.'<br /><br />'); |
.'<br /><br />'); |
$r->print('<input type="button" value="Close Window" name="close"' |
$r->print('<input type="button" value="'.&mt('Close Window').'" name="close"' |
.' onclick="window.close()" />' |
.' onclick="window.close()" />' |
.'</p>'); |
.'</p>'); |
} else { |
} else { |
Line 162 sub delete_copy_file {
|
Line 162 sub delete_copy_file {
|
|
|
sub copy_file { |
sub copy_file { |
my ($r, $newpath, $filename, $path_to_new_file) = @_; |
my ($r, $newpath, $filename, $path_to_new_file) = @_; |
$r->print("<b>Creating directories</b>"); |
$r->print('<b>'.&mt('Creating directories').'</b>'); |
|
|
#Figure out if we are author or co-author |
#Figure out if we are author or co-author |
my ($role,$author_name,$domain)=©_author(); |
my ($role,$author_name,$domain)=©_author(); |
Line 188 sub copy_file {
|
Line 188 sub copy_file {
|
} else { } #Just move along |
} else { } #Just move along |
|
|
} |
} |
$r->print("<br /><b>Copying File</b>"); |
$r->print('<br /><b>'.&mt('Copying File').'</b>'); |
my $problem_filename = $Apache::lonnet::perlvar{'lonDocRoot'}.$filename; |
my $problem_filename = $Apache::lonnet::perlvar{'lonDocRoot'}.$filename; |
my $file_output = &includemeta(&Apache::lonnet::getfile($problem_filename),$filename); |
my $file_output = &includemeta(&Apache::lonnet::getfile($problem_filename),$filename); |
my $fs=Apache::File->new(">$path_to_new_file"); |
my $fs=Apache::File->new(">$path_to_new_file"); |
Line 196 sub copy_file {
|
Line 196 sub copy_file {
|
print $fs $file_output; |
print $fs $file_output; |
} |
} |
$r->print("<br /><br />"); |
$r->print("<br /><br />"); |
$r->print('<input type="button" value="Close Window" name="close" onclick="window.close()" />'); |
$r->print('<input type="button" value="'.&mt('Close Window').'" name="close" onclick="window.close()" />'); |
#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..' |
} |
} |
|
|