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.17, 2005/09/19 20:30:37
+version 1.18, 2005/09/20 16:50:40
  Line 488  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';