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

Diff for /loncom/interface/loncommon.pm between versions 1.518 and 1.519

version 1.518, 2007/04/04 00:10:01 version 1.519, 2007/04/05 21:36:15
Line 1272  sub domain_select { Line 1272  sub domain_select {
   
 =pod  =pod
   
   =head1 Routines for form select boxes
   
   =over 4
   
   =cut
   
 =item * multiple_select_form($name,$value,$size,$hash,$order)  =item * multiple_select_form($name,$value,$size,$hash,$order)
   
 Returns a string containing a <select> element int multiple mode  Returns a string containing a <select> element int multiple mode
Line 1461  sub home_server_option_list { Line 1467  sub home_server_option_list {
   
 =pod  =pod
   
 =back  
   
 =cut  =cut
   
 ###############################################################  ###############################################################
Line 3218  sub get_domainconf { Line 3222  sub get_domainconf {
             }              }
         }          }
         if (-e '/home/httpd/html/adm/lonDomLogos/'.$udom.'.gif') {          if (-e '/home/httpd/html/adm/lonDomLogos/'.$udom.'.gif') {
             $designhash{$udom.'.login.domlogo'} =               $designhash{$udom.'.login.domlogo'} = "/adm/lonDomLogos/$udom.gif";
                 &lonhttpdurl("/adm/lonDomLogos/$udom.gif");   
         }          }
     }      }
     &Apache::lonnet::do_cache_new('domainconfig',$udom,\%designhash,      &Apache::lonnet::do_cache_new('domainconfig',$udom,\%designhash,
Line 3244  sub domainlogo { Line 3247  sub domainlogo {
     my %designhash = &get_domainconf($domain);          my %designhash = &get_domainconf($domain);    
     # See if there is a logo      # See if there is a logo
     if ($designhash{$domain.'.login.domlogo'} ne '') {      if ($designhash{$domain.'.login.domlogo'} ne '') {
         return '<img src="'.$designhash{$domain.'.login.domlogo'}.          my $imgsrc = $designhash{$domain.'.login.domlogo'};
                '" alt="'.$domain.'" />';          if ($imgsrc =~ /^\/adm/) {
               $imgsrc = &lonhttpdurl($imgsrc);
           } 
           return '<img src="'.$imgsrc.'" alt="'.$domain.'" />';
     } elsif (defined(&Apache::lonnet::domain($domain,'description'))) {      } elsif (defined(&Apache::lonnet::domain($domain,'description'))) {
         return &Apache::lonnet::domain($domain,'description');          return &Apache::lonnet::domain($domain,'description');
     } else {      } else {
Line 4275  span.LC_prior_numerical { Line 4281  span.LC_prior_numerical {
     white-space: pre;      white-space: pre;
 }  }
   
   span.LC_nobreak {
       white-space: nowrap;
   }
   
 END  END
 }  }
   
Removed from v.1.518  
changed lines
  Added in v.1.519

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