[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.521

version 1.518, 2007/04/04 00:10:01 version 1.521, 2007/04/11 02:42:00
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|res)/) {
               $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 3284  sub designparm { Line 3290  sub designparm {
     }      }
     $domain=&determinedomain($domain);      $domain=&determinedomain($domain);
     my %domdesign = &get_domainconf($domain);      my %domdesign = &get_domainconf($domain);
       my $output;
     if ($domdesign{$domain.'.'.$which} ne '') {      if ($domdesign{$domain.'.'.$which} ne '') {
  return $domdesign{$domain.'.'.$which};   $output = $domdesign{$domain.'.'.$which};
     } else {      } else {
         return $defaultdesign{$which};          $output = $defaultdesign{$which};
       }
       if (($which =~ /^(student|coordinator|author|admin)\.img$/) ||
           ($which =~ /login\.(img|logo|domlogo)/)) {
           if ($output =~ /^\/(adm|res)\//) {
               $output = &lonhttpdurl($output);
           }
     }      }
       return $output;
 }  }
   
 ###############################################  ###############################################
Line 3835  td.LC_table_cell_checkbox { Line 3849  td.LC_table_cell_checkbox {
   font-size: smaller;    font-size: smaller;
 }  }
   
   .LC_menu_category {
     color: $font;
     font-family: $sans;
     font-size: larger;
     font-weight: bold;
   }
   
 td.LC_menubuttons_text {  td.LC_menubuttons_text {
   color: $font;    color: $font;
   font-family: $sans;    font-family: $sans;
Line 4275  span.LC_prior_numerical { Line 4296  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.521

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