version 1.59, 2003/08/04 22:07:29
|
version 1.60, 2003/08/14 19:30:34
|
Line 575 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 |