version 1.32, 2002/03/22 20:05:19
|
version 1.33, 2002/03/28 22:03:21
|
Line 165 sub get_insert_list {
|
Line 165 sub get_insert_list {
|
} |
} |
} |
} |
if (@tagnums) { |
if (@tagnums) { |
|
my %options; |
foreach my $tagnum (@tagnums) { |
foreach my $tagnum (@tagnums) { |
$result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tagnum.description"}."</option>\n"; |
my $descrip=$Apache::lonxml::insertlist{"$tagnum.description"}; |
|
$options{$descrip} ="<option value=\"$tagnum\">".$descrip."</option>\n"; |
} |
} |
|
foreach my $option (sort(keys(%options))) { $result.=$options{$option}; } |
if ($result) { $result='<option selected="on"></option>'.$result; } |
if ($result) { $result='<option selected="on"></option>'.$result; } |
} |
} |
return $result; |
return $result; |