From 8e3d6e5464cd36b4d47eb0948399078669dc11b9 Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Mon, 21 Oct 2013 00:40:41 +0200 Subject: [PATCH] Pass the flavour to the Intranet when creating project --- ACU/API/Projects.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/ACU/API/Projects.pm b/ACU/API/Projects.pm index 1395ff1..c5bcb9c 100644 --- a/ACU/API/Projects.pm +++ b/ACU/API/Projects.pm @@ -10,9 +10,10 @@ use Carp; use ACU::API::Base; use ACU::LDAP; -sub add($;$) +sub add($$;$) { my $project_name = shift; + my $falvour = shift; my $year = shift; if ($year and $year != LDAP::get_year) { @@ -21,7 +22,10 @@ sub add($;$) my $res = API::Base::send('ResultHandler', "projects/projects/add.xml", - [ project_name => $project_name ]); + [ + project_name => $project_name, + flavour => $flavour, + ]); if ($res->{result} ne '0') { croak "Erreur durant l'ajout : ".$res->{message};