[LON-CAPA-cvs] cvs: loncom / loncapa_apache.conf /interface lonsource.pm

www lon-capa-cvs@mail.lon-capa.org
Thu, 23 Jun 2005 23:07:08 -0000


www		Thu Jun 23 19:07:08 2005 EDT

  Modified files:              
    /loncom	loncapa_apache.conf 
    /loncom/interface	lonsource.pm 
  Log:
  A handler is not a directory, and the link does not need the server name
  
  
Index: loncom/loncapa_apache.conf
diff -u loncom/loncapa_apache.conf:1.112 loncom/loncapa_apache.conf:1.113
--- loncom/loncapa_apache.conf:1.112	Fri Jun  3 15:50:07 2005
+++ loncom/loncapa_apache.conf	Thu Jun 23 19:07:03 2005
@@ -1,7 +1,7 @@
 ##
 ## loncapa_apache.conf -- Apache HTTP LON-CAPA configuration file
 ##
-## $Id: loncapa_apache.conf,v 1.112 2005/06/03 19:50:07 raeburn Exp $
+## $Id: loncapa_apache.conf,v 1.113 2005/06/23 23:07:03 www Exp $
 ##
 
 #
@@ -284,7 +284,7 @@
 ErrorDocument	  500 /adm/errorhandler
 </LocationMatch>
 
-<LocationMatch "^/adm/source/">
+<LocationMatch "^/adm/source">
 PerlAccessHandler       Apache::lonacc
 SetHandler perl-script
 PerlHandler Apache::lonsource
Index: loncom/interface/lonsource.pm
diff -u loncom/interface/lonsource.pm:1.11 loncom/interface/lonsource.pm:1.12
--- loncom/interface/lonsource.pm:1.11	Thu Apr  7 02:56:23 2005
+++ loncom/interface/lonsource.pm	Thu Jun 23 19:07:04 2005
@@ -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 @@
 
 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;
 }