Archived
1
0

Handle comma in bonus/malus files

This commit is contained in:
Mercier Pierre-Olivier 2013-09-24 02:14:11 +02:00
parent 488c2bbbb8
commit 0f385f3838

View File

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