Lines 1-3
Link Here
|
|
|
1 |
#!/usr/bin/perl |
1 |
use Modern::Perl; |
2 |
use Modern::Perl; |
2 |
use Test::More tests => 120; |
3 |
use Test::More tests => 120; |
3 |
|
4 |
|
Lines 432-454
ok($bpid=AddBudgetPeriod(
Link Here
|
432 |
{ budget_period_startdate =>'01-01-2008' |
433 |
{ budget_period_startdate =>'01-01-2008' |
433 |
, budget_period_enddate =>'31-12-2008' |
434 |
, budget_period_enddate =>'31-12-2008' |
434 |
, budget_period_description =>"MAPERI" |
435 |
, budget_period_description =>"MAPERI" |
435 |
, budget_period_active =>1 |
436 |
, budget_period_active =>1}), |
436 |
, budget_description =>"MAPERI"}), |
|
|
437 |
"AddBudgetPeriod returned $bpid"); |
437 |
"AddBudgetPeriod returned $bpid"); |
438 |
} elsif (C4::Context->preference('dateformat') eq "us"){ |
438 |
} elsif (C4::Context->preference('dateformat') eq "us"){ |
439 |
ok($bpid=AddBudgetPeriod( |
439 |
ok($bpid=AddBudgetPeriod( |
440 |
{ budget_period_startdate =>'01-01-2008' |
440 |
{ budget_period_startdate =>'01-01-2008' |
441 |
, budget_period_enddate =>'12-31-2008' |
441 |
, budget_period_enddate =>'12-31-2008' |
442 |
, budget_period_description =>"MAPERI" |
442 |
, budget_period_description =>"MAPERI" |
443 |
, budget_period_active =>1 |
443 |
, budget_period_active =>1}), |
444 |
, budget_description =>"MAPERI"}), |
|
|
445 |
"AddBudgetPeriod returned $bpid"); |
444 |
"AddBudgetPeriod returned $bpid"); |
446 |
} |
445 |
} |
447 |
else{ |
446 |
else{ |
448 |
ok($bpid=AddBudgetPeriod( |
447 |
ok($bpid=AddBudgetPeriod( |
449 |
{budget_period_startdate=>'2008-01-01' |
448 |
{budget_period_startdate=>'2008-01-01' |
450 |
,budget_period_enddate =>'2008-12-31' |
449 |
,budget_period_enddate =>'2008-12-31' |
451 |
,budget_description =>"MAPERI" |
|
|
452 |
,budget_period_active =>1 |
450 |
,budget_period_active =>1 |
453 |
,budget_period_description =>"MAPERI" |
451 |
,budget_period_description =>"MAPERI" |
454 |
}), |
452 |
}), |
Lines 497-503
ok($second_budget_id=AddBudget(
Link Here
|
497 |
budget_amount => "500.00", |
495 |
budget_amount => "500.00", |
498 |
budget_name => "Art", |
496 |
budget_name => "Art", |
499 |
budget_notes => "This is a note", |
497 |
budget_notes => "This is a note", |
500 |
budget_description=> "Art", |
|
|
501 |
budget_active => 1, |
498 |
budget_active => 1, |
502 |
budget_period_id => $bpid, |
499 |
budget_period_id => $bpid, |
503 |
} |
500 |
} |
504 |
- |
|
|