epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Allow negative bonus

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2014-01-15 00:40:41 +01:00
parent aa3b69f5b3
commit b38f15b0b6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
process/files/intradata_get.pl
View File

@ -203,7 +203,7 @@ sub grades_new_bonus
for my $line (@lines) 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 $login = $1;
my $tvalue = $2 // $value; my $tvalue = $2 // $value;