|
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 |
- |
|
|