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

Diff for /loncom/auth/lonroles.pm between versions 1.81 and 1.82

version 1.81, 2003/12/30 22:45:59 version 1.82, 2004/01/15 20:22:47
Line 77  ENDREDIR Line 77  ENDREDIR
     return;      return;
 }  }
   
 sub authorbombs {  
     my ($uname,$udom)=@_;  
     my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);  
     foreach (keys %bombs) {  
  if ($_=~/^$udom\/$uname\//) {  
     return '<img src="/adm/lonMisc/bomb.gif" />';  
  }  
     }  
     return '';  
 }  
   
 sub handler {  sub handler {
   
     my $r = shift;      my $r = shift;
Line 248  ENDENTERKEY Line 237  ENDENTERKEY
   
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
     my $bodytag=&Apache::loncommon::bodytag('User Roles');      my $bodytag=&Apache::loncommon::bodytag('User Roles');
     my $helptag=&Apache::loncommon::help_open_topic      my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_topic
      ("General_Intro",&mt("Click here for help"));       ("General_Intro",&mt("Click here for help")).'</td><td>'.
         &Apache::loncommon::help_open_faq(1,&mt('Click here for FAQ')).'</td><td>'.
         &Apache::loncommon::help_open_bug('',&mt('Click here to report bugs')).'</td></tr></table>';
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Line 428  ENDHEADER Line 419  ENDHEADER
  ': '.$tdom.'<br />'.   ': '.$tdom.'<br />'.
                         ' '.&mt('Server').':&nbsp;'.$home;                          ' '.&mt('Server').':&nbsp;'.$home;
                     $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';                      $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
     $tremark.=&authorbombs($trest,$tdom);      $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/');
     $sortkey=$role."$trest:$tdom";      $sortkey=$role."$trest:$tdom";
                 } elsif ($role eq 'au') {                  } elsif ($role eq 'au') {
                     # Authors                      # Authors
Line 448  ENDHEADER Line 439  ENDHEADER
                     $twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').                      $twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').
  ':&nbsp;'.$home;   ':&nbsp;'.$home;
                     $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';                      $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
     $tremark.=&authorbombs($ENV{'user.name'},$tdom);      $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$ENV{'user.name'}.'/');
     $sortkey=$role;      $sortkey=$role;
                 } elsif ($trest) {                  } elsif ($trest) {
                     $ttype='Course';                      $ttype='Course';
Removed from v.1.81  
changed lines
  Added in v.1.82

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