--- loncom/interface/loncoursedata.pm	2003/10/02 20:48:57	1.100
+++ loncom/interface/loncoursedata.pm	2003/10/07 15:30:09	1.102
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.100 2003/10/02 20:48:57 matthew Exp $
+# $Id: loncoursedata.pm,v 1.102 2003/10/07 15:30:09 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1222,6 +1222,7 @@ sub update_full_student_data {
                     # However, there is one wrinkle: submissions which end in
                     # and odd number of '\' cause insert errors to occur.  
                     # Best trap this somehow...
+                    $value =~ s/\'/\\\'/g;
                     my ($offensive_string) = ($value =~ /(\\+)$/);
                     if (length($offensive_string) % 2) {
                         $value =~ s/\\$/\\\\/;
@@ -1248,6 +1249,7 @@ sub update_full_student_data {
                 $store_command .= "('".join("','",$symb_id,$part_id,
                                             $student_id,
                                             $transaction,
+                                            $data->{'tries'},
                                             $data->{'award'},
                                             $data->{'awarded'},
                                             $data->{'previous'})."'),";
@@ -1276,7 +1278,6 @@ sub update_full_student_data {
                     $store_command .= "('".join("','",$symb_id,$part_id,
                                                 $resp_id,$student_id,
                                                 $transaction,
-                                                $data->{'tries'},
                                                 $data->{'awarddetail'},
                                                 $data->{'response_specific'},
                                                 $data->{'response_specific_value'},