[BACK]Return to lonpickcourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpickcourse.pm between versions 1.30 and 1.32

version 1.30, 2005/10/03 23:53:25 version 1.32, 2005/10/14 18:23:32
Line 111  ENDDOCUMENT Line 111  ENDDOCUMENT
         $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);          $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
         my @sections = ();          my @sections = ();
         if ($num_sections > 0) {          if ($num_sections > 0) {
             @sections = (sort {$a <=> $b} keys %sections_count);              @sections = (sort {$a <=> $b} keys(%sections_count));
             $seclist = join('","',@sections);              $seclist = join('","',@sections);
         }          }
     }      }
Line 272  ENDSCRIPT Line 272  ENDSCRIPT
     ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);      ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
  $r->print('<form name="courselist">');   $r->print('<form name="courselist">');
  my %by_descrip;   my %by_descrip;
         my $numcourses = keys %courses;          my $numcourses = keys(%courses);
  foreach my $course (keys %courses) {   foreach my $course (keys(%courses)) {
             my $descr;              my $descr;
             if ($courses{$course} =~ m/^([^:]*):/) {              if ($courses{$course} =~ m/^([^:]*):/) {
                 $descr = &Apache::lonnet::unescape($1);                  $descr = &Apache::lonnet::unescape($1);
Line 305  ENDSCRIPT Line 305  ENDSCRIPT
                 unless ($owner eq '') {                  unless ($owner eq '') {
                     $r->print(", owner - ".&Apache::lonnet::unescape($owner));                      $r->print(", owner - ".&Apache::lonnet::unescape($owner));
                 }                  }
    if ($multflag) { $r->print("</label>\n"); }
                 $r->print("<br />\n");                  $r->print("<br />\n");
             }              }
  }   }
Line 327  sub course_chooser { Line 328  sub course_chooser {
     my ($multflag,$cdom,$cnum,$cleandesc) = @_;      my ($multflag,$cdom,$cnum,$cleandesc) = @_;
     my $output;       my $output; 
     if ($multflag) {      if ($multflag) {
         $output = '<input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";          $output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";
     } else {      } else {
         $output = '<input type="button" value="Select" onClick="gochoose('.          $output = '<input type="button" value="Select" onClick="gochoose('.
                   "'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";                    "'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";
Removed from v.1.30  
changed lines
  Added in v.1.32

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>