[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.33

version 1.30, 2005/10/03 23:53:25 version 1.33, 2005/10/14 18:43:13
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 160  function gochoose(cname,cdom,cdesc,multf Line 160  function gochoose(cname,cdom,cdesc,multf
     courseCount = 0;      courseCount = 0;
     var courses = '';      var courses = '';
     if (multflag) {      if (multflag) {
         for (var j=0; j<document.courselist.course_id.length; j++) {   if (typeof(document.courselist.course_id.length) == 'undefined') {
             if (document.courselist.course_id[j].checked) {      // only 1 course checkbox was created
                 courses = courses + document.courselist.course_id[j].value + "&&";      if (document.courselist.course_id.checked) {
                 courseCount ++;   courses = courses + document.courselist.course_id.value + "&&";
             }   courseCount ++;
         }      }
    } else {
       for (var j=0; j<document.courselist.course_id.length; j++) {
    if (document.courselist.course_id[j].checked) {
       courses = courses + document.courselist.course_id[j].value + "&&";
       courseCount ++;
    }
       }
    } 
         opener.document.$env{'form.form'}.coursetotal.value = courseCount;          opener.document.$env{'form.form'}.coursetotal.value = courseCount;
         for (var j=0; j<opener.document.$env{'form.form'}.coursepick.length; j++) {    if (typeof(opener.document.$env{'form.form'}.coursepick.length) ==
             if (opener.document.$env{'form.form'}.coursepick[j].value == 'specific') {        'undefined') {
                 opener.document.$env{'form.form'}.coursepick[j].checked = true;      if (opener.document.$env{'form.form'}.coursepick.value == 'specific') {  
             }   opener.document.$env{'form.form'}.coursepick.checked = true;
             else {      } else {
                 opener.document.$env{'form.form'}.coursepick[j].checked = false;   opener.document.$env{'form.form'}.coursepick.checked = false;
             }      }
         }   } else {
         if (courseCount > 0) {      for (var j=0; j<opener.document.$env{'form.form'}.coursepick.length; j++) { 
             courses = courses.substr(0,courses.length-2);   if (opener.document.$env{'form.form'}.coursepick[j].value == 'specific') {  
             opener.document.$env{'form.form'}.courselist.value = courses      opener.document.$env{'form.form'}.coursepick[j].checked = true;
         }   }
    else {
       opener.document.$env{'form.form'}.coursepick[j].checked = false;
    }
       }
    }
    if (courseCount > 0) {
       courses = courses.substr(0,courses.length-2);
       opener.document.$env{'form.form'}.courselist.value = courses;
    }
     }      }
     else {      else {
         $name_code          $name_code
Line 272  ENDSCRIPT Line 289  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 322  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 345  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.33

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