loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.7, 2001/01/12 21:58:33	version 1.9, 2001/01/19 20:05:40
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# mutliple choice style responses	# mutliple choice style responses

# 11/23,11/24,11/28 Gerd Kortemeyer

package Apache::radiobuttonresponse;	package Apache::radiobuttonresponse;
use strict;	use strict;

Line 39 sub setrandomnumber {	Line 37 sub setrandomnumber {
return '';	return '';
}	}

#FIXME needs to stablely do random picks
sub end_foilgroup {	sub end_foilgroup {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;

Line 56 sub end_foilgroup {	Line 53 sub end_foilgroup {
if ($target eq 'web') {	if ($target eq 'web') {
$result=&displayfoils($max,$answer);	$result=&displayfoils($max,$answer);
} elsif ( $target eq 'grade') {	} elsif ( $target eq 'grade') {
if ( defined $ENV{'form.submit'}) {	if ( defined $ENV{'form.submitted'}) {
my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};	my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
my $id = $Apache::inputtags::response['-1'];	my $id = $Apache::inputtags::response['-1'];