View | Details | Raw Unified | Return to bug 10855
Collapse All | Expand All

(-)a/t/db_dependent/AdditionalField.t (-14 / +21 lines)
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
- 

Return to bug 10855