--- loncom/interface/loncoursedata.pm 2024/08/22 19:15:58 1.201.2.6.2.2 +++ loncom/interface/loncoursedata.pm 2021/03/02 19:51:02 1.205 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.201.2.6.2.2 2024/08/22 19:15:58 raeburn Exp $ +# $Id: loncoursedata.pm,v 1.205 2021/03/02 19:51:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -777,8 +777,6 @@ sub symb_is_for_task { return ($symb =~ /\.task$/); } -my $requested_max_packet = 0; -my $max_allowed_packet; sub update_full_student_data { my ($sname,$sdom,$courseid) = @_; @@ -966,26 +964,9 @@ sub update_full_student_data { } ## ## Store the response data - my $store_prefix = 'INSERT IGNORE INTO '.$fulldump_response_table. + $store_command = 'INSERT IGNORE INTO '.$fulldump_response_table. ' VALUES '."\n"; $store_rows = 0; - unless ($requested_max_packet) { - (undef,$max_allowed_packet) = $dbh->selectrow_array( - qq{show variables LIKE ? }, - undef, - "max_allowed_packet"); - if ($max_allowed_packet !~ /^\d+$/) { - $max_allowed_packet = ''; - } - $requested_max_packet = 1; - } - my @store_values = (); - my $curr_values = ''; - my $curr_length = 0; - my ($max_values); - if ($max_allowed_packet) { - $max_values = $max_allowed_packet - length($store_prefix); - } while (my ($symb_id,$hash1) = each (%$respdata)) { while (my ($part_id,$hash2) = each (%$hash1)) { while (my ($resp_id,$hash3) = each (%$hash2)) { @@ -997,7 +978,7 @@ sub update_full_student_data { # and odd number of '\' cause insert errors to occur. # Best trap this somehow... $submission = $dbh->quote($submission); - my $sql_values = "('". + $store_command .= "('". join("','",$symb_id,$part_id, $resp_id,$student_id, $transaction, @@ -1005,51 +986,20 @@ sub update_full_student_data { $data->{'response_specific'}, $data->{'response_specific_value'}, $data->{'response_specific_2'}, - $data->{'response_specific_value_2'})."',"; - if ($max_values) { - my $length = length($sql_values) + length($submission."),"); - if ($length > $max_values) { - &Apache::lonnet::logthis("SQL responsedata insert for student: $sname would exceed max_allowed_packet size"); - &Apache::lonnet::logthis("symb_id: $symb_id, part_id: $part_id, resp_id: $resp_id"); - &Apache::lonnet::logthis("You may want to increase the max_allowed_packet size from the current: $max_allowed_packet"); - $sql_values .= $dbh->quote('WARNING: Submission too large -- see grading interface for actual submission')."),"; - $length = length($sql_values); - &Apache::lonnet::logthis("Placeholder inserted instead of value of actual submission"); - &Apache::lonnet::logthis("See grading interface for the actual submission"); - } else { - $sql_values .= $submission."),"; - } - if ($length + $curr_length > $max_values) { - push(@store_values,$curr_values); - $curr_values = $sql_values; - $curr_length = $length; - } else { - $curr_values .= $sql_values; - $curr_length += $length; - } - } else { - $curr_values .= $sql_values.$submission."),"; - } + $data->{'response_specific_value_2'}). + "',".$submission."),"; $store_rows++; } } } } if ($store_rows) { - if ($curr_values ne '') { - push(@store_values,$curr_values); - } - foreach my $item (@store_values) { - chop($item); - if ($item ne '') { - $dbh->do($store_prefix.$item); - if ($dbh->err) { - $returnstatus = 'error saving response data'; - &Apache::lonnet::logthis('insert error '.$dbh->errstr()); - &Apache::lonnet::logthis("While attempting\n".$store_prefix.$item); - last; - } - } + chop($store_command); + $dbh->do($store_command); + if ($dbh->err) { + $returnstatus = 'error saving response data'; + &Apache::lonnet::logthis('insert error '.$dbh->errstr()); + &Apache::lonnet::logthis("While attempting\n".$store_command); } } ## @@ -1062,7 +1012,7 @@ sub update_full_student_data { $returnstatus = 'error saving current data:'.$status; } elsif ($status ne 'okay') { $returnstatus .= ' error saving current data:'.$status; - } + } ## ## Update the students time...... if ($returnstatus eq 'okay') { @@ -1132,6 +1082,9 @@ sub store_updatetime { $dbh->do($request); } +my $requested_max_packet = 0; +my $max_allowed_packet; + sub store_student_data { my ($sname,$sdom,$courseid,$student_data) = @_; # @@ -1197,28 +1150,18 @@ sub store_student_data { if ($length > $max_param) { &Apache::lonnet::logthis("SQL parameter insert for student: $sname for parameter: $parameter would exceed max_allowed_packet size"); &Apache::lonnet::logthis("symb_id: $symb_id"); - &Apache::lonnet::logthis("You may want to increase the max_allowed_packet size from the current: $max_allowed_packet"); - if ($parameter =~ /\.submission$/) { - $sql_parameter = "('".join("','", - $symb_id,$student_id, - $parameter)."',". - $dbh->quote('WARNING: Submission too large -- see grading interface for actual submission')."),\n"; - $length = length($sql_parameter); - &Apache::lonnet::logthis("Placeholder inserted instead of value of actual submission"); - &Apache::lonnet::logthis("See grading interface for the actual submission"); + &Apache::lonnet::logthis("Skipping this item. You may want to increase the max_allowed_packet size from the current: $max_allowed_packet"); + next; + } else { + if ($length + $curr_params_length > $max_param) { + push(@store_parameters_values,$curr_params_values); + $curr_params_values = $sql_parameter; + $curr_params_length = $length; } else { - &Apache::lonnet::logthis("Skipping this item"); - next; + $curr_params_values .= $sql_parameter; + $curr_params_length += $length; } } - if ($length + $curr_params_length > $max_param) { - push(@store_parameters_values,$curr_params_values); - $curr_params_values = $sql_parameter; - $curr_params_length = $length; - } else { - $curr_params_values .= $sql_parameter; - $curr_params_length += $length; - } } else { $curr_params_values .= $sql_parameter; } @@ -2520,7 +2463,7 @@ sub get_student_scores { &Apache::lonnet::logthis('prepared then executed '.$/.$request); return undef; } - $request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score ORDER BY score'; + $request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score'; # &Apache::lonnet::logthis("request = \n".$request); $sth = $dbh->prepare($request); $sth->execute(); @@ -2619,7 +2562,6 @@ sub CL_PHOTO { return 16; } sub CL_THUMBNAIL { return 17; } sub CL_AUTHORQUOTA { return 18; } sub CL_AUTHORUSAGE { return 19; } -sub CL_CAMANAGER {return 20; } sub get_classlist { my ($cdom,$cnum) = @_;