loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.187, 2012/10/12 12:45:46	version 1.188, 2012/11/30 11:45:50
Line 108 sub start_foilgroup {	Line 108 sub start_foilgroup {
my $optionlist="<option></option>\n";	my $optionlist="<option></option>\n";
my $option;	my $option;
my @opt;	my @opt;
eval '@opt ='. &Apache::lonxml::get_param('options',$parstack,$safeeval);	my @raw_options = &Apache::lonxml::get_param('options', $parstack, $safeeval, 0, 0, 1);


	eval '@opt ='. &Apache::lonxml::get_param('options',$parstack,$safeeval, 0, 0, 1);

my $count=1;	my $count=1;
foreach $option (@opt) {	foreach $option (@opt) {
$optionlist.="<option value=\"$count\">$option</option>\n";	$optionlist.="<option value=\"$count\">$option</option>\n";
Line 148 ENDTABLE	Line 152 ENDTABLE
if ($target eq 'modified') {	if ($target eq 'modified') {
my @options;	my @options;
my $optchanged=0;	my $optchanged=0;
eval '@options ='.&Apache::lonxml::get_param('options',$parstack,$safeeval);

	eval '@options ='.&Apache::lonxml::get_param('options',$parstack,$safeeval, 0, 0, 1);

if ($env{"form.$Apache::lonxml::curdepth.deleteopt"}) {	if ($env{"form.$Apache::lonxml::curdepth.deleteopt"}) {
my $delopt=$env{"form.$Apache::lonxml::curdepth.deleteopt"};	my $delopt=$env{"form.$Apache::lonxml::curdepth.deleteopt"};
&Apache::lonxml::debug("Deleting :$delopt:");	&Apache::lonxml::debug("Deleting :$delopt:");