loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.150, 2013/12/03 17:22:08	version 1.151, 2013/12/03 17:47:30
Line 296 sub get_insert_list {	Line 296 sub get_insert_list {
my $descrip=$Apache::lonxml::insertlist{"$tag.description"};	my $descrip=$Apache::lonxml::insertlist{"$tag.description"};
my $tagnum =$Apache::lonxml::insertlist{"$tag.num"};	my $tagnum =$Apache::lonxml::insertlist{"$tag.num"};
$options{$descrip} ="<option value=\"$tagnum\">".	$options{$descrip} ="<option value=\"$tagnum\">".
$descrip."</option>\n";	&mt($descrip)."</option>\n";
}	}
foreach my $option (sort(keys(%options))) {$result.=$options{$option};}	foreach my $option (sort(keys(%options))) {$result.=$options{$option};}
if ($result) { $result='<option selected="selected"></option>'.$result; }	if ($result) { $result='<option selected="selected"></option>'.$result; }