--- loncom/interface/lonpickcourse.pm 2008/05/31 00:50:00 1.72 +++ loncom/interface/lonpickcourse.pm 2008/07/01 04:22:59 1.73.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.72 2008/05/31 00:50:00 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.73.2.1 2008/07/01 04:22:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -228,14 +228,23 @@ sub display_matched_courses { $menuchk = ' checked="checked" '; } $r->print( + ''. + ''. + ''. + ''. + ''. + '
'.&mt('Action').''. ''.(' 'x3).'
'. + ''.(' 'x3).''. + '
'. '

'); + ''. + '
'. + '
'); } } my %by_descrip; @@ -444,7 +453,7 @@ sub build_filters { } foreach my $posstype ('Course','Non-standard Course') { $typeselectform.='\n"; + ($posstype eq $type ? ' selected="selected" ' : ''). ">".&mt($posstype)."\n"; } $typeselectform.=""; my $output = qq| @@ -478,9 +487,9 @@ $multelement if ($domainselectform) { $output .= $lt{'cdo'}.': '.$domainselectform.'
'."\n"; } - if ($typeselectform) { - $output .= $lt{'cog'}.': '.$typeselectform.'
'."\n"; - } +# if ($typeselectform) { +# $output .= $lt{'cog'}.': '.$typeselectform.'
'."\n"; +# } if ($instcodeform) { $output .= $lt{'cin'}.': '.$instcodeform.'
'."\n"; }