Typo in API/Projects.pm
This commit is contained in:
parent
8e3d6e5464
commit
279b9ea07e
3 changed files with 5 additions and 13 deletions
|
|
@ -13,7 +13,7 @@ use ACU::LDAP;
|
||||||
sub add($$;$)
|
sub add($$;$)
|
||||||
{
|
{
|
||||||
my $project_name = shift;
|
my $project_name = shift;
|
||||||
my $falvour = shift;
|
my $flavor = shift;
|
||||||
my $year = shift;
|
my $year = shift;
|
||||||
|
|
||||||
if ($year and $year != LDAP::get_year) {
|
if ($year and $year != LDAP::get_year) {
|
||||||
|
|
@ -24,7 +24,7 @@ sub add($$;$)
|
||||||
"projects/projects/add.xml",
|
"projects/projects/add.xml",
|
||||||
[
|
[
|
||||||
project_name => $project_name,
|
project_name => $project_name,
|
||||||
flavour => $flavour,
|
flavor => $flavor,
|
||||||
]);
|
]);
|
||||||
|
|
||||||
if ($res->{result} ne '0') {
|
if ($res->{result} ne '0') {
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
use v5.10.1;
|
use v5.10.1;
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
#use threads;
|
use threads;
|
||||||
use Carp;
|
use Carp;
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
use File::Copy;
|
use File::Copy;
|
||||||
|
|
@ -317,9 +317,5 @@ sub process_get
|
||||||
return "Ok";
|
return "Ok";
|
||||||
}
|
}
|
||||||
|
|
||||||
#threads->create('monitor_start');
|
threads->create('monitor_start');
|
||||||
Process::register("moulette_get", \&process_get);
|
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();
|
|
||||||
|
|
|
||||||
|
|
@ -27,11 +27,7 @@ sub process
|
||||||
my $year = shift @args // LDAP::get_year;
|
my $year = shift @args // LDAP::get_year;
|
||||||
|
|
||||||
# Project existing?
|
# Project existing?
|
||||||
if (! -d "$basedir/$year/$project_id")
|
croak "Unable to find $project_id in $year" if (! -d "$basedir/$year/$project_id");
|
||||||
{
|
|
||||||
log ERROR, "Unable to find $project_id in $year";
|
|
||||||
return "Unable to find $project_id in $year\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
my $grade = Grading->new();
|
my $grade = Grading->new();
|
||||||
|
|
||||||
|
|
|
||||||
Reference in a new issue