loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.93, 2005/01/16 08:20:38	version 1.94, 2005/01/20 20:20:35
Line 1165 sub start_choice {	Line 1165 sub start_choice {
$parser));	$parser));
my $nextstate = $token->[2]{'nextstate'};	my $nextstate = $token->[2]{'nextstate'};
my $evalFlag = $token->[2]{'eval'};	my $evalFlag = $token->[2]{'eval'};
push @{$paramHash->{CHOICES}}, [$human, $computer, $nextstate,	push @{$paramHash->{CHOICES}}, [&mtn($human), $computer, $nextstate,
$evalFlag];	$evalFlag];
return '';	return '';
}	}
Line 1281 BUTTONS	Line 1281 BUTTONS
$choiceLabel = &$choiceLabel($helper, $self);	$choiceLabel = &$choiceLabel($helper, $self);
}	}
$result .= "/></td><td> ".qq{<label for="$id">}.	$result .= "/></td><td> ".qq{<label for="$id">}.
&mtn($choiceLabel). "</label></td></tr>\n";	$choiceLabel. "</label></td></tr>\n";
}	}
$result .= "</table>\n\n\n";	$result .= "</table>\n\n\n";
$result .= $buttons;	$result .= $buttons;