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

Fix value determination

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-20 18:03:40 +02:00
commit a380b4abbc
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
process/files/intradata_get.pl
View file

@ -75,12 +75,14 @@ sub grades_new_bonus
my $value = 1; my $value = 1;
# Looking for a global value # Looking for a global value
if ($lines[0] =~ /^\d+$/) { if ($lines[0] =~ /^(\d+)$/) {
$value = $1; $value = $1;
log INFO, "Setting global value to $value"; log INFO, "Setting global value to $value";
shift @lines; shift @lines;
} }
log TRACE, @lines;
for my $line (@lines) for my $line (@lines)
{ {
if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(\d+))?$/) if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(\d+))?$/)