--- loncom/metadata_database/parse_activity_log.pl 2005/09/19 20:30:37 1.17 +++ loncom/metadata_database/parse_activity_log.pl 2005/09/20 16:50:40 1.18 @@ -2,7 +2,7 @@ # # The LearningOnline Network # -# $Id: parse_activity_log.pl,v 1.17 2005/09/19 20:30:37 albertel Exp $ +# $Id: parse_activity_log.pl,v 1.18 2005/09/20 16:50:40 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -488,6 +488,19 @@ sub process_courselog { foreach my $chunk (split(/\&\&\&/,$log)) { my $warningflag = ''; my ($time,$res,$uname,$udom,$action,@values)= split(/:/,$chunk); + # + # Sometimes we get a file pasted into the activity.log from + # an upload form. Here we try to detect it and avoid inserting + # it into the database to avoid the quiet death of the database + # connection + my $i; + for ($i=0;$i<$#values;$i++) { + if ($values[$i] =~ /^HWVAL/) { + $#values = $i; + last; + } + } + # if (! defined($res) || $res =~ /^\s*$/) { $res = '/adm/roles'; $action = 'LOGIN';