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

Diff for /loncom/interface/loncommon.pm between versions 1.348 and 1.351

version 1.348, 2006/04/22 16:26:31 version 1.351, 2006/04/22 20:58:32
Line 76  my %language; Line 76  my %language;
 my %supported_language;  my %supported_language;
 my %cprtag;  my %cprtag;
 my %scprtag;  my %scprtag;
 my %fe; my %fd;  my %fe; my %fd; my %fm;
 my %category_extensions;  my %category_extensions;
   
 # ---------------------------------------------- Designs  # ---------------------------------------------- Designs
Line 133  BEGIN { Line 133  BEGIN {
             close($fh);              close($fh);
         }          }
     }      }
 # ------------------------------------------------------------------ source copyrights  # ----------------------------------------------------------- source copyrights
     {      {
         my $sourcecopyrightfile = $Apache::lonnet::perlvar{'lonIncludes'}.          my $sourcecopyrightfile = $Apache::lonnet::perlvar{'lonIncludes'}.
                                   '/source_copyright.tab';                                    '/source_copyright.tab';
Line 196  BEGIN { Line 196  BEGIN {
             while (<$fh>) {              while (<$fh>) {
                 next if (/^\#/);                  next if (/^\#/);
                 chomp;                  chomp;
                 my ($ending,$emb,$descr)=split(/\s+/,$_,3);                  my ($ending,$emb,$mime,$descr)=split(/\s+/,$_,4);
                 if ($descr ne '') {                  if ($descr ne '') {
                     $fe{$ending}=lc($emb);                      $fe{$ending}=lc($emb);
                     $fd{$ending}=$descr;                      $fd{$ending}=$descr;
                       if ($mime ne 'unk') { $fm{$ending}=$mime; }
                 }                  }
             }              }
             close($fh);              close($fh);
Line 2198  sub fileembstyle { Line 2199  sub fileembstyle {
     return $fe{lc(shift(@_))};      return $fe{lc(shift(@_))};
 }  }
   
   sub filemimetype {
       return $fm{lc(shift(@_))};
   }
   
   
 sub filecategoryselect {  sub filecategoryselect {
     my ($name,$value)=@_;      my ($name,$value)=@_;
Line 3056  sub standard_css { Line 3061  sub standard_css {
     my $vlink  = &designparm($function.'.vlink',$domain);      my $vlink  = &designparm($function.'.vlink',$domain);
     my $link   = &designparm($function.'.link',$domain);      my $link   = &designparm($function.'.link',$domain);
     my $sans   = 'Arial,Helvetica,sans-serif';      my $sans   = 'Arial,Helvetica,sans-serif';
     my $data_table_head = '#CCCCFF';      my $data_table_head = $tabbg;
     my $data_table_light = '#EEEEEE';      my $data_table_light = '#EEEEEE';
     my $data_table_dark = '#DDD';      my $data_table_dark = '#DDD';
       my $data_table_highlight = '#FFFF00';
       my $mail_new = '#FFBB77';
       my $mail_new_hover = '#DD9955';
       my $mail_read = '#BBBB77';
       my $mail_read_hover = '#999944';
       my $mail_replied = '#AAAA88';
       my $mail_replied_hover = '#888855';
       my $mail_other = '#99BBBB';
       my $mail_other_hover = '#669999';
   
     return <<END;      return <<END;
 <style type="text/css">  <style type="text/css">
 h1, h2, h3, th { font-family: $sans }  h1, h2, h3, th { font-family: $sans }
Line 3068  table.thinborder tr th, table.thinborder Line 3083  table.thinborder tr th, table.thinborder
 form, .inline { display: inline; }  form, .inline { display: inline; }
 .center { text-align: center; }  .center { text-align: center; }
 .filename {font-family: monospace;}  .filename {font-family: monospace;}
   .LC_error {
     color: red;
     font-size: larger;
   }
   .LC_success {
     color: green;
   }
   
 table#LC_top_nav, table#LC_menubuttons, table#LC_nav_location {  table#LC_top_nav, table#LC_menubuttons, table#LC_nav_location {
   width: 100%;    width: 100%;
Line 3118  td.LC_menubuttons_img { Line 3140  td.LC_menubuttons_img {
   font-weight: bold;    font-weight: bold;
 }  }
   
 table.LC_data_table {  table.LC_data_table, table.LC_mail_list {
   border: 1px solid #000000;    border: 1px solid #000000;
   border-collapse: seperate;    border-collapse: seperate;
 }  }
 table.LC_data_table tr th {  table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th {
     background-color: $data_table_head;    font-weight: bold;
     background-color: $data_table_head;
 }  }
 table.LC_data_table tr td {  table.LC_data_table tr td {
     background-color: $data_table_light;    background-color: $data_table_light;
 }  }
 table.LC_data_table tr.LC_even_row td {  table.LC_data_table tr.LC_even_row td {
     background-color: $data_table_dark;    background-color: $data_table_dark;
 }  }
 table.LC_data_table tr.LC_empty td {  table.LC_data_table tr.LC_empty td {
   background-color: #FFFFFF;    background-color: #FFFFFF;
 }  }
   
   table.LC_calendar {
     border: 1px solid #000000;
     border-collapse: collapse;
   }
   table.LC_calendar_pickdate {
     font-size: xx-small;
   }
   table.LC_calendar tr td {
     border: 1px solid #000000;
     vertical-align: top;
   }
   table.LC_calendar tr td.LC_calendar_day_empty {
     background-color: $data_table_dark;
   }
   table.LC_calendar tr td.LC_calendar_day_current {
     background-color: $data_table_highlight;
   }
   
   table.LC_mail_list tr.LC_mail_new {
     background-color: $mail_new;
   }
   table.LC_mail_list tr.LC_mail_new:hover {
     background-color: $mail_new_hover;
   }
   table.LC_mail_list tr.LC_mail_read {
     background-color: $mail_read;
   }
   table.LC_mail_list tr.LC_mail_read:hover {
     background-color: $mail_read_hover;
   }
   table.LC_mail_list tr.LC_mail_replied {
     background-color: $mail_replied;
   }
   table.LC_mail_list tr.LC_mail_replied:hover {
     background-color: $mail_replied_hover;
   }
   table.LC_mail_list tr.LC_mail_other {
     background-color: $mail_other;
   }
   table.LC_mail_list tr.LC_mail_other:hover {
     background-color: $mail_other_hover;
   }
 </style>  </style>
 END  END
 }  }
Removed from v.1.348  
changed lines
  Added in v.1.351

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