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.25, 2014/11/24 02:36:34	version 1.26, 2024/11/21 07:26:02
Line 483 sub process_courselog {	Line 483 sub process_courselog {
# %3aCSTORE%3a(name)%3d(value)%26(name)%3d(value)	# %3aCSTORE%3a(name)%3d(value)%26(name)%3d(value)
# or	# or
# %3aPUTSTORE%3a(name)%3d(value)%26(name)%3d(value)	# %3aPUTSTORE%3a(name)%3d(value)%26(name)%3d(value)
	# or
	# %3aEXPORT%3a(name)%3d(value)%26(name)%3d(value)
#	#
# get delimiter between timestamped entries to be &&&	# get delimiter between timestamped entries to be &&&
$log=~s/\%26(\d{9,10})\%3a/\&\&\&$1\%3a/g;	$log=~s/\%26(\d{9,10})\%3a/\&\&\&$1\%3a/g;
Line 513 sub process_courselog {	Line 515 sub process_courselog {
if (! defined($action) \|\| $action eq '') {	if (! defined($action) \|\| $action eq '') {
$action = 'VIEW';	$action = 'VIEW';
}	}
if ($action !~ /^(LOGIN\|VIEW\|POST\|CSTORE\|STORE\|PUTSTORE)$/) {	if ($action !~ /^(LOGIN\|VIEW\|POST\|CSTORE\|STORE\|PUTSTORE\|EXPORT)$/) {
$warningflag .= 'action';	$warningflag .= 'action';
print $error_fh 'full log entry:'.$log.$/;	print $error_fh 'full log entry:'.$log.$/;
print $error_fh 'error on chunk (saving)'.$/;	print $error_fh 'error on chunk (saving)'.$/;