version 1.29, 2012/10/29 17:38:56
|
version 1.32, 2014/02/11 15:49:15
|
Line 52 sub make_link {
|
Line 52 sub make_link {
|
sub stage_2 { |
sub stage_2 { |
my ($r, $filename, $listname) = @_; |
my ($r, $filename, $listname) = @_; |
my ($author)=($filename=~/\/res\/[^\/]+\/([^\/]+)\//); |
my ($author)=($filename=~/\/res\/[^\/]+\/([^\/]+)\//); |
$r->print(&Apache::loncommon::start_page('Copy Problem Source Code to Construction Space') |
$r->print(&Apache::loncommon::start_page('Copy Problem Source Code to Authoring Space') |
.&mt('Please enter the directory that you would like the source code to go into.') |
.&mt('Please enter the directory that you would like the source code to go into.') |
.'<p>' |
.'<p>' |
.&mt('Note: the path is in reference to the root of your construction space,' |
.&mt('Note: the path is in reference to the root of your Authoring Space,' |
.' and new directories will be automatically created.') |
.' and new directories will be automatically created.') |
.'</p>'); |
.'</p>'); |
$r->print('<form name="copy" action="/adm/source" target="_parent" method="post"> |
$r->print('<form name="copy" action="/adm/source" target="_parent" method="post"> |
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..' |
} |
} |
|
|
Line 236 sub print_item {
|
Line 236 sub print_item {
|
<input type="hidden" name="filename" value="'.$filename.'" /> |
<input type="hidden" name="filename" value="'.$filename.'" /> |
<input type="hidden" name="listname" value="'.$listname.'" /> |
<input type="hidden" name="listname" value="'.$listname.'" /> |
<input type="hidden" name="action" value="stage2" /> |
<input type="hidden" name="action" value="stage2" /> |
<input type="submit" value="'.&mt('Copy to Construction Space').'" /> |
<input type="submit" value="'.&mt('Copy to Authoring Space').'" /> |
</form><hr /> |
</form><hr /> |
'); |
'); |
} else { |
} else { |