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