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

Diff for /loncom/interface/loncommon.pm between versions 1.346 and 1.349

version 1.346, 2006/04/21 22:00:56 version 1.349, 2006/04/22 17:10:07
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 = $tabbg;
       my $data_table_light = '#EEEEEE';
       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 3112  td.LC_menubuttons_img { Line 3127  td.LC_menubuttons_img {
   font-family: $sans;    font-family: $sans;
   font-weight: bold;    font-weight: bold;
 }  }
   
   table.LC_data_table, table.LC_mail_list {
     border: 1px solid #000000;
     border-collapse: seperate;
   }
   table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th {
     font-weight: bold;
     background-color: $data_table_head;
   }
   table.LC_data_table tr td {
     background-color: $data_table_light;
   }
   table.LC_data_table tr.LC_even_row td {
     background-color: $data_table_dark;
   }
   table.LC_data_table tr.LC_empty td {
     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
 }  }
Line 3456  sub simple_error_page { Line 3532  sub simple_error_page {
     }      }
     return $page;      return $page;
 }  }
   
   {
       my $row_count;
       sub start_data_table {
    undef($row_count);
    return '<table class="LC_data_table">';
       }
   
       sub end_data_table {
    undef($row_count);
    return '</table>';
       }
   
       sub start_data_table_row {
    $row_count++;
    return  '<tr '.(($row_count % 2)?'':'class="LC_even_row"').'>';
       }
   
       sub end_data_table_row {
    return '</tr>';
       }
   }
   
 ###############################################  ###############################################
   
 =pod  =pod
Removed from v.1.346  
changed lines
  Added in v.1.349

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