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.43 and 1.44

version 1.43, 2002/07/29 20:43:47	version 1.44, 2002/08/05 14:59:24
Line 246 sub displayfoils {	Line 246 sub displayfoils {
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$result.="<br />";	$result.="<br />";
	} else {
	$result.='\vskip 0 mm ';
}	}
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {	if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
$result.='Correct';	$result.='Correct';
Line 266 sub displayfoils {	Line 268 sub displayfoils {
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }	if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";	$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
} else {	} else {
$result .= $Apache::response::foilgroup{$name.'.text'};	$result .= '\item '.$Apache::response::foilgroup{$name.'.text'};
}	}
$temp++;	$temp++;
}	}
}	}
if ($target ne 'tex') { $result.="<br />"; }	if ($target ne 'tex') { $result.="<br />"; } else { $result.='\vskip 0 mm '; }
return $result;	return $result;
}	}

Line 336 sub start_foil {	Line 338 sub start_foil {
my $result='';	my $result='';
if ($target eq 'web' \|\| $target eq 'tex') {	if ($target eq 'web' \|\| $target eq 'tex') {
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;
if ($target eq 'tex') {
$result .= '\item ';
}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::tag_start($target,$token);	$result=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::text_arg('Name:','name',$token);	$result.=&Apache::edit::text_arg('Name:','name',$token);

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

Removed from v.1.43
changed lines
	Added in v.1.44