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

Diff for /loncom/interface/loncreateuser.pm between versions 1.121 and 1.124

version 1.121, 2006/06/26 21:36:53 version 1.124, 2006/06/28 18:18:44
Line 142  sub print_username_entry_form { Line 142  sub print_username_entry_form {
                     'nr'   => "Name of Role",                      'nr'   => "Name of Role",
                     'cre'  => "Custom Role Editor"                      'cre'  => "Custom Role Editor"
        );         );
     my $help = &Apache::loncommon::help_open_menu('',undef,undef,'',282,'Instructor Interface');      my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');
     my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');      my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');
     my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');      my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');
     $r->print(<<"ENDDOCUMENT");      $r->print(<<"ENDDOCUMENT");
Line 1598  sub custom_role_editor { Line 1598  sub custom_role_editor {
 ENDCCF  ENDCCF
     foreach my $priv (sort keys %full) {      foreach my $priv (sort keys %full) {
         my $privtext = &Apache::lonnet::plaintext($priv);          my $privtext = &Apache::lonnet::plaintext($priv);
         if ($env{'course.'.$env{'request.course.id'}.'.type'}) {  
             $privtext =~ s/Student/Member/;  
             $privtext =~ s/student/member/;  
             $privtext =~ s/course/group/;  
         }   
  $r->print('<tr><td>'.$privtext.'</td><td>'.   $r->print('<tr><td>'.$privtext.'</td><td>'.
     ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.':c" '.      ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.':c" '.
     ($courselevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').      ($courselevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').
Line 1770  sub course_level_table { Line 1765  sub course_level_table {
  foreach  ('st','ta','ep','in','cc') {   foreach  ('st','ta','ep','in','cc') {
     if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {      if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
  my $plrole=&Apache::lonnet::plaintext($_);   my $plrole=&Apache::lonnet::plaintext($_);
        #  Was this left in by mistake?  
                # if ($type eq 'Group') {  
                #     $plrole = &Apache::loncommon::convert_role($plrole,$type);  
                # }   
  $table .= <<ENDEXTENT;   $table .= <<ENDEXTENT;
 <tr bgcolor="#$bgcol">  <tr bgcolor="#$bgcol">
 <td><input type="checkbox" name="act_$protectedcourse\_$_"></td>  <td><input type="checkbox" name="act_$protectedcourse\_$_"></td>
Removed from v.1.121  
changed lines
  Added in v.1.124

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