--- loncom/interface/loncreateuser.pm 2001/02/19 22:58:53 1.2 +++ loncom/interface/loncreateuser.pm 2001/02/21 20:38:35 1.3 @@ -16,7 +16,7 @@ # # 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; @@ -59,14 +59,42 @@ sub phase_two { The LearningOnline Network with CAPA +

Create User, Change User Privileges

-
+ + + + + ENDENHEAD my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); my %incdomains; @@ -95,7 +123,7 @@ ENDENHEAD my $thisrole=$area; $area=~s/\_\w\w$//; my ($trole,$tend,$tstart)=split(/_/,$role); - + my $bgcol='ffffff'; my $allows=0; if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) { my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2); @@ -105,6 +133,9 @@ ENDENHEAD if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) { $allows=1; } + $bgcol=$1.'_'.$2; + $bgcol=~s/[^8-9b-e]//g; + $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); } else { if ($1) { $incdomains{$1}=1; @@ -117,7 +148,7 @@ ENDENHEAD my $active=1; if (($tend) && ($now>$tend)) { $active=0; } - $r->print(''); + $r->print(''); if ($active) { if ($allows) { $r->print( @@ -147,15 +178,38 @@ ENDENHEAD } } ('dc','cc','li','dg','au'); } sort keys %incdomains; - $r->print('
Course Level
'); + $r->print('
Course Level
'. + ''. + ''); map { 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 { if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { - $r->print($_.' - '.$thiscourse.'
'); + my $plrole=&Apache::lonnet::plaintext($_); + $r->print(< + + + + + + + +ENDROW + } } ('st','ta','ep','ad','in'); } sort keys %inccourses; + $r->print('
ActivateRoleExtentGroup/SectionStartEnd
$plrole$area +Set Start Date +Set End Date
'); $r->print('
'); }