--- loncom/interface/loncreateuser.pm 2004/12/07 00:49:27 1.91 +++ loncom/interface/loncreateuser.pm 2004/12/28 05:01:44 1.92 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.91 2004/12/07 00:49:27 raeburn Exp $ +# $Id: loncreateuser.pm,v 1.92 2004/12/28 05:01:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1280,13 +1280,13 @@ sub commit_standardrole { &mt('Add to classlist').': ok
'; } } else { - $output = (&mt('Assigning').' '.$three.' in '.$url. + $output = &mt('Assigning').' '.$three.' in '.$url. ($start?', '.&mt('starting').' '.localtime($start):''). ($end?', '.&mt('ending').' '.localtime($end):'').': '. &Apache::lonnet::assignrole( $ENV{'form.ccdomain'},$ENV{'form.ccuname'}, $url,$three,$end,$start). - '
'); + '
'; } return $output; } @@ -1611,7 +1611,12 @@ sub course_level_table { $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6); my ($domain,$cnum)=split(/\//,$thiscourse); my %sections_count = (); - my $num_sections = &Apache::loncommon::get_sections($domain,$cnum,\%sections_count); + my $num_sections = 0; + if (defined($ENV{'request.course.id'})) { + if ($ENV{'request.course.id'} eq $domain.'_'.$cnum) { + $num_sections = &Apache::loncommon::get_sections($domain,$cnum,\%sections_count); + } + } foreach ('st','ta','ep','ad','in','cc') { if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { my $plrole=&Apache::lonnet::plaintext($_); @@ -1706,12 +1711,18 @@ sub course_sections { my ($num_sections,$sections_count,$role) = @_; my $output = ''; my @sections = (sort {$a <=> $b} keys %{$sections_count}); - $output = ''."\n". + ' '."\n". + ' '."\n"; + } else { + $output = ''; return $output;