--- loncom/interface/loncoursedata.pm 2021/03/04 23:55:05 1.201.2.4 +++ 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.4 2021/03/04 23:55:05 raeburn Exp $ +# $Id: loncoursedata.pm,v 1.205 2021/03/02 19:51:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1150,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; } @@ -1854,7 +1844,7 @@ sub populate_weight_table { my @resources; foreach my $seq (@sequences) { push(@resources,$navmap->retrieveResources($seq, - sub {shift->is_problem();}, + sub {shift->is_gradable();}, 0,0,0)); } if (! scalar(@resources)) {