Lines 129-135
my $sampleissuingrule1 = {
Link Here
|
129 |
renewalsallowed => 0, |
129 |
renewalsallowed => 0, |
130 |
firstremind => 0, |
130 |
firstremind => 0, |
131 |
itemtype => 'BOOK', |
131 |
itemtype => 'BOOK', |
132 |
categorycode => $samplecat->{categorycode} |
132 |
categorycode => $samplecat->{categorycode}, |
|
|
133 |
maxsuspensiondays => 0, |
133 |
}; |
134 |
}; |
134 |
my $sampleissuingrule2 = { |
135 |
my $sampleissuingrule2 = { |
135 |
branchcode => $samplebranch2->{branchcode}, |
136 |
branchcode => $samplebranch2->{branchcode}, |
Lines 153-159
my $sampleissuingrule2 = {
Link Here
|
153 |
accountsent => 'Null', |
154 |
accountsent => 'Null', |
154 |
reservecharge => 'Null', |
155 |
reservecharge => 'Null', |
155 |
chargename => 'Null', |
156 |
chargename => 'Null', |
156 |
restrictedtype => 'Null' |
157 |
restrictedtype => 'Null', |
|
|
158 |
maxsuspensiondays => 0, |
157 |
}; |
159 |
}; |
158 |
my $sampleissuingrule3 = { |
160 |
my $sampleissuingrule3 = { |
159 |
branchcode => $samplebranch1->{branchcode}, |
161 |
branchcode => $samplebranch1->{branchcode}, |
Lines 177-183
my $sampleissuingrule3 = {
Link Here
|
177 |
accountsent => 'Null', |
179 |
accountsent => 'Null', |
178 |
reservecharge => 'Null', |
180 |
reservecharge => 'Null', |
179 |
chargename => 'Null', |
181 |
chargename => 'Null', |
180 |
restrictedtype => 'Null' |
182 |
restrictedtype => 'Null', |
|
|
183 |
maxsuspensiondays => 0, |
181 |
}; |
184 |
}; |
182 |
$query = 'INSERT INTO issuingrules ( |
185 |
$query = 'INSERT INTO issuingrules ( |
183 |
branchcode, |
186 |
branchcode, |
Lines 201-208
$query = 'INSERT INTO issuingrules (
Link Here
|
201 |
accountsent, |
204 |
accountsent, |
202 |
reservecharge, |
205 |
reservecharge, |
203 |
chargename, |
206 |
chargename, |
204 |
restrictedtype |
207 |
restrictedtype, |
205 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
208 |
maxsuspensiondays |
|
|
209 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
206 |
my $sth = $dbh->prepare($query); |
210 |
my $sth = $dbh->prepare($query); |
207 |
$sth->execute( |
211 |
$sth->execute( |
208 |
$sampleissuingrule1->{branchcode}, |
212 |
$sampleissuingrule1->{branchcode}, |
Lines 226-232
$sth->execute(
Link Here
|
226 |
$sampleissuingrule1->{accountsent}, |
230 |
$sampleissuingrule1->{accountsent}, |
227 |
$sampleissuingrule1->{reservecharge}, |
231 |
$sampleissuingrule1->{reservecharge}, |
228 |
$sampleissuingrule1->{chargename}, |
232 |
$sampleissuingrule1->{chargename}, |
229 |
$sampleissuingrule1->{restrictedtype} |
233 |
$sampleissuingrule1->{restrictedtype}, |
|
|
234 |
$sampleissuingrule1->{maxsuspensiondays}, |
230 |
); |
235 |
); |
231 |
$sth->execute( |
236 |
$sth->execute( |
232 |
$sampleissuingrule2->{branchcode}, |
237 |
$sampleissuingrule2->{branchcode}, |
Lines 250-256
$sth->execute(
Link Here
|
250 |
$sampleissuingrule2->{accountsent}, |
255 |
$sampleissuingrule2->{accountsent}, |
251 |
$sampleissuingrule2->{reservecharge}, |
256 |
$sampleissuingrule2->{reservecharge}, |
252 |
$sampleissuingrule2->{chargename}, |
257 |
$sampleissuingrule2->{chargename}, |
253 |
$sampleissuingrule2->{restrictedtype} |
258 |
$sampleissuingrule2->{restrictedtype}, |
|
|
259 |
$sampleissuingrule2->{maxsuspensiondays}, |
254 |
); |
260 |
); |
255 |
$sth->execute( |
261 |
$sth->execute( |
256 |
$sampleissuingrule3->{branchcode}, |
262 |
$sampleissuingrule3->{branchcode}, |
Lines 274-280
$sth->execute(
Link Here
|
274 |
$sampleissuingrule3->{accountsent}, |
280 |
$sampleissuingrule3->{accountsent}, |
275 |
$sampleissuingrule3->{reservecharge}, |
281 |
$sampleissuingrule3->{reservecharge}, |
276 |
$sampleissuingrule3->{chargename}, |
282 |
$sampleissuingrule3->{chargename}, |
277 |
$sampleissuingrule3->{restrictedtype} |
283 |
$sampleissuingrule3->{restrictedtype}, |
|
|
284 |
$sampleissuingrule3->{maxsuspensiondays}, |
278 |
); |
285 |
); |
279 |
|
286 |
|
280 |
is_deeply( |
287 |
is_deeply( |
281 |
- |
|
|