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

Diff for /loncom/auth/lonroles.pm between versions 1.126 and 1.129

version 1.126, 2005/07/08 10:39:49 version 1.129, 2005/09/16 19:47:42
Line 50  sub redirect_user { Line 50  sub redirect_user {
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
     my $navwindow;      my $navwindow;
     if ($launch_nav eq 'on') {      if ($launch_nav eq 'on') {
  $navwindow.=&Apache::lonnavmaps::launch_win('now');   $navwindow.=&Apache::lonnavmaps::launch_win('now',undef,undef,
       ($url eq '/adm/whatsnew'));
     } else {      } else {
  $navwindow.=&Apache::lonnavmaps::close();   $navwindow.=&Apache::lonnavmaps::close();
     }      }
Line 430  ENDHEADER Line 431  ENDHEADER
  $tstatus='selected';   $tstatus='selected';
             }              }
             my $tbg;              my $tbg;
     my $tbghigh;  
             if (($tstatus eq 'is') || ($tstatus eq 'selected') ||              if (($tstatus eq 'is') || ($tstatus eq 'selected') ||
                 ($env{'form.showall'})) {                  ($env{'form.showall'})) {
                 if ($tstatus eq 'is') {                  if ($tstatus eq 'is') {
                     $tbg='#77FF77';                      $tbg='#77FF77';
     $tbghigh='#99CC77';  
                     $tfont='#003300';                      $tfont='#003300';
     $possiblerole=$trolecode;      $possiblerole=$trolecode;
     $countactive++;      $countactive++;
                 } elsif ($tstatus eq 'future') {                  } elsif ($tstatus eq 'future') {
                     $tbg='#FFFF77';                      $tbg='#FFFF77';
                     $tbghigh='#DDDD55';  
                     $button=0;                      $button=0;
                 } elsif ($tstatus eq 'will') {                  } elsif ($tstatus eq 'will') {
                     $tbg='#FFAA77';                      $tbg='#FFAA77';
                     $tremark.=&mt('Active at next login. ');                      $tremark.=&mt('Active at next login. ');
                 } elsif ($tstatus eq 'expired') {                  } elsif ($tstatus eq 'expired') {
                     $tbg='#FF7777';                      $tbg='#FF7777';
                     $tbghigh='#EE9955';  
                     $tfont='#330000';                      $tfont='#330000';
                     $button=0;                      $button=0;
                 } elsif ($tstatus eq 'will_not') {                  } elsif ($tstatus eq 'will_not') {
                     $tbg='#AAFF77';                      $tbg='#AAFF77';
                     $tbghigh='#BBDD55';  
                     $tremark.=&mt('Expired after logout. ');                      $tremark.=&mt('Expired after logout. ');
                 } elsif ($tstatus eq 'selected') {                  } elsif ($tstatus eq 'selected') {
                     $tbg='#11CC55';                      $tbg='#11CC55';
                     $tbghigh='339944';  
                     $tfont='#002200';                      $tfont='#002200';
     $inrole=1;      $inrole=1;
     $countactive++;      $countactive++;
Line 563  ENDHEADER Line 558  ENDHEADER
     $sortkey=$role.$twhere;      $sortkey=$role.$twhere;
                 }                  }
     
                 $roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tbghigh,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver);                  $roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver);
  $roletext{$envkey}=$roletext;   $roletext{$envkey}=$roletext;
  if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}   if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}
  $sortrole{$sortkey}=$envkey;   $sortrole{$sortkey}=$envkey;
