version 1.57, 2003/07/17 18:10:53
|
version 1.58, 2003/07/17 18:14:41
|
Line 116 $selscript
|
Line 116 $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"> |
<p> |
<h2>Set Individual User Roles</h2> |
<table> |
<table> |
<tr><td>Username:</td><td><input type="text" size="15" name="ccuname"> |
<tr><td>Username:</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> |
Domain:</td><td>$domform</td></tr> |
</table> |
</table> |
</p> |
<input name="userrole" type="submit" value="User Roles" /> |
<input type="submit" value="Continue"> |
|
</form> |
</form> |
|
<form action="/adm/createuser" method="post" name="docustom"> |
|
<input type="hidden" name="phase" value="selected_custom_edit"> |
|
<h2>Edit Custom Role Privileges</h2> |
|
Name of Role: <input type="text" size="15" name="rolename" /><br /> |
|
<input name="customeditor" type="submit" value="Custom Role Editor" /> |
</body> |
</body> |
</html> |
</html> |
ENDDOCUMENT |
ENDDOCUMENT |
Line 136 sub print_user_modification_page {
|
Line 140 sub print_user_modification_page {
|
my $ccuname=$ENV{'form.ccuname'}; |
my $ccuname=$ENV{'form.ccuname'}; |
my $ccdomain=$ENV{'form.ccdomain'}; |
my $ccdomain=$ENV{'form.ccdomain'}; |
|
|
|
$ccuname=~s/\W//gs; |
|
$ccdomain=~s/\W//gs; |
|
|
|
unless (($ccuname) && ($ccdomain)) { |
|
&print_username_entry_form($r); |
|
return; |
|
} |
|
|
my $defdom=$ENV{'request.role.domain'}; |
my $defdom=$ENV{'request.role.domain'}; |
|
|
my ($krbdef,$krbdefdom) = |
my ($krbdef,$krbdefdom) = |
Line 827 END
|
Line 839 END
|
$r->print('</body></html>'); |
$r->print('</body></html>'); |
} |
} |
|
|
|
# ========================================================== Custom Role Editor |
|
|
|
sub custom_role_editor { |
|
my $r=shift; |
|
my $rolename=$ENV{'form.rolename'}; |
|
|
|
$rolename=~s/\W//gs; |
|
|
|
unless ($rolename) { |
|
&print_username_entry_form($r); |
|
return; |
|
} |
|
|
|
$r->print(&Apache::loncommon::bodytag( |
|
'Create Users, Change User Privileges')); |
|
$r->print('Not yet implemented.'); |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 852 sub handler {
|
Line 882 sub handler {
|
&print_user_modification_page($r); |
&print_user_modification_page($r); |
} elsif ($ENV{'form.phase'} eq 'update_user_data') { |
} elsif ($ENV{'form.phase'} eq 'update_user_data') { |
&update_user_data($r); |
&update_user_data($r); |
|
} elsif ($ENV{'form.phase'} eq 'selected_custom_edit') { |
|
&custom_role_editor($r); |
} |
} |
} else { |
} else { |
$ENV{'user.error.msg'}= |
$ENV{'user.error.msg'}= |