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

Diff for /loncom/interface/loncommon.pm between versions 1.485 and 1.489

version 1.485, 2006/12/04 22:03:15 version 1.489, 2006/12/08 20:09:29
Line 2936  sub blockcheck { Line 2936  sub blockcheck {
                                                        $tdom,$spec,$trest,$area);                                                         $tdom,$spec,$trest,$area);
                 }                  }
                 my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles);                  my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles);
  $no_userblock = &Apache::lonnet::allowed('evb',undef,undef,                  if ($userroles{'user.priv.'.$checkrole} =~ /evb\&([^\:]*)/) {
  $checkrole);                      if ($1) {
  last if $no_userblock;                          $no_userblock = 1;
                           last;
                       }
                   }
              } else {               } else {
                 if (&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) {                  if (&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) {
                     $no_ownblock = 1;                      $no_ownblock = 1;
Line 3500  sub standard_css { Line 3503  sub standard_css {
     my $mail_other           = '#99BBBB';      my $mail_other           = '#99BBBB';
     my $mail_other_hover     = '#669999';      my $mail_other_hover     = '#669999';
     my $table_header         = '#DDDDDD';      my $table_header         = '#DDDDDD';
       my $feedback_link_bg     = '#BBBBBB';
   
     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';
Line 4031  table.LC_descriptive_input td.LC_descrip Line 4035  table.LC_descriptive_input td.LC_descrip
   text-align: right;    text-align: right;
   font-weight: bold;    font-weight: bold;
 }  }
   table.LC_feedback_link {
       background: $feedback_link_bg;
   }
   span.LC_feedback_link {
       background: $feedback_link_bg;
       font-size: larger;
   }
   
 END  END
 }  }
Line 6286  sub construct_course { Line 6297  sub construct_course {
 # if specified, key authority is not course, but user  # if specified, key authority is not course, but user
 # only active if keyaccess is yes  # only active if keyaccess is yes
     if ($args->{'keyauth'}) {      if ($args->{'keyauth'}) {
  $args->{'keyauth'}=~s/[^\w\@]//g;   my ($user,$domain) = split(':',$args->{'keyauth'});
  if ($args->{'keyauth'}) {   $user = &LONCAPA::clean_username($user);
     $cenv{'keyauth'}=$args->{'keyauth'};   $domain = &LONCAPA::clean_username($domain);
    if ($user ne '' && $domain ne '') {
       $cenv{'keyauth'}=$user.':'.$domain;
  }   }
     }      }
   
Removed from v.1.485  
changed lines
  Added in v.1.489

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