my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
my $budgetid;
my $bpid = AddBudgetPeriod({
- budget_period_startdate => '01-01-2015',
- budget_period_enddate => '12-31-2015',
+ budget_period_startdate => '2015-01-01',
+ budget_period_enddate => '2015-12-31',
budget_period_description => "budget desc"
});
my $subscriptionid = NewSubscription(
undef, "", undef, undef, $budget_id, $biblionumber,
- '01-01-2013',undef, undef, undef, undef,
+ '2013-01-01',undef, undef, undef, undef,
undef, undef, undef, undef, undef, undef,
- 1, "notes",undef, '01-01-2013', undef, undef,
+ 1, "notes",undef, '2013-01-01', undef, undef,
undef, undef, 0, "intnotes", 0,
- undef, undef, 0, undef, '31-12-2013', 0
+ undef, undef, 0, undef, '2013-12-31', 0
);
die unless $subscriptionid;
my $order = Koha::Acquisition::Order->new({
biblionumber => $subscription->{biblionumber},
- entrydate => '01-01-2013',
+ entrydate => '2013-01-01',
quantity => 1,
currency => $curcode,
listprice => $cost,
my $invoiceid = AddInvoice(invoicenumber => 'invoice1', booksellerid => $bookseller->id, unknown => "unknown");
my $invoice = GetInvoice( $invoiceid );
-$invoice->{datereceived} = '02-01-2013';
+$invoice->{datereceived} = '2013-01-02';
my ( $datereceived, $new_ordernumber ) = ModReceiveOrder(
{
quantity => 2,
biblionumber => $biblionumber,
budget_id => $budgetid,
- entrydate => '01-01-2014',
+ entrydate => '2014-01-01',
currency => $currency->{currency},
orderstatus => 1,
quantityreceived => 0,
my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
my $budgetid;
my $bpid = AddBudgetPeriod({
- budget_period_startdate => '01-01-2015',
- budget_period_enddate => '01-01-2016',
+ budget_period_startdate => '2015-01-01',
+ budget_period_enddate => '2016-01-01',
});
my $budget_id = AddBudget({
my $id_subscription1 = NewSubscription(
undef, 'BRANCH2', $id_supplier1, undef, $id_budget, $biblionumber,
- '01-01-2013',undef, undef, undef, undef,
+ '2013-01-01',undef, undef, undef, undef,
undef, undef, undef, undef, undef, undef,
- 1, "subscription notes",undef, '01-01-2013', undef, undef,
+ 1, "subscription notes",undef, '2013-01-01', undef, undef,
undef, 'CALL ABC', 0, "intnotes", 0,
undef, undef, 0, undef, '2013-11-30', 0
);
my $id_subscription2 = NewSubscription(
undef, 'BRANCH2', $id_supplier1, undef, $id_budget, $biblionumber,
- '01-01-2013',undef, undef, undef, undef,
+ '2013-01-01',undef, undef, undef, undef,
undef, undef, undef, undef, undef, undef,
- 1, "subscription notes",undef, '01-01-2013', undef, undef,
+ 1, "subscription notes",undef, '2013-01-01', undef, undef,
undef, 'CALL DEF', 0, "intnotes", 0,
undef, undef, 0, undef, '2013-07-31', 0
);
#Add 1 subscription
my $id_subscription3 = NewSubscription(
undef, "BRANCH1", $id_supplier1, undef, $id_budget, $biblionumber,
- '01-01-2013',undef, undef, undef, undef,
+ '2013-01-01',undef, undef, undef, undef,
undef, undef, undef, undef, undef, undef,
- 1, "subscription notes",undef, '01-01-2013', undef, undef,
+ 1, "subscription notes",undef, '2013-01-01', undef, undef,
undef, undef, 0, "intnotes", 0,
undef, undef, 0, 'LOCA', '2013-12-31', 0
);
quantity => 24,
biblionumber => $biblionumber,
budget_id => $id_budget,
- entrydate => '01-01-2013',
+ entrydate => '2013-01-01',
currency => $curcode,
notes => "This is a note1",
tax_rate => 0.0500,
quantityreceived => 2,
rrp => 10,
ecost => 10,
- datereceived => '01-06-2013'
+ datereceived => '2013-06-01'
}
)->store;
my $ordernumber1 = $order1->ordernumber;
quantity => 20,
biblionumber => $biblionumber,
budget_id => $id_budget,
- entrydate => '01-01-2013',
+ entrydate => '2013-01-01',
currency => $curcode,
notes => "This is a note2",
tax_rate => 0.0500,
quantity => 20,
biblionumber => $biblionumber,
budget_id => $id_budget,
- entrydate => '02-02-2013',
+ entrydate => '2013-02-02',
currency => $curcode,
notes => "This is a note3",
tax_rate => 0.0500,
quantity => 20,
biblionumber => $biblionumber,
budget_id => $id_budget,
- entrydate => '02-02-2013',
+ entrydate => '2013-02-02',
currency => $curcode,
notes => "This is a note3",
tax_rate => 0.0500,
# Add two subscriptions
my $subscription_1_id = NewSubscription(
undef, 'BRANCH2', $vendor->id, undef,
- $id_budget, $biblionumber, '01-01-2013', undef,
+ $id_budget, $biblionumber, '2013-01-01', undef,
undef, undef, undef, undef,
undef, undef, undef, undef,
undef, 1, "subscription notes", undef,
- '01-01-2013', undef, undef, undef,
+ '2013-01-01', undef, undef, undef,
'CALL ABC', 0, "intnotes", 0,
undef, undef, 0, undef,
'2013-11-30', 0
my $id_subscription2 = NewSubscription(
undef, 'BRANCH2', $vendor->id, undef,
- $id_budget, $biblionumber, '01-01-2013', undef,
+ $id_budget, $biblionumber, '2013-01-01', undef,
undef, undef, undef, undef,
undef, undef, undef, undef,
undef, 1, "subscription notes", undef,
- '01-01-2013', undef, undef, undef,
+ '2013-01-01', undef, undef, undef,
'CALL DEF', 0, "intnotes", 0,
undef, undef, 0, undef,
'2013-07-31', 0
my $budgetid;
my $bpid = AddBudgetPeriod({
- budget_period_startdate => '01-01-2015',
- budget_period_enddate => '31-12-2015',
+ budget_period_startdate => '2015-01-01',
+ budget_period_enddate => '2015-12-31',
budget_period_description => "budget desc"
});