[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.574 and 1.575

version 1.574, 2007/08/30 20:24:15 version 1.575, 2007/08/30 22:56:14
Line 3505  sub bodytag { Line 3505  sub bodytag {
     if (!$realm) { $realm=' '; }      if (!$realm) { $realm=' '; }
 # Set messages  # Set messages
     my $messages=&domainlogo($domain);      my $messages=&domainlogo($domain);
 # Port for miniserver  
     my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};  
     if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }  
   
     my $extra_body_attr = &make_attr_string($forcereg,\%design);      my $extra_body_attr = &make_attr_string($forcereg,\%design);
   
Line 3625  ENDROLE Line 3622  ENDROLE
   
     my $imgsrc = $img;      my $imgsrc = $img;
     if ($img =~ /^\/adm/) {      if ($img =~ /^\/adm/) {
         $imgsrc = 'http://'.$ENV{'HTTP_HOST'}.':'.$lonhttpdPort.$img;          $imgsrc = &lonhttpdurl($img);
     }      }
     my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';      my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';
   
Line 7371  sub icon { Line 7368  sub icon {
     return &lonhttpdurl($iconname);      return &lonhttpdurl($iconname);
 }   } 
   
 sub lonhttpdurl {  sub lonhttpd_port {
     my ($url)=@_;  
     my $lonhttpd_port=$Apache::lonnet::perlvar{'lonhttpdPort'};      my $lonhttpd_port=$Apache::lonnet::perlvar{'lonhttpdPort'};
     if (!defined($lonhttpd_port)) { $lonhttpd_port='8080'; }      if (!defined($lonhttpd_port)) { $lonhttpd_port='8080'; }
   
     # IE doesn't like a secure page getting images from a non-secure      # IE doesn't like a secure page getting images from a non-secure
     # port (when logging we haven't parsed the browser type so default      # port (when logging we haven't parsed the browser type so default
     # back to secure      # back to secure
     if ((!exists($env{'browser.type'}) || $env{'browser.type'} eq 'explorer')      if ((!exists($env{'browser.type'}) || $env{'browser.type'} eq 'explorer')
  && $ENV{'SERVER_PORT'} == 443) {   && $ENV{'SERVER_PORT'} == 443) {
    return 443;
       }
       return $lonhttpd_port;
   
   }
   
   sub lonhttpdurl {
       my ($url)=@_;
   
       my $lonhttpd_port = &lonhttpd_port();
       if ($lonhttpd_port == 443) {
  return 'https://'.$ENV{'SERVER_NAME'}.$url;   return 'https://'.$ENV{'SERVER_NAME'}.$url;
     }      }
     return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;      return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;
Removed from v.1.574  
changed lines
  Added in v.1.575

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>