version 1.68, 2003/04/11 15:14:25
|
version 1.69, 2003/04/18 19:05:30
|
Line 137 sub get_sequence_assessment_data {
|
Line 137 sub get_sequence_assessment_data {
|
# We need to keep track of which sequences contain homework problems |
# We need to keep track of which sequences contain homework problems |
# |
# |
my $previous; |
my $previous; |
$curRes = $iterator->next(); # BEGIN_MAP |
|
$curRes = $iterator->next(); # The first item in the top level map. |
|
while (scalar(@Nested_Sequences)) { |
while (scalar(@Nested_Sequences)) { |
$previous = $curRes; |
$previous = $curRes; |
$curRes = $iterator->next(); |
$curRes = $iterator->next(); |
Line 862 sub update_student_data {
|
Line 860 sub update_student_data {
|
if ($parameter !~ /(timestamp|resource\.(.*)\.(solved|tries|awarded|award|awarddetail|previous))/) { |
if ($parameter !~ /(timestamp|resource\.(.*)\.(solved|tries|awarded|award|awarddetail|previous))/) { |
$newstring = "('".join("','", |
$newstring = "('".join("','", |
$symb_id,$student_id, |
$symb_id,$student_id, |
$parameter,$value)."'),\n"; |
$parameter)."',". |
|
$dbh->quote($value)."),\n"; |
$num_parameters ++; |
$num_parameters ++; |
if ($newstring !~ /''/) { |
if ($newstring !~ /''/) { |
$store_parameters_command .= $newstring; |
$store_parameters_command .= $newstring; |