Zero values are now treated as valid computation
This commit is contained in:
parent
664617171e
commit
d709297002
2 changed files with 9 additions and 7 deletions
|
@ -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))
|
||||
|
|
Reference in a new issue