loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.26 and 1.27

version 1.26, 2001/11/07 21:23:15	version 1.27, 2001/11/07 22:28:44
Line 202 sub displayfoils {	Line 202 sub displayfoils {
}	}

sub start_conceptgroup {	sub start_conceptgroup {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
$Apache::radiobuttonresponse::conceptgroup=1;	$Apache::radiobuttonresponse::conceptgroup=1;
%Apache::response::conceptgroup={};	%Apache::response::conceptgroup={};
my $result;	my $result;
Line 222 sub end_conceptgroup {	Line 223 sub end_conceptgroup {
$Apache::radiobuttonresponse::conceptgroup=0;	$Apache::radiobuttonresponse::conceptgroup=0;
my $result;	my $result;
if ($target eq 'web' \|\| $target eq 'grade') {	if ($target eq 'web' \|\| $target eq 'grade') {
my @names = @{ $Apache::response::conceptgroup{'names'} };	if (defined(@{ $Apache::response::conceptgroup{'names'} })) {
my $pick=int rand $#names+1;	my @names = @{ $Apache::response::conceptgroup{'names'} };
my $name=$names[$pick];	my $pick=int rand $#names+1;
push @{ $Apache::response::foilgroup{'names'} }, $name;	my $name=$names[$pick];
$Apache::response::foilgroup{"$name.text"} = $Apache::response::conceptgroup{"$name.text"};	push @{ $Apache::response::foilgroup{'names'} }, $name;
$Apache::response::foilgroup{"$name.value"} = $Apache::response::conceptgroup{"$name.value"};	$Apache::response::foilgroup{"$name.text"} = $Apache::response::conceptgroup{"$name.text"};
my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);	$Apache::response::foilgroup{"$name.value"} = $Apache::response::conceptgroup{"$name.value"};
$Apache::response::foilgroup{"$name.concept"} = $concept;	my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);
&Apache::lonxml::debug("Selecting $name in $concept");	$Apache::response::foilgroup{"$name.concept"} = $concept;
	&Apache::lonxml::debug("Selecting $name in $concept");
	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::end_table();	$result=&Apache::edit::end_table();
}	}
Line 245 sub insert_conceptgroup {	Line 248 sub insert_conceptgroup {
sub start_foil {	sub start_foil {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
if ($target eq 'web') { &Apache::lonxml::startredirection; }	if ($target eq 'web') {
return '';	&Apache::lonxml::startredirection;
	} elsif ($target eq 'edit') {
	$result=&Apache::edit::tag_start($target,$token);
	$result.=&Apache::edit::text_arg('Name:','name',$token);
	$result.=&Apache::edit::select_arg('Correct Option:','value',
	['true','false'],$token,'15');
	} elsif ($target eq 'modified') {
	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
	'value','name');
	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
	}
	return $result;
}	}

sub end_foil {	sub end_foil {
Line 257 sub end_foil {	Line 271 sub end_foil {
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);	my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
if ($value ne 'unused') {	if ($value ne 'unused') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
	if (!$name) { $name=$Apache::lonxml::curdepth; }
if ( $Apache::radiobuttonresponse::conceptgroup ) {	if ( $Apache::radiobuttonresponse::conceptgroup ) {
push @{ $Apache::response::conceptgroup{'names'} }, $name;	push @{ $Apache::response::conceptgroup{'names'} }, $name;
$Apache::response::conceptgroup{"$name.value"} = $value;	$Apache::response::conceptgroup{"$name.value"} = $value;
Line 271 sub end_foil {	Line 286 sub end_foil {
return '';	return '';
}	}

	sub insert_foil {
	return '
	<foil name="" value="unused">
	<startouttext />
	<endouttext />
	</foil>';
	}
1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.26
changed lines
	Added in v.1.27