Lines 41-47
my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
Link Here
|
41 |
my $budgetid; |
41 |
my $budgetid; |
42 |
my $bpid = AddBudgetPeriod({ |
42 |
my $bpid = AddBudgetPeriod({ |
43 |
budget_period_startdate => '01-01-2015', |
43 |
budget_period_startdate => '01-01-2015', |
44 |
budget_period_enddate => '12-31-2015', |
44 |
budget_period_enddate => '31-12-2015', |
45 |
budget_description => "budget desc" |
45 |
budget_description => "budget desc" |
46 |
}); |
46 |
}); |
47 |
|
47 |
|
Lines 58-64
my $budget_id = AddBudget({
Link Here
|
58 |
my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" }); |
58 |
my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" }); |
59 |
my $pattern_id = AddSubscriptionNumberpattern({ |
59 |
my $pattern_id = AddSubscriptionNumberpattern({ |
60 |
label => 'Test numberpattern 1', |
60 |
label => 'Test numberpattern 1', |
61 |
numberingmethod => '{X}' |
61 |
numberingmethod => '{X}', |
|
|
62 |
label1 => q{}, |
63 |
add1 => 1, |
64 |
every1 => 1, |
65 |
every1 => 1, |
66 |
numbering1 => 1, |
67 |
whenmorethan1 => 1, |
62 |
}); |
68 |
}); |
63 |
|
69 |
|
64 |
my $subscriptionid = NewSubscription( |
70 |
my $subscriptionid = NewSubscription( |
65 |
- |
|
|