epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Typo in API/Projects.pm

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-21 18:44:30 +02:00
parent 8e3d6e5464
commit 279b9ea07e
3 changed files with 5 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ACU/API/Projects.pm
View file

@ -13,7 +13,7 @@ use ACU::LDAP;
sub add($$;$)
{
my $project_name = shift;
my $falvour = shift;
my $flavor = shift;
my $year = shift;
if ($year and $year != LDAP::get_year) {
@ -24,7 +24,7 @@ sub add($$;$)
"projects/projects/add.xml",
[
project_name => $project_name,
flavour => $flavour,
flavor => $flavor,
]);
if ($res->{result} ne '0') {

8
process/files/moulette_get.pl
View file

@ -3,7 +3,7 @@
use v5.10.1;
use strict;
use warnings;
#use threads;
use threads;
use Carp;
use File::Basename;
use File::Copy;
@ -317,9 +317,5 @@ sub process_get
return "Ok";
}
#threads->create('monitor_start');
threads->create('monitor_start');
Process::register("moulette_get", \&process_get);
#$project_paths{'/data/output/2016-exam-c-0-rendu-1'} = { "id" => "exam-c-0", "year" => "2016", "rendu" => "rendu-1" };
#$fm->monitor('/data/output/2016-exam-c-0-rendu-1');
#monitor_start();

6
process/projects/gen_grading.pl
View file

@ -27,11 +27,7 @@ sub process
my $year = shift @args // LDAP::get_year;
# Project existing?
if (! -d "$basedir/$year/$project_id")
{
log ERROR, "Unable to find $project_id in $year";
return "Unable to find $project_id in $year\n";
}
croak "Unable to find $project_id in $year" if (! -d "$basedir/$year/$project_id");
my $grade = Grading->new();