Pass the flavour to the Intranet when creating project
This commit is contained in:
parent
ef85ae2708
commit
8e3d6e5464
1 changed files with 6 additions and 2 deletions
|
@ -10,9 +10,10 @@ use Carp;
|
||||||
use ACU::API::Base;
|
use ACU::API::Base;
|
||||||
use ACU::LDAP;
|
use ACU::LDAP;
|
||||||
|
|
||||||
sub add($;$)
|
sub add($$;$)
|
||||||
{
|
{
|
||||||
my $project_name = shift;
|
my $project_name = shift;
|
||||||
|
my $falvour = shift;
|
||||||
my $year = shift;
|
my $year = shift;
|
||||||
|
|
||||||
if ($year and $year != LDAP::get_year) {
|
if ($year and $year != LDAP::get_year) {
|
||||||
|
@ -21,7 +22,10 @@ sub add($;$)
|
||||||
|
|
||||||
my $res = API::Base::send('ResultHandler',
|
my $res = API::Base::send('ResultHandler',
|
||||||
"projects/projects/add.xml",
|
"projects/projects/add.xml",
|
||||||
[ project_name => $project_name ]);
|
[
|
||||||
|
project_name => $project_name,
|
||||||
|
flavour => $flavour,
|
||||||
|
]);
|
||||||
|
|
||||||
if ($res->{result} ne '0') {
|
if ($res->{result} ne '0') {
|
||||||
croak "Erreur durant l'ajout : ".$res->{message};
|
croak "Erreur durant l'ajout : ".$res->{message};
|
||||||
|
|
Reference in a new issue