[LON-CAPA-cvs] cvs: loncom /interface loncoursedata.pm

[matthew]

matthew		Fri Apr 18 15:05:30 2003 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  Fix for bug 1379 where not all sequences were found in 
      &get_sequence_assessment_data().
  Fixed bug where user submissions were not quoted properly when being stored
  in the MySQL database.
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.68 loncom/interface/loncoursedata.pm:1.69
--- loncom/interface/loncoursedata.pm:1.68	Fri Apr 11 11:14:25 2003
+++ loncom/interface/loncoursedata.pm	Fri Apr 18 15:05:30 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.68 2003/04/11 15:14:25 matthew Exp $
+# $Id: loncoursedata.pm,v 1.69 2003/04/18 19:05:30 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -137,8 +137,6 @@
     # We need to keep track of which sequences contain homework problems
     # 
     my $previous;
-    $curRes = $iterator->next(); # BEGIN_MAP
-    $curRes = $iterator->next(); # The first item in the top level map.
     while (scalar(@Nested_Sequences)) {
         $previous = $curRes;
         $curRes = $iterator->next();
@@ -862,7 +860,8 @@
             if ($parameter !~ /(timestamp|resource\.(.*)\.(solved|tries|awarded|award|awarddetail|previous))/) {
                 $newstring = "('".join("','",
                                        $symb_id,$student_id,
-                                       $parameter,$value)."'),\n";
+                                       $parameter)."',".
+                                           $dbh->quote($value)."),\n";
                 $num_parameters ++;
                 if ($newstring !~ /''/) {
                     $store_parameters_command .= $newstring;