loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.105, 2005/12/06 10:03:57	version 1.106, 2006/03/27 21:18:16
Line 234 sub displayallfoils {	Line 234 sub displayallfoils {
my ($direction)=@_;	my ($direction)=@_;
my $result;	my $result;
&Apache::lonxml::debug("survey style display");	&Apache::lonxml::debug("survey style display");
my @names = @{ $Apache::response::foilgroup{'names'} };	my @names;
	if ( $Apache::response::foilgroup{'names'} ) {
	@names= @{ $Apache::response::foilgroup{'names'} };
	}
my $temp=0;	my $temp=0;
my $id=$Apache::inputtags::response['-1'];	my $id=$Apache::inputtags::response['-1'];
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
Line 507 sub displayfoils {	Line 510 sub displayfoils {
}	}

sub displayallanswers {	sub displayallanswers {
my @names = @{ $Apache::response::foilgroup{'names'} };	my @names;
	if ( $Apache::response::foilgroup{'names'} ) {
	@names= @{ $Apache::response::foilgroup{'names'} };
	}

my $result=&Apache::response::answer_header('radiobuttonresponse');	my $result=&Apache::response::answer_header('radiobuttonresponse');
foreach my $name (@names) {	foreach my $name (@names) {