--- loncom/interface/lonsource.pm 2005/07/08 10:39:49 1.15
+++ loncom/interface/lonsource.pm 2009/04/04 21:47:41 1.22
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Souce Code handler
#
-# $Id: lonsource.pm,v 1.15 2005/07/08 10:39:49 www Exp $
+# $Id: lonsource.pm,v 1.22 2009/04/04 21:47:41 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -40,31 +40,30 @@ use Apache::lonmeta;
use Apache::File;
use Apache::lonlocal;
use HTML::Entities;
+use LONCAPA;
sub make_link {
my ($filename, $listname) = @_;
- my $sourcelink = "/adm/source?filename=".$filename."&listname=".$listname;
+ my $sourcelink = "/adm/source?inhibitmenu=yes&filename=".$filename."&listname=".$listname;
return $sourcelink;
}
sub stage_2 {
my ($r, $filename, $author, $listname) = @_;
- $filename = $filename;
- &Apache::loncommon::content_type($r,'text/html');
my ($uname, $udom) = &Apache::loncacc::constructaccess('/~'.$author.'/',$r->dir_config('lonDefDomain'));
- $r->send_http_header;
- my $html=&Apache::lonxml::xmlbegin();
- $r->print($html.'
LON-CAPA Move source to construction space');
- $r->print(&Apache::loncommon::bodytag('Problem source code moving operation'));
- $r->print("Please enter the directory that you would like the source code to go into, a default has also been provided ");
- $r->print("Also note, the path is in reference to the root of your construction space, and new directories will be automatically created.
");
+ $r->print(&Apache::loncommon::start_page('Copy Problem Source Code to Construction Space')
+ .&mt('Please enter the directory that you would like the source code to go into.')
+ .'
'
+ .&mt('Note: the path is in reference to the root of your construction space,'
+ .' and new directories will be automatically created.')
+ .'