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

Can add grades to project

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-08 20:00:12 +02:00
parent 706c10a2bb
commit 2b5d936c8e
2 changed files with 110 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

24
commands/project/grades.pl Normal file
View file

@ -0,0 +1,24 @@
#! /usr/bin/env perl
use v5.10.1;
use strict;
use warnings;
use lib "../";
use ACU::API::Base;
use ACU::API::Projects;
if ($#ARGV == 0)
{
API::Projects::add_grades($ARGV[0]);
}
elsif ($#ARGV == 1)
{
API::Projects::add_grades($ARGV[0], $ARGV[1]);
}
else
{
say "$0 <project_id> [project_year]";
}