--- loncom/interface/loncommon.pm	2006/09/13 21:43:25	1.455
+++ loncom/interface/loncommon.pm	2006/09/19 19:03:22	1.456
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.455 2006/09/13 21:43:25 albertel Exp $
+# $Id: loncommon.pm,v 1.456 2006/09/19 19:03:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5951,15 +5951,6 @@ sub lonhttpdurl {
     return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;
 }
 
-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 connection_aborted {
     my ($r)=@_;
     $r->print(" ");$r->rflush();