version 1.2, 2001/02/19 22:58:53
|
version 1.3, 2001/02/21 20:38:35
|
Line 16
|
Line 16
|
# |
# |
# 2/14 Gerd Kortemeyer) |
# 2/14 Gerd Kortemeyer) |
# |
# |
# 2/14,2/17,2/19 Gerd Kortemeyer |
# 2/14,2/17,2/19,2/20,2/21 Gerd Kortemeyer |
# |
# |
package Apache::loncreateuser; |
package Apache::loncreateuser; |
|
|
Line 59 sub phase_two {
|
Line 59 sub phase_two {
|
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
|
<script> |
|
|
|
function pclose() { |
|
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
parmwin.close(); |
|
} |
|
|
|
function pjump(type,dis,value,marker,ret,call) { |
|
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
|
+"&value="+escape(value)+"&marker="+escape(marker) |
|
+"&return="+escape(ret) |
|
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
|
|
} |
|
|
|
function dateset() { |
|
eval("document.cu."+document.cu.pres_marker.value+ |
|
".value=document.cu.pres_value.value"); |
|
pclose(); |
|
} |
|
|
|
</script> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
<img align=right src=/adm/lonIcons/lonlogos.gif> |
<img align=right src=/adm/lonIcons/lonlogos.gif> |
<h1>Create User, Change User Privileges</h1> |
<h1>Create User, Change User Privileges</h1> |
<form action=/adm/createuser method=post> |
<form action=/adm/createuser method=post name=cu> |
<input type=hidden name=phase value=three> |
<input type=hidden name=phase value=three> |
<input type=hidden name=ccuname value=$ccuname> |
<input type=hidden name=ccuname value=$ccuname> |
<input type=hidden name=ccdomain value=$ccdomain> |
<input type=hidden name=ccdomain value=$ccdomain> |
|
<input type="hidden" value='' name="pres_value"> |
|
<input type="hidden" value='' name="pres_type"> |
|
<input type="hidden" value='' name="pres_marker"> |
|
|
ENDENHEAD |
ENDENHEAD |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my %incdomains; |
my %incdomains; |
Line 95 ENDENHEAD
|
Line 123 ENDENHEAD
|
my $thisrole=$area; |
my $thisrole=$area; |
$area=~s/\_\w\w$//; |
$area=~s/\_\w\w$//; |
my ($trole,$tend,$tstart)=split(/_/,$role); |
my ($trole,$tend,$tstart)=split(/_/,$role); |
|
my $bgcol='ffffff'; |
my $allows=0; |
my $allows=0; |
if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) { |
if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) { |
my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2); |
my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2); |
Line 105 ENDENHEAD
|
Line 133 ENDENHEAD
|
if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) { |
if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) { |
$allows=1; |
$allows=1; |
} |
} |
|
$bgcol=$1.'_'.$2; |
|
$bgcol=~s/[^8-9b-e]//g; |
|
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
} else { |
} else { |
if ($1) { |
if ($1) { |
$incdomains{$1}=1; |
$incdomains{$1}=1; |
Line 117 ENDENHEAD
|
Line 148 ENDENHEAD
|
my $active=1; |
my $active=1; |
if (($tend) && ($now>$tend)) { $active=0; } |
if (($tend) && ($now>$tend)) { $active=0; } |
|
|
$r->print('<tr><td>'); |
$r->print('<tr bgcolor=#'.$bgcol.'><td>'); |
if ($active) { |
if ($active) { |
if ($allows) { |
if ($allows) { |
$r->print( |
$r->print( |
Line 147 ENDENHEAD
|
Line 178 ENDENHEAD
|
} |
} |
} ('dc','cc','li','dg','au'); |
} ('dc','cc','li','dg','au'); |
} sort keys %incdomains; |
} sort keys %incdomains; |
$r->print('<h5>Course Level</h5>'); |
$r->print('<h5>Course Level</h5>'. |
|
'<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. |
|
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
map { |
map { |
my $thiscourse=$_; |
my $thiscourse=$_; |
|
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
|
my $area=$coursedata{'description'}; |
|
my $bgcol=$thiscourse; |
|
$bgcol=~s/[^8-9b-e]//g; |
|
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
map { |
map { |
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { |
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { |
$r->print($_.' - '.$thiscourse.'<br>'); |
my $plrole=&Apache::lonnet::plaintext($_); |
|
$r->print(<<ENDROW); |
|
<tr bgcolor=#$bgcol> |
|
<td><input type=checkbox name="act_$thiscourse\_$_"></td> |
|
<td>$plrole</td> |
|
<td>$area</td> |
|
<td><input type=text size=5 name="sec_$thiscourse\_$_"></td> |
|
<td><input type=hidden name="start_$thiscourse\_$_" value=''> |
|
<a href= |
|
"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$thiscourse\_$_.value,'start_$thiscourse\_$_','cu.pres','dateset')">Set Start Date</a></td> |
|
<td><input type=hidden name="end_$thiscourse\_$_" value=''> |
|
<a href= |
|
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$thiscourse\_$_.value,'end_$thiscourse\_$_','cu.pres','dateset')">Set End Date</a></td> |
|
</tr> |
|
ENDROW |
|
|
} |
} |
} ('st','ta','ep','ad','in'); |
} ('st','ta','ep','ad','in'); |
} sort keys %inccourses; |
} sort keys %inccourses; |
|
$r->print('</table>'); |
$r->print('</form></body></html>'); |
$r->print('</form></body></html>'); |
} |
} |
|
|