Return to edit.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.64, 2003/09/10 21:59:44 | version 1.65, 2003/09/17 15:44:19 |
---|---|
Line 568 sub select_arg { | Line 568 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 ($text,$value); | my ($text,$value); |
if ( ref($option) eq 'ARRAY') { | if ( ref($option) eq 'ARRAY') { |