--- loncom/homework/edit.pm 2004/09/30 21:47:21 1.87 +++ loncom/homework/edit.pm 2004/10/26 15:06:58 1.88 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.87 2004/09/30 21:47:21 albertel Exp $ +# $Id: edit.pm,v 1.88 2004/10/26 15:06:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,10 +68,9 @@ sub tag_start { # "\n"; my @help = Apache::lonxml::helpinfo($token); if ($help[0]) { - $result .= '' . - Apache::loncommon::help_open_topic(@help) . - ''; - } else { $result .= " "; } + $result .= '' . + Apache::loncommon::help_open_topic(@help); + } else { $result .= " "; } $result .= &end_row().&start_spanning_row(); } return $result; @@ -191,7 +190,7 @@ sub get_insert_list { $descrip."\n"; } foreach my $option (sort(keys(%options))) {$result.=$options{$option};} - if ($result) { $result=''.$result; } + if ($result) { $result=''.$result; } } return $result; } @@ -613,7 +612,7 @@ sub checked_arg { &html_element_name($name)."'"; foreach my $selected (split(/,/,$allselected)) { if ( $selected eq $option ) { - $result.=" checked='on' "; + $result.=" checked='checked' "; last; } } @@ -648,7 +647,7 @@ sub select_arg { $value='value="'.$option.'"'; } if ( $selected eq $option ) { - $optionlist.="\n"; + $optionlist.="\n"; } else { $optionlist.="\n"; } @@ -677,14 +676,14 @@ sub select_or_text_arg { $value='value="'.$option.'"'; } if ( $selected eq $option ) { - $optionlist.="\n"; + $optionlist.="\n"; $found=1; } else { $optionlist.="\n"; } } $optionlist.="\n"; # my $element=&html_element_name($name);