--- loncom/interface/lonsource.pm 2005/04/07 06:56:23 1.11
+++ loncom/interface/lonsource.pm 2005/07/08 10:39:49 1.15
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Souce Code handler
#
-# $Id: lonsource.pm,v 1.11 2005/04/07 06:56:23 albertel Exp $
+# $Id: lonsource.pm,v 1.15 2005/07/08 10:39:49 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -43,8 +43,7 @@ use HTML::Entities;
sub make_link {
my ($filename, $listname) = @_;
- my $sourcelink = "http://".$ENV{'SERVER_NAME'}.
- "/adm/source/?filename=".$filename."&listname=".$listname;
+ my $sourcelink = "/adm/source?filename=".$filename."&listname=".$listname;
return $sourcelink;
}
@@ -60,11 +59,11 @@ sub stage_2 {
$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('