Lines 104-109
use C4::Acquisition;
Link Here
|
104 |
use C4::Biblio; |
104 |
use C4::Biblio; |
105 |
use C4::Budgets; |
105 |
use C4::Budgets; |
106 |
use C4::Serials; |
106 |
use C4::Serials; |
|
|
107 |
use C4::Serials::Frequency; |
108 |
use C4::Serials::Numberpattern; |
107 |
|
109 |
|
108 |
my $booksellerid = C4::Bookseller::AddBookseller( |
110 |
my $booksellerid = C4::Bookseller::AddBookseller( |
109 |
{ |
111 |
{ |
Lines 118-124
my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
Link Here
|
118 |
my $budgetid; |
120 |
my $budgetid; |
119 |
my $bpid = AddBudgetPeriod({ |
121 |
my $bpid = AddBudgetPeriod({ |
120 |
budget_period_startdate => '01-01-2015', |
122 |
budget_period_startdate => '01-01-2015', |
121 |
budget_period_enddate => '12-31-2015', |
123 |
budget_period_enddate => '01-01-2016', |
122 |
budget_description => "budget desc" |
124 |
budget_description => "budget desc" |
123 |
}); |
125 |
}); |
124 |
|
126 |
|
Lines 132-153
my $budget_id = AddBudget({
Link Here
|
132 |
budget_period_id => $bpid |
134 |
budget_period_id => $bpid |
133 |
}); |
135 |
}); |
134 |
|
136 |
|
|
|
137 |
my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" }); |
138 |
my $pattern_id = AddSubscriptionNumberpattern({ |
139 |
label => 'Test numberpattern 1', |
140 |
numberingmethod => '{X}' |
141 |
}); |
142 |
|
135 |
my $subscriptionid1 = NewSubscription( |
143 |
my $subscriptionid1 = NewSubscription( |
136 |
undef, "", undef, undef, $budget_id, $biblionumber, '01-01-2013',undef, |
144 |
undef, "", undef, undef, $budget_id, $biblionumber, |
137 |
undef, undef, undef, undef, undef, undef, undef, undef, |
145 |
'2013-01-01', $frequency_id, undef, undef, undef, |
138 |
undef, undef, undef, undef, undef, undef, undef, undef, |
146 |
undef, undef, undef, undef, undef, undef, |
139 |
undef, undef, undef, undef, undef, undef, undef, 1, |
147 |
1, "notes",undef, '2013-01-01', undef, $pattern_id, |
140 |
"notes", undef, undef, undef, undef, undef, undef, 0, |
148 |
undef, undef, 0, "intnotes", 0, |
141 |
"intnotes", 0, undef, undef, 0, undef, '31-12-2013', |
149 |
undef, undef, 0, undef, '2013-01-01', 0 |
142 |
); |
150 |
); |
143 |
|
151 |
|
144 |
my $subscriptionid2 = NewSubscription( |
152 |
my $subscriptionid2 = NewSubscription( |
145 |
undef, "", undef, undef, $budget_id, $biblionumber, '01-01-2013',undef, |
153 |
undef, "", undef, undef, $budget_id, $biblionumber, |
146 |
undef, undef, undef, undef, undef, undef, undef, undef, |
154 |
'2013-01-01', $frequency_id, undef, undef, undef, |
147 |
undef, undef, undef, undef, undef, undef, undef, undef, |
155 |
undef, undef, undef, undef, undef, undef, |
148 |
undef, undef, undef, undef, undef, undef, undef, 1, |
156 |
1, "notes",undef, '2013-01-01', undef, $pattern_id, |
149 |
"notes", undef, undef, undef, undef, undef, undef, 0, |
157 |
undef, undef, 0, "intnotes", 0, |
150 |
"intnotes", 0, undef, undef, 0, undef, '31-12-2013', |
158 |
undef, undef, 0, undef, '2013-01-01', 0 |
151 |
); |
159 |
); |
152 |
|
160 |
|
153 |
# insert |
161 |
# insert |
154 |
- |
|
|