d399ff3494
This big patch, fix xhtml code, and user interface. It Delete the term of budget period and use it as "Root Budget". It add improvment on UI, adding tooltip, and table tree.
122 lines
4.5 KiB
Perl
Executable file
122 lines
4.5 KiB
Perl
Executable file
use strict;
|
|
use warnings;
|
|
use Test::More tests=>18;
|
|
|
|
BEGIN {use_ok('C4::Budgets') }
|
|
use C4::Budgets;
|
|
use C4::Dates;
|
|
|
|
print "ok 1\n";
|
|
use YAML;
|
|
|
|
#
|
|
# Budget Periods :
|
|
#
|
|
my $bpid;
|
|
my $budgetperiod;
|
|
my $active_period;
|
|
my $mod_status;
|
|
my $del_status;
|
|
ok($bpid=AddBudgetPeriod(
|
|
{ budget_period_startdate => '2008-01-01'
|
|
, budget_period_enddate => '2008-12-31'
|
|
, budget_description => "MAPERI"}),
|
|
"AddBudgetPeriod with iso dates OK");
|
|
|
|
if (C4::Context->preference('dateformat') eq "metric"){
|
|
ok($bpid=AddBudgetPeriod(
|
|
{ budget_period_startdate => '01-01-2008'
|
|
, budget_period_enddate => '31-12-2008'
|
|
, budget_description => "MAPERI"}),
|
|
"AddBudgetPeriod returned $bpid");
|
|
}
|
|
elsif (C4::Context->preference('dateformat') eq "us"){
|
|
ok($bpid=AddBudgetPeriod(
|
|
{ budget_period_startdate => '01-01-2008'
|
|
, budget_period_enddate => '12-31-2008'
|
|
, budget_description => "MAPERI"}),
|
|
"AddBudgetPeriod returned $bpid");
|
|
}
|
|
|
|
ok($budgetperiod=GetBudgetPeriod($bpid),
|
|
"GetBudgetPeriod($bpid) returned ".Dump($budgetperiod));
|
|
ok(!GetBudgetPeriod(0) ,"GetBudgetPeriod(0) returned undef : noactive BudgetPeriod");
|
|
$$budgetperiod{budget_period_active}=1;
|
|
ok($mod_status=ModBudgetPeriod($budgetperiod),"ModBudgetPeriod OK");
|
|
ok($active_period=GetBudgetPeriod(0),"GetBudgetPeriod(0) returned".Dump($active_period));
|
|
ok(scalar(GetBudgetPeriods())>0,"GetBudgetPeriods OK");#Should at least return the Budget inserted
|
|
ok($del_status=DelBudgetPeriod($bpid),"DelBudgetPeriod returned $del_status");
|
|
|
|
#
|
|
# Budget :
|
|
#
|
|
|
|
# Add A budget Period
|
|
if (C4::Context->preference('dateformat') eq "metric"){
|
|
ok($bpid=AddBudgetPeriod(
|
|
{ budget_period_startdate =>'01-01-2008'
|
|
, budget_period_enddate =>'31-12-2008'
|
|
, budget_description =>"MAPERI"}),
|
|
"AddBudgetPeriod returned $bpid");
|
|
} elsif (C4::Context->preference('dateformat') eq "us"){
|
|
ok($bpid=AddBudgetPeriod(
|
|
{ budget_period_startdate =>'01-01-2008'
|
|
, budget_period_enddate =>'12-31-2008'
|
|
, budget_description =>"MAPERI"}),
|
|
"AddBudgetPeriod returned $bpid");
|
|
}
|
|
else{
|
|
ok($bpid=AddBudgetPeriod(
|
|
{budget_period_startdate=>'2008-01-01'
|
|
,budget_period_enddate =>'2008-12-31'
|
|
,budget_description =>"MAPERI"
|
|
}),
|
|
"AddBudgetPeriod returned $bpid");
|
|
|
|
}
|
|
my $budget_id;
|
|
ok($budget_id=AddBudget(
|
|
{ budget_code => "ABCD"
|
|
, budget_amount => "123.132"
|
|
, budget_name => "Périodiques"
|
|
, budget_notes => "This is a note"
|
|
, budget_description=> "Serials"
|
|
, budget_active => 1
|
|
, budget_period_id => $bpid
|
|
}
|
|
),
|
|
"AddBudget returned $budget_id");
|
|
#budget_code | varchar(30) | YES | | NULL | |
|
|
#| budget_amount | decimal(28,6) | NO | | 0.000000 | |
|
|
#| budget_id | int(11) | NO | PRI | NULL | |
|
|
#| budget_branchcode | varchar(10) | YES | | NULL | |
|
|
#| budget_parent_id | int(11) | YES | | NULL | |
|
|
#| budget_name | varchar(80) | YES | | NULL | |
|
|
#| budget_encumb | decimal(28,6) | YES | | 0.000000 | |
|
|
#| budget_expend | decimal(28,6) | YES | | 0.000000 | |
|
|
#| budget_notes | mediumtext | YES | | NULL | |
|
|
#| budget_description | mediumtext | YES | | NULL | |
|
|
#| timestamp | timestamp | NO | | CURRENT_TIMESTAMP | |
|
|
#| budget_period_id | int(11) | YES | MUL | NULL | |
|
|
#| sort1_authcat | varchar(80) | YES | | NULL | |
|
|
#| sort2_authcat | varchar(80) | YES | | NULL | |
|
|
#| budget_owner_id | int(11) | YES | | NULL | |
|
|
#| budget_permission | int(1) | YES | | 0 | |
|
|
|
|
my $budget;
|
|
ok($budget=GetBudget($budget_id) ,"GetBudget OK");
|
|
$$budget{budget_permission}=1;
|
|
ok($mod_status=ModBudget($budget),"ModBudget OK");
|
|
ok(GetBudgets()>0,
|
|
"GetBudgets OK");
|
|
ok(GetBudgets({budget_period_id=>$bpid})>0,
|
|
"GetBudgets With Filter OK");
|
|
ok(GetBudgets({budget_period_id=>$bpid},{"budget_description"=>0})>0,
|
|
"GetBudgets With Order OK");
|
|
ok(GetBudgets({budget_period_id=>GetBudgetPeriod(0)->{budget_period_id}},{"budget_description"=>0})>0,
|
|
"GetBudgets With Order
|
|
Getting Active budgetPeriod OK");
|
|
ok($del_status=DelBudget($budget_id),
|
|
"DelBudget returned $del_status");
|
|
|
|
|