--- loncom/interface/lonpickcourse.pm 2005/10/03 23:53:25 1.30 +++ loncom/interface/lonpickcourse.pm 2005/10/14 19:11:56 1.34 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.30 2005/10/03 23:53:25 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.34 2005/10/14 19:11:56 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -111,7 +111,7 @@ ENDDOCUMENT $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count); my @sections = (); if ($num_sections > 0) { - @sections = (sort {$a <=> $b} keys %sections_count); + @sections = (sort {$a <=> $b} keys(%sections_count)); $seclist = join('","',@sections); } } @@ -160,33 +160,47 @@ function gochoose(cname,cdom,cdesc,multf courseCount = 0; var courses = ''; if (multflag) { - for (var j=0; j 0) { - courses = courses.substr(0,courses.length-2); - opener.document.$env{'form.form'}.courselist.value = courses - } - } - else { + if (typeof(opener.document.$env{'form.form'}.coursepick.length) == + 'undefined') { + if (opener.document.$env{'form.form'}.coursepick.value == 'specific') { + opener.document.$env{'form.form'}.coursepick.checked = true; + } else { + opener.document.$env{'form.form'}.coursepick.checked = false; + } + } else { + for (var j=0; j 0) { + courses = courses.substr(0,courses.length-2); + opener.document.$env{'form.form'}.courselist.value = courses; + } + } else { $name_code opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname; if (openerForm == 'cu') { opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom; - } - else { + } else { var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'}; var i; for (i=0;iprint('
'); my %by_descrip; - my $numcourses = keys %courses; - foreach my $course (keys %courses) { + my $numcourses = keys(%courses); + foreach my $course (keys(%courses)) { my $descr; if ($courses{$course} =~ m/^([^:]*):/) { $descr = &Apache::lonnet::unescape($1); @@ -305,6 +316,7 @@ ENDSCRIPT unless ($owner eq '') { $r->print(", owner - ".&Apache::lonnet::unescape($owner)); } + if ($multflag) { $r->print("\n"); } $r->print("
\n"); } } @@ -327,7 +339,7 @@ sub course_chooser { my ($multflag,$cdom,$cnum,$cleandesc) = @_; my $output; if ($multflag) { - $output = ''."\n"; + $output = '