Bonus/malus are now individual by default

ACU/Trace.pm

@@ -10,6 +10,8 @@ use utf8;
 use open qw(:encoding(UTF-8) :std);
 use XML::LibXML;
 
+use ACU::Log;
+
 sub new
 {
     my $class = shift;
@@ -106,6 +108,8 @@ sub addId
     my $e = Trace::Eval->new($key);
     $e->addValue(undef, $value);
     push @{ $self->{groups} }, $e;
+
+    return $e;
 }
 
 sub delId
@@ -120,7 +124,7 @@ sub delId
 	{
 	    if (!$value || $value == $group->getValue())
 	    {
-		$self->{groups} = \{ grep { $_->{id} ne $key } @{ $self->{groups} } };
+		$self->{groups} = [ grep { $_->{id} ne $key } @{ $self->{groups} } ];
 	    }
 	    last;
 	}
@@ -228,6 +232,8 @@ use strict;
 use warnings;
 use Carp;
 
+use ACU::Log;
+
 sub new ($$)
 {
     my $class = shift;
@@ -419,6 +425,16 @@ sub delId
     # Do nothing here, just an abstract method
 }
 
+sub changeWho
+{
+    my $self = shift;
+
+    $self->{who} = {
+	login => shift,
+	type  => shift // "login"
+    };
+}
+
 sub getIds
 {
     my $self = shift;

process/files/intradata_get.pl

@@ -235,7 +235,8 @@ sub grades_new_bonus
 			$trace->delId($kbonus);
 		    }
 		} else {
-		    $trace->addId($kbonus, $tvalue);
+		    my $e = $trace->addId($kbonus, $tvalue);
+		    $e->changeWho($login, "login");
 		}
 
 		log DEBUG, "Updating $basedir/$year/$project_id/traces/bonus/$login.xml";