--- loncom/interface/lonsource.pm	2005/04/07 06:56:23	1.11
+++ loncom/interface/lonsource.pm	2005/06/23 23:07:04	1.12
@@ -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.12 2005/06/23 23:07:04 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;
 }