[LON-CAPA-cvs] cvs: loncom /homework imageresponse.pm optionresponse.pm radiobuttonresponse.pm

[albertel]

albertel		Mon Jul 29 16:43:47 2002 EDT

  Modified files:              
    /loncom/homework	imageresponse.pm radiobuttonresponse.pm 
                    	optionresponse.pm 
  Log:
  - incorrect initializtions
  
  
Index: loncom/homework/imageresponse.pm
diff -u loncom/homework/imageresponse.pm:1.19 loncom/homework/imageresponse.pm:1.20
--- loncom/homework/imageresponse.pm:1.19	Tue Jul 23 10:41:06 2002
+++ loncom/homework/imageresponse.pm	Mon Jul 29 16:43:47 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # image click response style
 #
-# $Id: imageresponse.pm,v 1.19 2002/07/23 14:41:06 sakharuk Exp $
+# $Id: imageresponse.pm,v 1.20 2002/07/29 20:43:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -55,9 +55,9 @@
   return '';
 }
 
-%Apache::response::foilgroup={};
+%Apache::response::foilgroup=();
 sub start_foilgroup {
-  %Apache::response::foilgroup={};
+  %Apache::response::foilgroup=();
   $Apache::imageresponse::conceptgroup=0;
   &Apache::response::setrandomnumber();
   return '';
@@ -114,7 +114,6 @@
 
 sub gradefoils {
   my (@whichopt) = @_;
-  my $result='';
   my $x;
   my $y;
   my $result;
@@ -174,7 +173,7 @@
 
 sub start_conceptgroup {
   $Apache::imageresponse::conceptgroup=1;
-  %Apache::response::conceptgroup={};
+  %Apache::response::conceptgroup=();
   return '';
 }
 
Index: loncom/homework/radiobuttonresponse.pm
diff -u loncom/homework/radiobuttonresponse.pm:1.42 loncom/homework/radiobuttonresponse.pm:1.43
--- loncom/homework/radiobuttonresponse.pm:1.42	Wed Jul 17 14:06:18 2002
+++ loncom/homework/radiobuttonresponse.pm	Mon Jul 29 16:43:47 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.42 2002/07/17 18:06:18 albertel Exp $
+# $Id: radiobuttonresponse.pm,v 1.43 2002/07/29 20:43:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -74,9 +74,9 @@
   return $result;
 }
 
-%Apache::response::foilgroup={};
+%Apache::response::foilgroup=();
 sub start_foilgroup {
-  %Apache::response::foilgroup={};
+  %Apache::response::foilgroup=();
   $Apache::radiobuttonresponse::conceptgroup=0;
   &Apache::response::setrandomnumber();
   return '';
@@ -290,7 +290,7 @@
 sub start_conceptgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   $Apache::radiobuttonresponse::conceptgroup=1;
-  %Apache::response::conceptgroup={};
+  %Apache::response::conceptgroup=();
   my $result;
   if ($target eq 'edit') {
     $result.=&Apache::edit::tag_start($target,$token);
Index: loncom/homework/optionresponse.pm
diff -u loncom/homework/optionresponse.pm:1.43 loncom/homework/optionresponse.pm:1.44
--- loncom/homework/optionresponse.pm:1.43	Thu Jul 18 11:45:41 2002
+++ loncom/homework/optionresponse.pm	Mon Jul 29 16:43:47 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # option list style responses
 #
-# $Id: optionresponse.pm,v 1.43 2002/07/18 15:45:41 sakharuk Exp $
+# $Id: optionresponse.pm,v 1.44 2002/07/29 20:43:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -76,12 +76,12 @@
   return $result;
 }
 
-%Apache::response::foilgroup={};
+%Apache::response::foilgroup=();
 sub start_foilgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
 
   my $result='';
-  %Apache::response::foilgroup={};
+  %Apache::response::foilgroup=();
   $Apache::optionresponse::conceptgroup=0;
   &Apache::response::setrandomnumber();
   if ($target eq 'edit') {
@@ -334,7 +334,7 @@
 sub start_conceptgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   $Apache::optionresponse::conceptgroup=1;
-  %Apache::response::conceptgroup={};
+  %Apache::response::conceptgroup=();
   my $result;
   if ($target eq 'edit') {
     $result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils");