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

Diff for /loncom/interface/loncommon.pm between versions 1.361 and 1.363

version 1.361, 2006/05/01 21:03:35 version 1.363, 2006/05/08 18:54:00
Line 3089  sub standard_css { Line 3089  sub standard_css {
     my $mail_other_hover     = '#669999';      my $mail_other_hover     = '#669999';
   
     return <<END;      return <<END;
 <style type="text/css">  
 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 { border-collapse: collapse; }  table.thinborder { border-collapse: collapse; }
Line 3109  table#LC_top_nav, table#LC_menubuttons, Line 3108  table#LC_top_nav, table#LC_menubuttons,
   width: 100%;    width: 100%;
   background: $pgbg;    background: $pgbg;
   border: 0px;    border: 0px;
   border-spacing: 1px;    border-spacing: 2px 1px;
   padding: 0px;    padding: 0px;
   margin: 0px;    margin: 0px;
   border-collapse: separate;    border-collapse: separate;
Line 3117  table#LC_top_nav, table#LC_menubuttons, Line 3116  table#LC_top_nav, table#LC_menubuttons,
 table#LC_title_bar {  table#LC_title_bar {
   width: 100%;    width: 100%;
   border: 0;    border: 0;
   border-spacing: 3px;    border-spacing: 0px 1px;
   background: $pgbg;    background: $pgbg;
   font-family: $sans;    font-family: $sans;
     border-collapse: collapse;
 }  }
 table#LC_title_bar.LC_with_remote {  table#LC_title_bar.LC_with_remote {
   width: 100%;    width: 100%;
Line 3260  table.LC_mail_list tr.LC_mail_other { Line 3260  table.LC_mail_list tr.LC_mail_other {
 table.LC_mail_list tr.LC_mail_other:hover {  table.LC_mail_list tr.LC_mail_other:hover {
   background-color: $mail_other_hover;    background-color: $mail_other_hover;
 }  }
 </style>  
 END  END
 }  }
   
Line 3294  Inputs: $title - optional title for the Line 3293  Inputs: $title - optional title for the
 sub headtag {  sub headtag {
     my ($title,$head_extra,$args) = @_;      my ($title,$head_extra,$args) = @_;
           
       my $function = $args->{'function'} || &get_users_function();
       my $domain   = $args->{'domain'}   || &determinedomain();
       my $bgcolor  = $args->{'bgcolor'}  || &designparm($function.'.pgbg',$domain);
       my $url = join(':',$env{'user.name'},$env{'user.domain'},
      $env{'environment.color.timestamp'},
      $function,$domain,$bgcolor);
   
       $url = '/adm/css/'.&Apache::lonnet::escape($url).'.css';
   
     my $result =      my $result =
  '<head>'.   '<head>'.
  &standard_css($args->{'function'},$args->{'domain'},   '<link rel="stylesheet" type="text/css" href="'.$url.'" />'.
       $args->{'bgcolor'}).  
  &font_settings().   &font_settings().
  &Apache::lonhtmlcommon::htmlareaheaders();   &Apache::lonhtmlcommon::htmlareaheaders();
   
Removed from v.1.361  
changed lines
  Added in v.1.363

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