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

Fix project creation

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-09 14:02:59 +02:00
parent b27e8e45ae
commit 67b5a79301
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ACU/API/Projects.pm
View File

@ -66,10 +66,13 @@ sub get_users($;$)
sub add_grades($;$)
{
my $project_name = shift;
my $year = shift;
my %data;
$data{project_name} = $project_name if (my $project_name = shift);
$data{year} = $year if (my $year = shift);
$data{project_name} = $project_name if ($project_name);
$data{year} = $year if ($year);
my $res = API::Base::send('ResultHandler', "projects/notes/add.xml", \%data);

3
Makefile
View File

@ -1,5 +1,6 @@
COPY=cp -v
DEST=/usr/local/share/perl/`ls -1 /usr/lib/perl/ | tail -1`/
GITOLITE_DEST=/srv/git/repositories/.gitolite
MAKEDIR=mkdir
PROVER=prove -f
RM=rm
@ -8,9 +9,11 @@ TESTDIR=t
install:
$(MAKEDIR) -p $(DEST)
$(COPY) -r ACU/ $(DEST)
test -d $(GITOLITE_DEST)/src && $(COPY) hooks/* $(GITOLITE_DEST)/src
unstall:
$(RM) -r $(DEST)/ACU/
test -d $(GITOLITE_DEST)/src && $(RM) $(GITOLITE_DEST)/src/*
test:
$(PROVER) $(TESTDIR)

2
commands/project/create.pl
View File

@ -4,7 +4,7 @@ use v5.10.1;
use strict;
use warnings;
use lib "../";
use lib "../../";
use ACU::API::Base;
use ACU::API::Projects;