[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 04 Oct 2006 21:02:42 -0000


albertel		Wed Oct  4 17:02:42 2006 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - apparently commited two absolute_url routines at some time
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.788 loncom/lonnet/perl/lonnet.pm:1.789
--- loncom/lonnet/perl/lonnet.pm:1.788	Wed Oct  4 15:48:32 2006
+++ loncom/lonnet/perl/lonnet.pm	Wed Oct  4 17:02:41 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.788 2006/10/04 19:48:32 albertel Exp $
+# $Id: lonnet.pm,v 1.789 2006/10/04 21:02:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1184,15 +1184,6 @@
     return $protocol.$host_name;
 }
 
-sub absolute_url {
-    my ($host_name) = @_;
-    my $protocol = ($ENV{'SERVER_PORT'} == 443?'https://':'http://');
-    if ($host_name eq '') {
-	$host_name = $ENV{'SERVER_NAME'};
-    }
-    return $protocol.$host_name;
-}
-
 sub ssi {
 
     my ($fn,%form)=@_;