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

Diff for /loncom/interface/loncommon.pm between versions 1.347 and 1.350

version 1.347, 2006/04/22 01:06:48 version 1.350, 2006/04/22 17:17:49
Line 2605  sub maketime { Line 2605  sub maketime {
 #########################################  #########################################
   
 sub findallcourses {  sub findallcourses {
     my %courses=();      my %courses;
     my $now=time;      my $now=time;
     foreach (keys %env) {      foreach my $key (keys(%env)) {
  if ($_=~/^user\.role\.\w+\.\/(\w+)\/(\w+)/) {   if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)} ) {
     my ($starttime,$endtime)=$env{$_};      my ($role,$domain,$id) = ($1,$2,$3);
       next if ($role eq 'ca' || $role eq 'aa');
       my ($starttime,$endtime)=$env{$key};
             my $active=1;              my $active=1;
             if ($starttime) {              if ($starttime) {
  if ($now<$starttime) { $active=0; }   if ($now<$starttime) { $active=0; }
Line 2617  sub findallcourses { Line 2619  sub findallcourses {
             if ($endtime) {              if ($endtime) {
                 if ($now>$endtime) { $active=0; }                  if ($now>$endtime) { $active=0; }
             }              }
             if ($active) { $courses{$1.'_'.$2}=1; }              if ($active) { $courses{$domain.'_'.$id}=1; }
         }          }
     }      }
     return keys %courses;      return keys(%courses);
 }  }
   
 ###############################################  ###############################################
Line 3054  sub standard_css { Line 3056  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 3066  table.thinborder tr th, table.thinborder Line 3078  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 3116  td.LC_menubuttons_img { Line 3135  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.347  
changed lines
  Added in v.1.350

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