loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;