loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.149, 2013/12/03 16:39:45	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; }
Line 950 sub checked_arg {	Line 950 sub checked_arg {
my ($value,$text);	my ($value,$text);
if ( ref($option) eq 'ARRAY') {	if ( ref($option) eq 'ARRAY') {
$value='value="'.$$option[0].'"';	$value='value="'.$$option[0].'"';
$text=$$option[1];	$text=&mt($$option[1]);
$option=$$option[0];	$option=$$option[0];
} else {	} else {
$text=$option;	$text=&mt($option);
$value='value="'.$option.'"';	$value='value="'.$option.'"';
}	}
$result.=' <span class="LC_edit_opt"><label><input type="checkbox" '.$value.' name="'.	$result.=' <span class="LC_edit_opt"><label><input type="checkbox" '.$value.' name="'.