From aa3b69f5b3b5eb27515d1d4636167d567c886ab3 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Tue, 14 Jan 2014 00:58:44 +0100
Subject: [PATCH] Grades: fix globing exponentiation

---
 ACU/Grading.pm             | 2 +-
 commands/project/create.pl | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/ACU/Grading.pm b/ACU/Grading.pm
index d27d480..479258f 100644
--- a/ACU/Grading.pm
+++ b/ACU/Grading.pm
@@ -352,7 +352,7 @@ sub compute ($$$;$$$)
 	    {
 		my $value = 0;
 		for my $r (grep { match_glob($ref, $_); } keys %$ids) {
-		    $value += $ids->{ $r };
+		    $value += $ids->{ $r } if ($ref != $r);
 		}
 		$ids->{ $ref } = $value if ($value);
 		log DEBUG, "New globbing identifier caculated $ref: $value";
diff --git a/commands/project/create.pl b/commands/project/create.pl
index 8407a7e..6dd50c9 100644
--- a/commands/project/create.pl
+++ b/commands/project/create.pl
@@ -4,15 +4,13 @@ use v5.10.1;
 use strict;
 use warnings;
 
-use lib "../../";
-
 use ACU::API::Base;
 use ACU::API::Projects;
 
 
 if ($#ARGV == 0)
 {
-    API::Projects::add($ARGV[0]);
+    API::Projects::add($ARGV[0], "");
 }
 else
 {