Archived
1
0
Fork 0

Zero values are now treated as valid computation

This commit is contained in:
Mercier Pierre-Olivier 2013-09-21 22:26:39 +02:00
parent 664617171e
commit d709297002
2 changed files with 9 additions and 7 deletions

View file

@ -8,6 +8,7 @@ use File::Basename;
use lib "../../";
use ACU::LDAP;
use ACU::Log;
use ACU::Process;
@ -18,7 +19,7 @@ if ($#ARGV >= 1)
if ($year !~ /^[0-9]{4}$/)
{
unshift $year;
unshift @_, $year;
$year = LDAP::get_year();
}
@ -32,7 +33,7 @@ if ($#ARGV >= 1)
close $input unless $input eq *STDIN;
$file{ basename($f, ".txt", ".lst", ".list", ".xml") } = $cnt;
$files{ basename($f, ".txt", ".lst", ".list", ".xml") } = $cnt;
}
if (my $err = Process::Client::launch("intradata_get", { action => "new_bonus", type => "grades", id => $project_id, "year" => $year }, \%files))