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

Grades: fix globing exponentiation

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2014-01-14 00:58:44 +01:00
parent 6e70dc24ff
commit aa3b69f5b3
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ACU/Grading.pm
View File

@ -352,7 +352,7 @@ sub compute ($$$;$$$)
{ {
my $value = 0; my $value = 0;
for my $r (grep { match_glob($ref, $_); } keys %$ids) { for my $r (grep { match_glob($ref, $_); } keys %$ids) {
$value += $ids->{ $r }; $value += $ids->{ $r } if ($ref != $r);
} }
$ids->{ $ref } = $value if ($value); $ids->{ $ref } = $value if ($value);
log DEBUG, "New globbing identifier caculated $ref: $value"; log DEBUG, "New globbing identifier caculated $ref: $value";

4
commands/project/create.pl
View File

@ -4,15 +4,13 @@ use v5.10.1;
use strict; use strict;
use warnings; use warnings;
use lib "../../";
use ACU::API::Base; use ACU::API::Base;
use ACU::API::Projects; use ACU::API::Projects;
if ($#ARGV == 0) if ($#ARGV == 0)
{ {
API::Projects::add($ARGV[0]); API::Projects::add($ARGV[0], "");
} }
else else
{ {