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

version 1.518, 2007/04/04 00:10:01 version 1.523, 2007/04/16 22:50:44
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 3676  sub standard_css { Line 3690  sub standard_css {
     my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'      my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'
                                               : '0px 3px 0px 4px';                                                : '0px 3px 0px 4px';
   
   
     return <<END;      return <<END;
 h1, h2, h3, th { font-family: $sans }  h1, h2, h3, th { font-family: $sans }
 a:focus { color: red; background: yellow }   a:focus { color: red; background: yellow } 
 table.thinborder,  table.thinborder,
 table.LC_optres_prior {  
   border-collapse: collapse;  
 }  
 table.thinborder tr th {  table.thinborder tr th {
   border-style: solid;    border-style: solid;
   border-width: 1px;    border-width: 1px;
   background: $tabbg;    background: $tabbg;
 }  }
 table.thinborder tr td,   table.thinborder tr td {
 table.LC_optres_prior tr td {  
   border-style: solid;    border-style: solid;
   border-width: 1px    border-width: 1px
 }  }
Line 3829  td.LC_table_cell_checkbox { Line 3841  td.LC_table_cell_checkbox {
   text-align: center;    text-align: center;
 }  }
   
   table#LC_mainmenu td.LC_mainmenu_column {
       vertical-align: top;
   }
   
 .LC_menubuttons_inline_text {  .LC_menubuttons_inline_text {
   color: $font;    color: $font;
   font-family: $sans;    font-family: $sans;
   font-size: smaller;    font-size: smaller;
 }  }
   
   .LC_menubuttons_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 3876  table.LC_nested { Line 3899  table.LC_nested {
   border-spacing: 0px;    border-spacing: 0px;
   width: 100%;    width: 100%;
 }  }
 table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th {  table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th,
   table.LC_prior_tries tr th {
   font-weight: bold;    font-weight: bold;
   background-color: $data_table_head;    background-color: $data_table_head;
   font-size: smaller;    font-size: smaller;
Line 4259  table.LC_prior_tries { Line 4283  table.LC_prior_tries {
     border-color: gray;      border-color: gray;
     border-collapse: collapse;      border-collapse: collapse;
 }  }
 table.LC_prior_tries th,  
 table.LC_prior_tries td {  table.LC_prior_tries td {
     border-width: 1px;      border-width: 1px;
     border-style: solid;      border-style: solid;
Line 4270  table.LC_prior_tries tr.LC_correct { Line 4294  table.LC_prior_tries tr.LC_correct {
     font-weight: bold;      font-weight: bold;
     background: #aaffaa;      background: #aaffaa;
 }  }
   
   .LC_answer_correct {
     background: #AAFFAA;
     color: black;
   }
   .LC_answer_charged_try {
     background: #FFAAAA ! important;
     color: black;
   }
   .LC_answer_not_charged_try, 
   .LC_answer_no_grade,
   .LC_answer_late {
     background: #FFFFAA;
     color: black;
   }
   .LC_answer_previous {
     background: #AAAAFF;
     color: black;
   }
   .LC_answer_no_message {
     background: #FFFFFF;
     color: black;
   }
   .LC_answer_unknown {
     background: orange;
     color: black;
   }
   
   
 span.LC_prior_numerical {  span.LC_prior_numerical {
     font-family: monospace;    font-family: monospace;
     white-space: pre;    white-space: pre;
   }
   
   table.LC_prior_option {
     width: 100%;
     border-collapse: collapse;
   }
   table.LC_prior_option tr td {
     border-style: solid;
     border-width: 1px
   }
   
   span.LC_nobreak {
       white-space: nowrap;
 }  }
   
 END  END
Removed from v.1.518  
changed lines
  Added in v.1.523

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