version 1.29, 2012/10/29 17:38:56
|
version 1.30, 2013/06/04 23:12:09
|
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 construction space,' |
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 { |