loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.116, 2004/02/06 19:35:00	version 1.117, 2004/02/17 19:56:30
Line 2107 sub get_response_data {	Line 2107 sub get_response_data {
}	}
my $dataset = $sth->fetchall_arrayref();	my $dataset = $sth->fetchall_arrayref();
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) {	if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) {
	# Clear the \'s from around the submission
	for (my $i =0;$i<scalar(@$dataset);$i++) {
	$dataset->[$i]->[3] =~ s/(\'$\|^\')//g;
	}
return $dataset;	return $dataset;
}	}
}	}