[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[albertel]

albertel		Thu Aug 30 18:35:43 2007 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - switch to use the lonhttpurl mechanism
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.224 loncom/interface/lonmenu.pm:1.225
--- loncom/interface/lonmenu.pm:1.224	Wed Aug 29 20:13:19 2007
+++ loncom/interface/lonmenu.pm	Thu Aug 30 18:35:41 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.224 2007/08/30 00:13:19 albertel Exp $
+# $Id: lonmenu.pm,v 1.225 2007/08/30 22:35:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -890,9 +890,9 @@
        my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
        if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
        my $pic=
-	   '<img alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.
-	   ':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.
-	   ($nobreak==3?'right':'left').'" />';
+	   '<img alt="'.$text.'" src="'.
+	   &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
+	   '" align="'.($nobreak==3?'right':'left').'" />';
        if ($env{'browser.interface'} eq 'faketextual') {
 # Accessibility
 	   if ($nobreak==3) {