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.78 and 1.80

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

version 1.78, 2003/10/27 19:27:09	version 1.80, 2004/01/14 22:08:22
Line 46 sub start_radiobuttonresponse {	Line 46 sub start_radiobuttonresponse {
$result=&Apache::response::meta_package_write('radiobuttonresponse');	$result=&Apache::response::meta_package_write('radiobuttonresponse');
} elsif ($target eq 'edit' ) {	} elsif ($target eq 'edit' ) {
$result.=&Apache::edit::start_table($token).	$result.=&Apache::edit::start_table($token).
'<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:".	'<tr><td>'.&Apache::lonxml::description($token).
	&Apache::loncommon::help_open_topic('Radio_Response_Problems').
	"</td><td>Delete:".
&Apache::edit::deletelist($target,$token)	&Apache::edit::deletelist($target,$token)
."</td><td>&nbsp".&Apache::edit::end_row()	."</td><td>&nbsp".&Apache::edit::end_row()
.&Apache::edit::start_spanning_row();	.&Apache::edit::start_spanning_row();
Line 154 sub end_foilgroup {	Line 156 sub end_foilgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;

my $result;	my $result;
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\| $target eq 'tex' \|\| $target eq 'analyze') {	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
	$target eq 'tex' \|\| $target eq 'analyze') {
my $style = $Apache::lonhomework::type;	my $style = $Apache::lonhomework::type;
if ( $style eq 'survey' && $target ne 'analyze') {	if ( $style eq 'survey' && $target ne 'analyze') {
if ($target eq 'web' \|\| $target eq 'answer' \|\| $target eq 'tex') {	if ($target eq 'web' \|\| $target eq 'answer' \|\| $target eq 'tex') {
Line 175 sub end_foilgroup {	Line 178 sub end_foilgroup {
&grade_response($max,$randomize);	&grade_response($max,$randomize);
} elsif ( $target eq 'analyze') {	} elsif ( $target eq 'analyze') {
my @shown = &whichfoils($max,$randomize);	my @shown = &whichfoils($max,$randomize);
&Apache::response::analyze_store_foilgroup(\@shown,['text','value']);	&Apache::response::analyze_store_foilgroup(\@shown,
	['text','value','location']);
	my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
	push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },
	('true','false'));
}	}
}	}
}	}

Removed from v.1.78
changed lines
	Added in v.1.80