--- loncom/interface/lonpickcourse.pm 2008/05/31 00:50:00 1.72 +++ loncom/interface/lonpickcourse.pm 2008/06/04 22:48:54 1.73 @@ -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 2008/06/04 22:48:54 bisitz 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|