version 1.56, 2003/06/20 14:37:26
|
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 286 END
|
Line 298 END
|
my $allowed=0; |
my $allowed=0; |
my $delallowed=0; |
my $delallowed=0; |
if ($area =~ /^\/(\w+)\/(\d\w+)/ ) { |
if ($area =~ /^\/(\w+)\/(\d\w+)/ ) { |
|
my ($coursedom,$coursedir) = ($1,$2); |
|
# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3). |
my %coursedata= |
my %coursedata= |
&Apache::lonnet::coursedescription($1.'_'.$2); |
&Apache::lonnet::coursedescription($1.'_'.$2); |
my $carea; |
my $carea; |
if (defined($coursedata{'description'})) { |
if (defined($coursedata{'description'})) { |
$carea='Course: '.$coursedata{'description'}. |
$carea='Course: '.$coursedata{'description'}. |
'<br />Domain: '.$1; |
'<br />Domain: '.$coursedom.(' 'x8). |
|
&Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom); |
} else { |
} else { |
$carea='Unavailable course: '.$area; |
$carea='Unavailable course: '.$area; |
} |
} |
Line 824 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 849 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'}= |