Line 601  ENDHEADER Line 596  ENDHEADER
          '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.           '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
       &mt('Remarks and Calendar Announcements').'</th></tr>'."\n");        &mt('Remarks and Calendar Announcements').'</th></tr>'."\n");
     my $doheaders=-1;      my $doheaders=-1;
     foreach my $type ('Construction Space','Course','Domain','System') {      foreach my $type ('Domain','Construction Space','Course','System') {
  my $haverole=0;   my $haverole=0;
  foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {   foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
     if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {       if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { 
Line 625  ENDHEADER Line 620  ENDHEADER
             }               } 
  }   }
  if ($output) {   if ($output) {
     $r->print("<tr><td colspan='6'><font face='arial'>".      $r->print("<tr><td align='center' colspan='6'><font face='arial'>".
       &mt('Recent Roles')."</font></td>");        &mt('Recent Roles')."</font></td>");
     $r->print($output);      $r->print($output);
     $r->print("</tr>");      $r->print("</tr>");
Line 652  ENDHEADER Line 647  ENDHEADER
  if ($output) {   if ($output) {
     if ($doheaders > 0) {      if ($doheaders > 0) {
  $r->print("<tr>".   $r->print("<tr>".
   "<td colspan='6'><font face='arial'>".&mt($type)."</font></td></tr>");    "<td align='center' colspan='6'><font face='arial'>".&mt($type)."</font></td></tr>");
     }      }
     $r->print($output);      $r->print($output);
  }   }
Line 684  ENDHEADER Line 679  ENDHEADER
     }      }
 # ------------------------------------------------------------ Privileges Info  # ------------------------------------------------------------ Privileges Info
     if (($advanced) && (($env{'user.error.msg'}) || ($error))) {      if (($advanced) && (($env{'user.error.msg'}) || ($error))) {
  $r->print('<hr><h2>Current Privileges</h2>');   $r->print('<hr /><h2>Current Privileges</h2>');
   
  foreach $envkey (sort keys %env) {   foreach $envkey (sort keys %env) {
     if ($envkey=~/^user\.priv\.$env{'request.role'}\./) {      if ($envkey=~/^user\.priv\.$env{'request.role'}\./) {
Line 772  sub role_status { Line 767  sub role_status {
 }  }
   
 sub build_roletext {  sub build_roletext {
     my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tbghigh,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_;      my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_;
     my $roletext='<tr bgcolor="'.$tbg.'" onMouseOver="javascript:style.backgroundColor=\''.$tbghigh.'\'" onMouseOut="javascript:style.backgroundColor=\''.$tbg.'\'" >';      my $roletext='<tr bgcolor="'.$tbg.'">';
     unless ($nochoose) {      unless ($nochoose) {
         if (!$button) {          if (!$button) {
             if ($switchserver) {              if ($switchserver) {
Line 938  sub display_cc_role { Line 933  sub display_cc_role {
             my $trole = Apache::lonnet::plaintext('cc');              my $trole = Apache::lonnet::plaintext('cc');
             my $twhere;              my $twhere;
             my $tbg='#77FF77';              my $tbg='#77FF77';
     my $tbghigh='#99CC77';  
             my $tfont='#003300';              my $tfont='#003300';
             my %newhash=&Apache::lonnet::coursedescription($tcourseid);              my %newhash=&Apache::lonnet::coursedescription($tcourseid);
             if (%newhash) {              if (%newhash) {
Line 951  sub display_cc_role { Line 945  sub display_cc_role {
                 $env{'course.'.$tcourseid.'.description'}=$twhere;                  $env{'course.'.$tcourseid.'.description'}=$twhere;
             }              }
             $twhere.="<br />".&mt('Domain').":".$1;              $twhere.="<br />".&mt('Domain').":".$1;
             $roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tbghigh,$tfont,$trole,&mt('Course'),$twhere,'','','',1,'');              $roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,'');
         }          }
     }      }
     return $roletext;      return $roletext;
Line 961  sub allcourses_row { Line 955  sub allcourses_row {
     my $dcdom = shift;      my $dcdom = shift;
     my $ccrole = Apache::lonnet::plaintext('cc');      my $ccrole = Apache::lonnet::plaintext('cc');
     my $selectlink = &courselink($dcdom);      my $selectlink = &courselink($dcdom);
     my $output = '<tr bgcolor="#99FF99" onMouseOver="javascript:style.backgroundColor=\'#BBEE99\'"  onMouseOut="javascript:style.backgroundColor=\'#99FF99\'" >'.      my $output = '<tr bgcolor="#99FF99">'.
               '<td><input type="button" value="'.                '<td><input type="button" value="'.
               &mt('Select').'" name="ccpick_'.$dcdom.'"'.                &mt('Select').'" name="ccpick_'.$dcdom.'"'.
               'onClick="verifyCoursePick(this)">'.                'onClick="verifyCoursePick(this)">'.
Removed from v.1.126  
changed lines
  Added in v.1.129

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