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

Diff for /loncom/auth/lonroles.pm between versions 1.131 and 1.132

version 1.131, 2005/11/01 21:59:24 version 1.132, 2005/11/08 21:54:03
Line 461  ENDHEADER Line 461  ENDHEADER
                 my $trole;                  my $trole;
                 if ($role =~ /^cr\//) {                  if ($role =~ /^cr\//) {
                     my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);                      my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);
                     $tremark.='<br />'.&mt('Defined by ').$rauthor.      if ($tremark) { $tremark.='<br />'; }
                       $tremark.=&mt('Defined by ').$rauthor.
  &mt(' at ').$rdomain.'.';   &mt(' at ').$rdomain.'.';
                     $trole=$rrole;                      $trole=$rrole;
                 } else {                  } else {
Line 589  ENDHEADER Line 590  ENDHEADER
     $r->print('<br /><table><tr>');      $r->print('<br /><table><tr>');
     unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }      unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }
     $r->print('<th>'.&mt('User Role').'</th><th>'.&mt('Extent').      $r->print('<th>'.&mt('User Role').'</th><th>'.&mt('Extent').
          '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.           '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th></tr>'."\n");
       &mt('Remarks and Calendar Announcements').'</th></tr>'."\n");  
     my $doheaders=-1;      my $doheaders=-1;
     foreach my $type ('Domain','Construction Space','Course','System') {      foreach my $type ('Domain','Construction Space','Course','System') {
  my $haverole=0;   my $haverole=0;
Line 616  ENDHEADER Line 616  ENDHEADER
             }               } 
  }   }
  if ($output) {   if ($output) {
     $r->print("<tr><td align='center' colspan='6'><font face='arial'>".      $r->print("<tr><td align='center' colspan='5'><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 628  ENDHEADER Line 628  ENDHEADER
         $r->print(&coursepick_jscript());          $r->print(&coursepick_jscript());
         $r->print(&Apache::loncommon::coursebrowser_javascript());          $r->print(&Apache::loncommon::coursebrowser_javascript());
     }      }
     foreach my $type ('Construction Space','Course','Domain','System') {      foreach my $type ('Construction Space','Domain','Course','System') {
  my $output;   my $output;
  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 643  ENDHEADER Line 643  ENDHEADER
  if ($output) {   if ($output) {
     if ($doheaders > 0) {      if ($doheaders > 0) {
  $r->print("<tr>".   $r->print("<tr>".
   "<td align='center' colspan='6'><font face='arial'>".&mt($type)."</font></td></tr>");    "<td align='center' colspan='5'><font face='arial'>".&mt($type)."</font></td></tr>");
     }      }
     $r->print($output);      $r->print($output);
  }   }
Line 665  ENDHEADER Line 665  ENDHEADER
     $r->print('<td>&nbsp;</td>');      $r->print('<td>&nbsp;</td>');
  }   }
     }      }
     $r->print('<td colspan="4"><font color="'.$tfont.'">'.&mt('No role specified').      $r->print('<td colspan="3"><font color="'.$tfont.'">'.&mt('No role specified').
       '</font></td><td><font color="'.$tfont.'">'.$tremark.        '</font></td><td><font color="'.$tfont.'">'.$tremark.
       '&nbsp;</font></td></tr>'."\n");        '&nbsp;</font></td></tr>'."\n");
   
