loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 {