--- loncom/interface/loncoursedata.pm 2004/02/03 20:44:06 1.115 +++ loncom/interface/loncoursedata.pm 2004/02/06 19:35:00 1.116 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.115 2004/02/03 20:44:06 matthew Exp $ +# $Id: loncoursedata.pm,v 1.116 2004/02/06 19:35:00 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1235,11 +1235,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/\\$/\\\\/; - } + $value = $dbh->quote($value); } if ($field eq 'submissiongrading' || $field eq 'molecule') { @@ -2168,7 +2164,7 @@ sub get_response_time_data { =pod -=item &get_student_scores($Students,$Symbs,$enrollment,$courseid) +=item &get_student_scores($Sections,$Symbs,$enrollment,$courseid) =cut