--- loncom/interface/lonpickcourse.pm 2004/12/23 18:46:48 1.22 +++ loncom/interface/lonpickcourse.pm 2005/01/27 19:20:55 1.24 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.22 2004/12/23 18:46:48 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.24 2005/01/27 19:20:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -158,17 +158,26 @@ function setSections() { opener.document.$ENV{"form.form"}.currsec.options[0] = new Option('No existing sections','',false,false) } else { - for (var i=0; i&"'); - $cleandesc=~s/'/\\'/g; - my ($cdom,$cnum)=split(/\_/,$course); - $r->print(' '.$description.' ('. - ($Apache::lonnet::domaindescription{$cdom}? - $Apache::lonnet::domaindescription{$cdom}:$cdom). - ")
\n"); + foreach my $course (@{$by_descrip{$description}}) { + my $cleandesc=&HTML::Entities::encode($description,'<>&"'); + $cleandesc=~s/'/\\'/g; + my ($cdom,$cnum)=split(/\_/,$course); + my ($descr,$instcode,$owner) = split/:/,$courses{$course}; + $r->print(' '.$description.' ('. + ($Apache::lonnet::domaindescription{$cdom}? + $Apache::lonnet::domaindescription{$cdom}:$cdom).")"); + unless ($instcode eq '') { + $r->print(" - ".&Apache::lonnet::unescape($instcode)); + } + unless ($owner eq '') { + $r->print(", owner - ".&Apache::lonnet::unescape($owner)); + } + $r->print("
\n"); + } } if (!%courses) { $r->print(&mt('None found')); } $r->print(''."\n".