loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.100, 2003/10/02 20:48:57	version 1.102, 2003/10/07 15:30:09
Line 1222 sub update_full_student_data {	Line 1222 sub update_full_student_data {
# However, there is one wrinkle: submissions which end in	# However, there is one wrinkle: submissions which end in
# and odd number of '\' cause insert errors to occur.	# and odd number of '\' cause insert errors to occur.
# Best trap this somehow...	# Best trap this somehow...
	$value =~ s/\'/\\\'/g;
my ($offensive_string) = ($value =~ /(\\+)$/);	my ($offensive_string) = ($value =~ /(\\+)$/);
if (length($offensive_string) % 2) {	if (length($offensive_string) % 2) {
$value =~ s/\\$/\\\\/;	$value =~ s/\\$/\\\\/;
Line 1248 sub update_full_student_data {	Line 1249 sub update_full_student_data {
$store_command .= "('".join("','",$symb_id,$part_id,	$store_command .= "('".join("','",$symb_id,$part_id,
$student_id,	$student_id,
$transaction,	$transaction,
	$data->{'tries'},
$data->{'award'},	$data->{'award'},
$data->{'awarded'},	$data->{'awarded'},
$data->{'previous'})."'),";	$data->{'previous'})."'),";
Line 1276 sub update_full_student_data {	Line 1278 sub update_full_student_data {
$store_command .= "('".join("','",$symb_id,$part_id,	$store_command .= "('".join("','",$symb_id,$part_id,
$resp_id,$student_id,	$resp_id,$student_id,
$transaction,	$transaction,
$data->{'tries'},
$data->{'awarddetail'},	$data->{'awarddetail'},
$data->{'response_specific'},	$data->{'response_specific'},
$data->{'response_specific_value'},	$data->{'response_specific_value'},