Line 765  sub role_status { Line 765  sub role_status {
 sub build_roletext {  sub build_roletext {
     my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$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.'">';      my $roletext='<tr bgcolor="'.$tbg.'">';
       my $is_dc=($trolecode =~ m/^dc\./);
       my $rowspan=($is_dc) ? ''
                            : ' rowspan="2" ';
   
     unless ($nochoose) {      unless ($nochoose) {
         if (!$button) {          if (!$button) {
             if ($switchserver) {              if ($switchserver) {
                 $roletext.='<td><a href="/adm/switchserver?'.                  $roletext.='<td'.$rowspan.'><a href="/adm/switchserver?'.
                 $switchserver.'">'.&mt('Switch Server').'</a></td>';                  $switchserver.'">'.&mt('Switch Server').'</a></td>';
             } else {              } else {
                 $roletext.=('<td>&nbsp;</td>');                  $roletext.=('<td>&nbsp;</td>');
             }              }
         } elsif ($tstatus eq 'is') {          } elsif ($tstatus eq 'is') {
             $roletext.=('<td><input type=submit value="'.              $roletext.=('<td'.$rowspan.'><input type=submit value="'.
                         &mt('Select').'" name="'.                          &mt('Select').'" name="'.
                         $trolecode.'"></td>');                          $trolecode.'"></td>');
         } elsif ($tryagain) {          } elsif ($tryagain) {
             $roletext.=              $roletext.=
                 '<td><input type=submit value="'.                  '<td'.$rowspan.'><input type=submit value="'.
                 &mt('Try Selecting Again').'" name="'.$trolecode.'"></td>';                  &mt('Try Selecting Again').'" name="'.$trolecode.'"></td>';
         } elsif ($advanced) {          } elsif ($advanced) {
             $roletext.=              $roletext.=
                 '<td><input type=submit value="'.                  '<td'.$rowspan.'><input type=submit value="'.
                 &mt('Re-Initialize').'" name="'.$trolecode.'"></td>';                  &mt('Re-Initialize').'" name="'.$trolecode.'"></td>';
         } else {          } else {
             $roletext.='<td>&nbsp;</td>';              $roletext.='<td'.$rowspan.'>&nbsp;</td>';
         }          }
     }      }
     $tremark.=&Apache::lonannounce::showday(time,1,      $tremark.=&Apache::lonannounce::showday(time,1,
                  &Apache::lonannounce::readcalendar($tdom.'_'.$trest));                   &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
   
   
     $roletext.='<td><font color="'.$tfont.'">'.$trole.      $roletext.='<td><font color="'.$tfont.'">'.$trole.
        '</font></td><td><font color="'.$tfont.'">'.$twhere.         '</font></td><td><font color="'.$tfont.'">'.$twhere.
                '</font></td><td><font color="'.$tfont.'">'.$tpstart.                 '</font></td><td><font color="'.$tfont.'">'.$tpstart.
                '</font></td><td><font color="'.$tfont.'">'.$tpend.                 '</font></td><td><font color="'.$tfont.'">'.$tpend.
                '</font></td><td><font color="'.$tfont.'">'.$tremark.                 '</font></td></tr>';
                '&nbsp;</font></td></tr>'."\n";      if (!$is_dc) {
    $roletext.='<tr bgcolor="'.$tbg.'"><td colspan="4"><font color="'.$tfont.'">'.$tremark.
       '&nbsp;</font></td></tr><tr><td colspan="5" height="3"></td></tr>'."\n";
       }
     return $roletext;      return $roletext;
 }  }
   
Line 895  function process_pick(dom) { Line 901  function process_pick(dom) {
         if (pickedCourse != '') {          if (pickedCourse != '') {
             if (numbutton != -1) {              if (numbutton != -1) {
                 var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse                  var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
                 opener.document.rolechoice.elements[numbutton+1].name = courseTarget                  opener.document.rolechoice.elements[numbutton].name = courseTarget
                 opener.document.rolechoice.submit()                  opener.document.rolechoice.submit()
             }              }
         }          }
Line 951  sub allcourses_row { Line 957  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">'.      my $output = '<tr bgcolor="#77FF77">'.
               '<td><input type="button" value="'.   '<input type="hidden" name="ccpick_'.$dcdom.'" />'.
               &mt('Select').'" name="ccpick_'.$dcdom.'"'.   '<input type="hidden" name="pick_'.$dcdom.'" value="1" />'.
               'onClick="verifyCoursePick(this)">'.   '<td colspan="5">'.
               '<input type="hidden" name="pick_'.$dcdom.'" value="1"></td>'.   '<font color="#002200">'.$ccrole.'</font>'.
               '<td><font color="#002200">'.   ' <b>'.$selectlink.'</b>'.
               $ccrole.'</font></td>'.   ' from '.&mt('Domain').' '.$dcdom.
               '<td><font color="#002200">'.&mt('All courses').':<b>&nbsp;'.   '<tr><td colspan="5" height="3"></td></tr>'."\n";
               $selectlink.'</b>'.  
               '<br />'.&mt('Domain').':'.$dcdom.'</font>'.  
               '<td colspan="3"><font color="#002200">'.  
               &mt('Course Coordinator access to all courses in domain').  
               ': <b>'.$dcdom.'</b></font></td></tr>'."\n";  
     return $output;      return $output;
 }  }
   
Removed from v.1.131  
changed lines
  Added in v.1.132

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