--- 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);
|