--- loncom/homework/edit.pm 2003/06/30 20:41:35 1.57
+++ loncom/homework/edit.pm 2003/08/14 19:30:34 1.60
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.57 2003/06/30 20:41:35 albertel Exp $
+# $Id: edit.pm,v 1.60 2003/08/14 19:30:34 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -63,10 +63,17 @@ sub tag_start {
&deletelist($target,$token)
."
".
- &insertlist($target,$token).&end_row().&start_spanning_row();
+ &insertlist($target,$token);
# | ".
# &movebuttons($target,$token).
# " | \n";
+ my @help;# = Apache::lonxml::helpinfo($token);
+ if ($help[0]) {
+ $result .= ' | ' .
+ Apache::loncommon::help_open_topic(@help) .
+ ' | ';
+ } else { $result .= " | "; }
+ $result .= &end_row().&start_spanning_row();
}
return $result;
}
@@ -119,7 +126,7 @@ sub end_table {
return $result;
}
-sub start_spanning_row { return '
';}
+sub start_spanning_row { return ' |
';}
sub start_row { return ' |
'; }
sub end_row { return ' |
'; }
@@ -568,16 +575,36 @@ sub select_or_text_arg {
$optionlist.="\n";
}
}
- $optionlist.="\n";
- if (($found) || (!$selected)) {
- $result.=$description.' ';
- } else {
- $result.=&text_arg($description,$name,$token,$size);
- }
- return ''.$result.'';
+ $optionlist.="\n";
+#
+ my $element=&html_element_name($name);
+ my $selectelement='select_list_'.$element;
+ my $typeinelement='type_in_'.$element;
+ my $typeinvalue=($found?'':$selected);
+#
+ my $hiddenvalue='this.form.'.$element.'.value';
+ my $selectedindex='this.form.'.$selectelement.'.selectedIndex';
+ my $selectedvalue='this.form.'.$selectelement.
+ '.options['.$selectedindex.'].value';
+ my $typedinvalue='this.form.'.$typeinelement.'.value';
+ my $selecttypeinindex='this.form.'.$selectelement.'.options.length';
+#
+ return (<
+$description
+