loncom/metadata_database/parse_activity_log.pl - diff

Return to parse_activity_log.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.10, 2004/12/22 19:25:42	version 1.11, 2004/12/22 20:42:39
Line 480 sub process_courselog {	Line 480 sub process_courselog {
'uname= '.$uname.$/.	'uname= '.$uname.$/.
'udom = '.$udom.$/.	'udom = '.$udom.$/.
'action='.$action.$/.	'action='.$action.$/.
'@values = '.join(':',@values));	'@values = '.join('&',@values));
next; #skip it if we cannot understand what is happening.	next; #skip it if we cannot understand what is happening.
}	}
if (! defined($student) \|\| $student eq ':') {	if (! defined($student) \|\| $student eq ':') {
Line 524 sub process_courselog {	Line 524 sub process_courselog {
next; # skip this chunk	next; # skip this chunk
}	}
#	#
my $values = $dbh->quote(join(':',map { &escape($_); } @values));	my $store_values;
	if ($action eq 'POST') {
	$store_values =
	$dbh->quote(join('&',map { &escape($_); } @values));
	} else {
	$store_values = $dbh->quote(join('&',@values));
	}
$time_this->('get_ids');	$time_this->('get_ids');
#	#
my $row = [$res_id,	my $row = [$res_id,
Line 534 sub process_courselog {	Line 540 sub process_courselog {
# $action_id,	# $action_id,
qq{''}, # idx	qq{''}, # idx
$machine_id,	$machine_id,
$values];	$store_values];
push(@RowData,$row);	push(@RowData,$row);
$time_this->('push_row');	$time_this->('push_row');
$prevchunk = $chunk;	$prevchunk = $chunk;