From aa7efab83fa1b8ce23dcacc134e05e163eebec3f Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Tue, 3 Sep 2013 07:21:32 +0200
Subject: [PATCH] Fixes on API::Submission

---
 ACU/API/Submission.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ACU/API/Submission.pm b/ACU/API/Submission.pm
index bda153c..1dd9ceb 100644
--- a/ACU/API/Submission.pm
+++ b/ACU/API/Submission.pm
@@ -1,6 +1,6 @@
 #! /usr/bin/env perl
 
-package Submission;
+package API::Submission;
 
 use v5.10.1;
 use strict;
@@ -16,7 +16,7 @@ sub add($$$$$)
     my $user = shift;
     my $log = shift;
 
-    my $res = Base::send('ResultHandler', "projects/submissions/add.xml", [ leader_login => $user, project_name => $project, year => $year, log => $log, tag => $tag ]);
+    my $res = API::Base::send('ResultHandler', "projects/submissions/add.xml", [ leader_login => $user, project_name => $project, year => $year, log => $log, tag => $tag ]);
 
     if ($res->{result} == '0') {
 	say "Rendu ok";
@@ -33,10 +33,10 @@ sub get($$$$)
     my $tag = shift;
     my $user = shift;
 
-    my $res = Base::get('ResultHandler', "projects/submissions/get/$project/$year/$user/$tag.xml");
+    my $res = API::Base::get('ResultHandler', "projects/submissions/get/$project/$year/$user/$tag.xml");
 
     if ($res->{result} == '0') {
-	say "Rendu ok";
+	say "Rendu déjà effectué";
     }
     elsif ($res->{result} == '1') {
 	say "Pas encore rendu";