Archived
1
0

Test gearman return before continue

This commit is contained in:
Mercier Pierre-Olivier 2013-09-12 13:22:29 +02:00
parent bc0459433c
commit 85e97d2ce4

View File

@ -4,6 +4,7 @@ use strict;
use warnings;
use v5.10;
use ACU::API::Projects;
use ACU::LDAP;
use ACU::Log;
$ACU::Log::log_file = undef;
@ -137,7 +138,8 @@ sub tag_project
# Send data to intradata
log INFO, "Attente d'un processus de publication...";
Process::Client::launch("intradata_get", { action => "update", type => "project", id => $project_id, "year" => $year }, { "butler.xml" => $content });
log ERROR, "Erreur durant le processus de publication : $_"
if (!Process::Client::launch("intradata_get", { action => "update", type => "project", id => $project_id, "year" => $year }, { "butler.xml" => $content }));
# Call API
my $err = API::Projects::add($project_id, $year);