Handle comma in bonus/malus files
This commit is contained in:
parent
488c2bbbb8
commit
0f385f3838
@ -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;
|
||||
|
Reference in New Issue
Block a user