--- loncom/homework/radiobuttonresponse.pm 2001/12/14 23:00:52 1.33
+++ loncom/homework/radiobuttonresponse.pm 2002/01/07 18:03:57 1.34
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# mutliple choice style responses
#
-# $Id: radiobuttonresponse.pm,v 1.33 2001/12/14 23:00:52 albertel Exp $
+# $Id: radiobuttonresponse.pm,v 1.34 2002/01/07 18:03:57 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -153,11 +153,13 @@ sub end_foilgroup {
sub getfoilcounts {
my ($parstack,$safeeval)=@_;
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
- my @names = @{ $Apache::response::foilgroup{'names'} };
+ my @names;
my $truecnt=0;
my $falsecnt=0;
my $name;
-
+ if ( $Apache::response::foilgroup{'names'} ) {
+ @names= @{ $Apache::response::foilgroup{'names'} };
+ }
foreach $name (@names) {
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
$truecnt++;
@@ -195,7 +197,10 @@ sub whichfoils {
my @truelist;
my @falselist;
- my @names = @{ $Apache::response::foilgroup{'names'} };
+ my @names;
+ if ( $Apache::response::foilgroup{'names'} ) {
+ @names= @{ $Apache::response::foilgroup{'names'} };
+ }
foreach my $name (@names) {
#result.="
$name is $Apache::response::foilgroup{$name.'.value'} ";
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
@@ -256,7 +261,6 @@ sub displayfoils {
sub displayanswers {
my ($max,$answer)=@_;
- my @names = @{ $Apache::response::foilgroup{'names'} };
my @whichopt = &whichfoils($max,$answer);
my $result=&Apache::response::answer_header('radiobuttonresponse');
foreach my $name (@whichopt) {