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

Diff for /loncom/auth/lonroles.pm between versions 1.191 and 1.192

version 1.191, 2008/05/14 23:52:52 version 1.192, 2008/05/15 01:00:37
Line 719  ENDHEADER Line 719  ENDHEADER
                 $r->print('<tr bgcolor="#77FF77">');                  $r->print('<tr bgcolor="#77FF77">');
             }              }
             $r->print('<td></td><td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').              $r->print('<td></td><td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').
                       '</font></span></td><td><font color="'.$tfont.'">'.$tremark.                        '</span></font></td><td><font color="'.$tfont.'">'.$tremark.
                       '&nbsp;</font></td></tr>'."\n");                        '&nbsp;</font></td></tr>'."\n");
   
             $r->print('</table>');              $r->print('</table>');
Line 752  ENDHEADER Line 752  ENDHEADER
  $output.=$roletext{'user.role.'.$_};   $output.=$roletext{'user.role.'.$_};
                 if ($_ =~ m-dc\./($match_domain)/-                   if ($_ =~ m-dc\./($match_domain)/- 
     && $dcroles{$1}) {      && $dcroles{$1}) {
     $output .= &allcourses_row($1,'recent').      $output .= &adhoc_roles_row($1,'recent');
                                &allcoauthors_row($1,'recent');  
                 }                  }
     } elsif ($numdc > 0) {      } elsif ($numdc > 0) {
                 unless ($_ =~/^error\:/) {                  unless ($_ =~/^error\:/) {
Line 763  ENDHEADER Line 762  ENDHEADER
  }   }
  if ($output) {   if ($output) {
     $r->print("<tr><td align='center' colspan='5'><font face='arial'>".      $r->print("<tr><td align='center' colspan='5'><font face='arial'>".
       &mt('Recent Roles')."</font></td>");        &mt('Recent Roles')."</font></td></tr>");
     $r->print($output);      $r->print($output);
     $r->print("</tr>");  
             $doheaders ++;              $doheaders ++;
  }   }
     }      }
Line 787  ENDHEADER Line 785  ENDHEADER
     unless ($nochoose) {      unless ($nochoose) {
  if ($env{'request.role'} ne 'cm') {   if ($env{'request.role'} ne 'cm') {
     $r->print('<td><input type="submit" value="'.      $r->print('<td><input type="submit" value="'.
       &mt('Select').'" name="cm"></td>');        &mt('Select').'" name="cm" /></td>');
  } else {   } else {
     $r->print('<td>&nbsp;</td>');      $r->print('<td>&nbsp;</td>');
  }   }
     }      }
     $r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').      $r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').
       '</font></span></td><td><font color="'.$tfont.'">'.$tremark.        '</span></font></td><td><font color="'.$tfont.'">'.$tremark.
       '&nbsp;</font></td></tr>'."\n");        '&nbsp;</font></td></tr>'."\n");
   
     $r->print('</table>');      $r->print('</table>');
Line 857  sub print_rolerows { Line 855  sub print_rolerows {
                         if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) {                          if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) {
                             if (ref($dcroles) eq 'HASH') {                              if (ref($dcroles) eq 'HASH') {
                                 if ($dcroles->{$1}) {                                  if ($dcroles->{$1}) {
                                     $output .= &allcourses_row($1,'').                                      $output .= &adhoc_roles_row($1,'');
                                                &allcoauthors_row($1,'');  
                                 }                                  }
                             }                              }
                         }                          }
Line 997  sub build_roletext { Line 994  sub build_roletext {
         } elsif ($tstatus eq 'is') {          } elsif ($tstatus eq 'is') {
             $roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.              $roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.
                         &mt('Select').'" onClick="javascript:enterrole(this.form,\''.                          &mt('Select').'" onClick="javascript:enterrole(this.form,\''.
                         $trolecode."','".$buttonname.'\');"></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         } elsif ($tryagain) {          } elsif ($tryagain) {
             $roletext.=              $roletext.=
                 '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.                  '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.
                 &mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''.                  &mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''.
                         $trolecode."','".$buttonname.'\');"></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         } elsif ($advanced) {          } elsif ($advanced) {
             $roletext.=              $roletext.=
                 '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.                  '<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.
                 &mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''.                  &mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''.
                         $trolecode."','".$buttonname.'\');"></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         } else {          } else {
             $roletext.='<td'.$rowspan.'>&nbsp;</td>';              $roletext.='<td'.$rowspan.'>&nbsp;</td>';
         }          }
Line 1225  sub display_cc_role { Line 1222  sub display_cc_role {
     return ($roletext);      return ($roletext);
 }  }
   
 sub allcourses_row {  sub adhoc_roles_row {
     my ($dcdom,$rowtype) = @_;      my ($dcdom,$rowtype) = @_;
     my $output = '<tr bgcolor="#77FF77">'.      my $output = '<tr bgcolor="#77FF77">'.
                  ' <td colspan="5">';                   ' <td colspan="5"><table><tr><td><span class="LC_rolesinfo">'
                    .&mt('[_1]Ad hoc[_2] roles in domain [_3] --',
                    '<span class="LC_cusr_emph">','</span>',$dcdom).'</span></td><td>';
     my $selectlink = &courselink($dcdom,$rowtype);      my $selectlink = &courselink($dcdom,$rowtype);
     my $ccrole = &Apache::lonnet::plaintext('cc');      my $ccrole = &Apache::lonnet::plaintext('cc');
     $output.= '<span class="LC_rolesinfo">'.  
             &mt('[_1]: [_2] from domain [_3]',$ccrole,$selectlink,$dcdom).  
             '</span><br /></tr>'."\n";  
     return $output;  
 }  
   
 sub allcoauthors_row {  
     my ($dcdom,$rowtype) = @_;  
     my $output = '<tr bgcolor="#77FF77">'.  
                  ' <td colspan="5">';  
     my $carole = &Apache::lonnet::plaintext('ca');      my $carole = &Apache::lonnet::plaintext('ca');
     my $inputlink='<input type="text" size="10" name="adhoccauname'.$rowtype.'.'.$dcdom.'" />';      my $inputlink='<input type="text" size="10" name="adhoccauname'.$rowtype.'.'.$dcdom.'" />';
     my $gobutton='<input type="submit" name="adhocca./'.$dcdom.'" value="'.&mt('Go').'" />';      my $gobutton='<input type="submit" name="adhocca./'.$dcdom.'" value="'.&mt('Go').'" />';
     $output.= '<span class="LC_rolesinfo">'.      $output.= '<span class="LC_rolesinfo">'.
             &mt('[_1]: [_2] in domain [_3] [_4]',$carole,$inputlink,$dcdom,$gobutton).              &mt('[_1]: [_2]',$ccrole,$selectlink).
             '</span><br /></tr><tr><td colspan="5" height="3"></td></tr>'."\n";              '</span><br /></td><td>&nbsp;&nbsp;</td><td><span class="LC_rolesinfo">'.
               &mt('[_1]: [_2] [_3]',$carole,$inputlink,$gobutton).
               '</span><br /></td></tr></table></td></tr>'.
               '<tr><td colspan="5" height="3"></td></tr>'."\n";
     return $output;      return $output;
 }  }
   
Removed from v.1.191  
changed lines
  Added in v.1.192

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