--- loncom/interface/loncreateuser.pm 2001/04/24 15:23:39 1.15 +++ loncom/interface/loncreateuser.pm 2001/05/10 21:13:04 1.17 @@ -17,6 +17,8 @@ # 2/14 Gerd Kortemeyer) # # 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer +# April Guy Albertelli +# 05/10 Gerd Kortemeyer # package Apache::loncreateuser; @@ -110,7 +112,7 @@ ENDENHEAD my %inccourses; map { $incdomains{$_}=1; - } %Apache::lonnet::hostdom; + } values %Apache::lonnet::hostdom; map { if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) { $inccourses{$1.'_'.$2}=1; @@ -231,6 +233,31 @@ ENDNUSER } $r->print('

Add Roles

'); # +# Co-Author +# + + if (&Apache::lonnet::allowed('cca',$ENV{'user.domain'})) { + my $cuname=$ENV{'user.name'}; + my $cudom=$ENV{'user.domain'}; + $r->print(<Construction Space + + + + + + + + + +
ActivateRoleExtentStartEnd
Co-Author$cudom\_$cuname +Set Start Date +Set End Date
+ENDCOAUTH + } +# # Domain level # $r->print('

Domain Level

'. @@ -276,12 +303,16 @@ ENDDROW map { if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { my $plrole=&Apache::lonnet::plaintext($_); - $r->print(<print(" - + $plrole $area - +"); + if ($_ ne 'cc') { + $r->print(""); + } else { $r->print(" "); } + $r->print(< Set Start Date @@ -290,7 +321,6 @@ ENDDROW "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$_.value,'end_$protectedcourse\_$_','cu.pres','dateset')">Set End Date ENDROW - } } ('st','ta','ep','ad','in','cc'); } sort keys %inccourses;