loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.43, 2006/05/08 21:40:20
+version 1.45, 2006/05/09 15:09:27
  Line 101  sub handler {
      if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
          $loaditem{'onload'} ="setSections()";
          my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};
-         my %sections_count = ();
-         $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
+         my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
-         my @sections = ();
+         my @sections =  (sort {$a <=> $b} keys(%sections_count));
-         if ($num_sections > 0) {
+ 	$seclist = join('","',@sections);
-             @sections = (sort {$a <=> $b} keys(%sections_count));
-             $seclist = join('","',@sections);
+         my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum);
-         }
+ 	$groupslist = join(',',sort(keys(%curr_groups)));
-         my (%curr_groups,$numgroups);
-         $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,
-                                                          $cnum);
-         if ($numgroups > 0) {
-             $groupslist = join(',',sort(keys(%curr_groups)));
-         }
      }
      my $jscript;
      my $title = 'Selecting a course';