--- loncom/interface/loncoursedata.pm	2003/10/03 16:39:17	1.101
+++ 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.101 2003/10/03 16:39:17 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/\\$/\\\\/;