Archived
1
0

Launch grading in background

This commit is contained in:
Mercier Pierre-Olivier 2013-09-22 06:11:02 +02:00
parent fe467fdd93
commit cfd1cfd2e9

View File

@ -232,7 +232,7 @@ sub tag_grades
if ($_[4]) {
# Check on year
if ($_[4] !~ /^\d+$/) {
log ERROR, "project:*:* second argument is the year. Tag format: project:id:year";
log ERROR, "grades,*,*,* second argument is the year. Tag format: grades,version,id,year";
}
$year = $_[4];
@ -267,7 +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 }))
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 };