--- loncom/interface/loncoursedata.pm 2004/02/06 19:35:00 1.116 +++ loncom/interface/loncoursedata.pm 2004/02/17 19:56:30 1.117 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.116 2004/02/06 19:35:00 matthew Exp $ +# $Id: loncoursedata.pm,v 1.117 2004/02/17 19:56:30 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2107,6 +2107,10 @@ sub get_response_data { } my $dataset = $sth->fetchall_arrayref(); if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { + # Clear the \'s from around the submission + for (my $i =0;$i[$i]->[3] =~ s/(\'$|^\')//g; + } return $dataset; } }