--- loncom/interface/loncreateuser.pm 2006/05/09 14:38:10 1.114 +++ loncom/interface/loncreateuser.pm 2006/05/09 15:09:27 1.115 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.114 2006/05/09 14:38:10 albertel Exp $ +# $Id: loncreateuser.pm,v 1.115 2006/05/09 15:09:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -974,7 +974,6 @@ ENDDROW # # Course level # - my $num_sections; if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) { $r->print(&course_level_dc($1)); @@ -1761,11 +1760,11 @@ sub course_level_table { $bgcol=~s/[^7-9a-e]//g; $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6); my ($domain,$cnum)=split(/\//,$thiscourse); - my %sections_count = (); - my $num_sections = 0; + my %sections_count; if (defined($env{'request.course.id'})) { if ($env{'request.course.id'} eq $domain.'_'.$cnum) { - $num_sections = &Apache::loncommon::get_sections($domain,$cnum,\%sections_count); + %sections_count = + &Apache::loncommon::get_sections($domain,$cnum); } } foreach ('st','ta','ep','ad','in','cc') { @@ -1778,8 +1777,8 @@ sub course_level_table {
'.$lt{'exs'}.' '. @@ -1819,8 +1818,8 @@ ENDTIMEENTRY | $plrole | $area | END - if ($num_sections > 0) { - my $currsec = &course_sections($num_sections,\%sections_count,$customrole); + if (%sections_count) { + my $currsec = &course_sections(\%sections_count,$customrole); $table.= '
|