--- loncom/interface/loncreateuser.pm 2001/04/12 23:12:58 1.13 +++ loncom/interface/loncreateuser.pm 2001/04/25 20:33:26 1.16 @@ -110,7 +110,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; @@ -266,7 +266,8 @@ ENDDROW 'Group/SectionStartEnd'); map { my $thiscourse=$_; - $thiscourse=~s/\_/\//g; + my $protectedcourse=$_; + $thiscourse=~s:_:/:g; my %coursedata=&Apache::lonnet::coursedescription($thiscourse); my $area=$coursedata{'description'}; my $bgcol=$thiscourse; @@ -275,21 +276,24 @@ 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 - +"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$_.value,'start_$protectedcourse\_$_','cu.pres','dateset')">Set Start Date + Set End Date +"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;