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

Diff for /loncom/interface/loncreateuser.pm between versions 1.70.2.1 and 1.71

version 1.70.2.1, 2004/01/19 23:09:07 version 1.71, 2003/12/10 19:34:53
Line 131  sub print_username_entry_form { Line 131  sub print_username_entry_form {
     my %existingroles=&my_custom_roles();      my %existingroles=&my_custom_roles();
     my $choice=&Apache::loncommon::select_form('make new role','rolename',      my $choice=&Apache::loncommon::select_form('make new role','rolename',
  ('make new role' => 'Generate new role ...',%existingroles));   ('make new role' => 'Generate new role ...',%existingroles));
       my %lt=&Apache::lonlocal::texthash(
       'siur'   => "Set Individual User Roles",
       'usr'  => "Username",
                       'dom'  => "Domain",
                       'usrr' => "User Roles",
                       'ecrp' => "Edit Custom Role Privileges",
                       'cre'  => "Custom Role Editor"
          );
     $r->print(<<"ENDDOCUMENT");      $r->print(<<"ENDDOCUMENT");
 <html>  <html>
 <head>  <head>
Line 140  $selscript Line 148  $selscript
 $bodytag  $bodytag
 <form action="/adm/createuser" method="post" name="crtuser">  <form action="/adm/createuser" method="post" name="crtuser">
 <input type="hidden" name="phase" value="get_user_info">  <input type="hidden" name="phase" value="get_user_info">
 <h2>Set Individual User Roles</h2>  <h2>$lt{siur}</h2>
 <table>  <table>
 <tr><td>Username:</td><td><input type="text" size="15" name="ccuname">  <tr><td>$lt{usr}:</td><td><input type="text" size="15" name="ccuname">
 </td><td rowspan="2">$sellink</td></tr><tr><td>  </td><td rowspan="2">$sellink</td></tr><tr><td>
 Domain:</td><td>$domform</td></tr>  $lt{'dom'}:</td><td>$domform</td></tr>
 </table>  </table>
 <input name="userrole" type="submit" value="User Roles" />  <input name="userrole" type="submit" value="$lt{usrr}" />
 </form>  </form>
 <form action="/adm/createuser" method="post" name="docustom">  <form action="/adm/createuser" method="post" name="docustom">
 <input type="hidden" name="phase" value="selected_custom_edit">  <input type="hidden" name="phase" value="selected_custom_edit">
 <h2>Edit Custom Role Privileges</h2>  <h2>$lt{'ecrp'}</h2>
 Name of Role: $choice <input type="text" size="15" name="newrolename" /><br />  Name of Role: $choice <input type="text" size="15" name="newrolename" /><br />
 <input name="customeditor" type="submit" value="Custom Role Editor" />  <input name="customeditor" type="submit" value="$lt{'cre'}" />
 </body>  </body>
 </html>  </html>
 ENDDOCUMENT  ENDDOCUMENT
Line 913  END Line 921  END
             }              }
  }    } 
     } # End of foreach (keys(%ENV))      } # End of foreach (keys(%ENV))
 # Flush the course logs so reverse user roles immediately updated  
     &Apache::lonnet::flushcourselogs();  
     $r->print('</body></html>');      $r->print('</body></html>');
 }  }
   
Removed from v.1.70.2.1  
changed lines
  Added in v.1.71

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