Archived
1
0
Fork 0

Add a way to remove bonus/malus

This commit is contained in:
Mercier Pierre-Olivier 2013-10-02 19:45:48 +02:00
parent 663a77a084
commit f3904e62b2
4 changed files with 33 additions and 6 deletions

View file

@ -56,7 +56,7 @@ sub process
my @keys = keys %$ids;
my $def_i = $keys[0];
$def_i =~ s/^(.+)g.*$/\1/;
$def_i =~ s/^(.+)g.*$/$1/;
$ids->{$def_i.'_end_$LOGIN'} = undef;
$ids->{$def_i.'_end_group'} = undef;