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

Diff for /loncom/interface/loncreateuser.pm between versions 1.119 and 1.122

version 1.119, 2006/05/30 20:12:15 version 1.122, 2006/06/26 22:31:56
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 246  sub print_user_modification_page { Line 246  sub print_user_modification_page {
         my @rolevals = ('st','ta','ep','in','cc');          my @rolevals = ('st','ta','ep','in','cc');
         my (@crsroles,@grproles);          my (@crsroles,@grproles);
         for (my $i=0; $i<@rolevals; $i++) {          for (my $i=0; $i<@rolevals; $i++) {
             $crsroles[$i]=&Apache::lonnet::plaintext($rolevals[$i]);              $crsroles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Course');
             $grproles[$i]=&Apache::loncommon::convert_role($crsroles[$i],'Group');              $grproles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Group');
         }          }
         my $rolevalslist = join('","',@rolevals);          my $rolevalslist = join('","',@rolevals);
         my $crsrolenameslist = join('","',@crsroles);          my $crsrolenameslist = join('","',@crsroles);
Line 705  END Line 705  END
                }                 }
        my $plaintext='';         my $plaintext='';
        unless ($croletitle) {         unless ($croletitle) {
    $plaintext=&Apache::lonnet::plaintext($role_code);                     $plaintext=&Apache::lonnet::plaintext($role_code,$class)
                    if ($class eq 'Group') {  
                        $plaintext = &Apache::loncommon::convert_role($plaintext,$class);  
                    }  
        } else {         } else {
            $plaintext=             $plaintext=
  "Customrole '$croletitle' defined by $croleuname\@$croleudom";   "Customrole '$croletitle' defined by $croleuname\@$croleudom";
Line 1773  sub course_level_table { Line 1770  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($_);
                 if ($type eq 'Group') {         #  Was this left in by mistake?
                     $plrole = &Apache::loncommon::convert_role($plrole,$type);                 # 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.119  
changed lines
  Added in v.1.122

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