--- loncom/interface/lonhtmlcommon.pm 2007/10/10 00:02:19 1.167 +++ loncom/interface/lonhtmlcommon.pm 2007/11/06 04:39:19 1.169 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.167 2007/10/10 00:02:19 albertel Exp $ +# $Id: lonhtmlcommon.pm,v 1.169 2007/11/06 04:39:19 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -486,8 +486,8 @@ sub build_url { my ($base, $fields)=@_; my $url; $url = $base.'?'; - foreach my $key(keys(%$fields)) { - $url.=$key.'='.$$fields{$key}.'&'; + foreach my $key (keys(%$fields)) { + $url.=&escape($key).'='.&escape($$fields{$key}).'&'; } $url =~ s/&$//; return $url; @@ -1473,7 +1473,14 @@ sub course_select_row { my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles, $css_class) = @_; my $output = &row_title($title,$css_class); - $output .= qq| + $output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles); + $output .= &row_closure(); + return $output; +} + +sub course_selection { + my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; + my $output = qq|