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)
|
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 $login = $1;
|
||||||
my $tvalue = $2 // $value;
|
my $tvalue = $2 // $value;
|
||||||
|
Reference in New Issue
Block a user