version 1.57, 2003/06/30 20:41:35
|
version 1.57.2.1, 2003/09/10 22:03:40
|
Line 526 sub select_arg {
|
Line 526 sub select_arg {
|
my $result; |
my $result; |
my $optionlist=""; |
my $optionlist=""; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
|
&Apache::lonxml::error("Wha $selected"); |
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my $value; |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.$$option[0].'"'; |
$option=$$option[1]; |
$text=$$option[1]; |
|
$option=$$option[0]; |
} else { |
} else { |
|
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$option</option>\n"; |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
} else { |
} else { |
$optionlist.="<option $value >$option</option>\n"; |
$optionlist.="<option $value >$text</option>\n"; |
} |
} |
} |
} |
$result.='<nobr>'.$description.' <select name="'. |
$result.='<nobr>'.$description.' <select name="'. |
Line 554 sub select_or_text_arg {
|
Line 557 sub select_or_text_arg {
|
my $found=0; |
my $found=0; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my $value; |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.$$option[0].'"'; |
$option=$$option[1]; |
$text=$$option[1]; |
|
$option=$$option[0]; |
} else { |
} else { |
|
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$option</option>\n"; |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
$found=1; |
$found=1; |
} else { |
} else { |
$optionlist.="<option $value>$option</option>\n"; |
$optionlist.="<option $value>$text</option>\n"; |
} |
} |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |