version 1.57, 2003/06/30 20:41:35
|
version 1.60, 2003/08/14 19:30:34
|
Line 63 sub tag_start {
|
Line 63 sub tag_start {
|
&deletelist($target,$token) |
&deletelist($target,$token) |
."</td> |
."</td> |
<td>". |
<td>". |
&insertlist($target,$token).&end_row().&start_spanning_row(); |
&insertlist($target,$token); |
#<td>". |
#<td>". |
# &movebuttons($target,$token). |
# &movebuttons($target,$token). |
# "</tr><tr><td colspan=\"3\">\n"; |
# "</tr><tr><td colspan=\"3\">\n"; |
|
my @help;# = Apache::lonxml::helpinfo($token); |
|
if ($help[0]) { |
|
$result .= '<td align="right" valign="top">' . |
|
Apache::loncommon::help_open_topic(@help) . |
|
'</td>'; |
|
} else { $result .= "<td> </td>"; } |
|
$result .= &end_row().&start_spanning_row(); |
} |
} |
return $result; |
return $result; |
} |
} |
Line 119 sub end_table {
|
Line 126 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
sub start_spanning_row { return '<tr><td colspan="3" bgcolor="#DDDDDD">';} |
sub start_spanning_row { return '<tr><td colspan="4" bgcolor="#DDDDDD">';} |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub end_row { return '</td></tr>'; } |
sub end_row { return '</td></tr>'; } |
|
|
Line 568 sub select_or_text_arg {
|
Line 575 sub select_or_text_arg {
|
$optionlist.="<option $value>$option</option>\n"; |
$optionlist.="<option $value>$option</option>\n"; |
} |
} |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
if (($found) || (!$selected)) { |
((!$found)?' selected="on"':''). |
$result.=$description.' <select name="'.&html_element_name($name) |
">Type in value</option>\n"; |
.'"> |
# |
'.$optionlist.' |
my $element=&html_element_name($name); |
</select>'; |
my $selectelement='select_list_'.$element; |
} else { |
my $typeinelement='type_in_'.$element; |
$result.=&text_arg($description,$name,$token,$size); |
my $typeinvalue=($found?'':$selected); |
} |
# |
return '<nobr>'.$result.'</nobr>'; |
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 (<<ENDSELECTORTYPE); |
|
<nobr> |
|
$description |
|
<select name="$selectelement" |
|
onChange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" |
|
$optionlist |
|
</select> |
|
<input type="text" size="$size" name="$typeinelement" |
|
value="$typeinvalue" |
|
onChange="$hiddenvalue=$typedinvalue;" |
|
onFocus="$selectedindex=$selecttypeinindex-1;" /> |
|
<input type="hidden" name="$element" value="$selected" /> |
|
</nobr> |
|
ENDSELECTORTYPE |
} |
} |
|
|
#----------------------------------------------------- image coordinates |
#----------------------------------------------------- image coordinates |