Archived
1
0

Allow negative bonus

This commit is contained in:
Mercier Pierre-Olivier 2014-01-15 00:40:41 +01:00
parent aa3b69f5b3
commit b38f15b0b6

View File

@ -203,7 +203,7 @@ sub grades_new_bonus
for my $line (@lines)
{
if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*([0-9.]+))?$/)
if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(-?[0-9.]+))?$/)
{
my $login = $1;
my $tvalue = $2 // $value;