Archived
1
0

Fix grading launch

This commit is contained in:
Mercier Pierre-Olivier 2013-09-22 06:12:40 +02:00
parent cfd1cfd2e9
commit 39758b9e4b

View File

@ -267,12 +267,7 @@ sub tag_grades
# Send data to intradata
log INFO, "Attente d'un processus de publication...";
if (my $err = Process::Client::launch("intradata_get", { action => "generate", type => "grades", id => $project_id, "year" => $year, "version" => $version }, { "grading.xml" => $content }, 1))
{
if (${ $err } ne "Ok") {
log ERROR, "Erreur durant le processus de publication : " . ${ $err };
}
}
Process::Client::launch("intradata_get", { action => "generate", type => "grades", id => $project_id, "year" => $year, "version" => $version }, { "grading.xml" => $content }, 1);
if ($long_tag)
{