Lines 134-139
my $sampleissuingrule1 = {
Link Here
|
134 |
maxsuspensiondays => 0, |
134 |
maxsuspensiondays => 0, |
135 |
onshelfholds => 0, |
135 |
onshelfholds => 0, |
136 |
opacitemholds => 'N', |
136 |
opacitemholds => 'N', |
|
|
137 |
cap_fine_to_replacement_price => 0, |
137 |
}; |
138 |
}; |
138 |
my $sampleissuingrule2 = { |
139 |
my $sampleissuingrule2 = { |
139 |
branchcode => $samplebranch2->{branchcode}, |
140 |
branchcode => $samplebranch2->{branchcode}, |
Lines 164-169
my $sampleissuingrule2 = {
Link Here
|
164 |
maxsuspensiondays => 0, |
165 |
maxsuspensiondays => 0, |
165 |
onshelfholds => 1, |
166 |
onshelfholds => 1, |
166 |
opacitemholds => 'Y', |
167 |
opacitemholds => 'Y', |
|
|
168 |
cap_fine_to_replacement_price => 0, |
167 |
}; |
169 |
}; |
168 |
my $sampleissuingrule3 = { |
170 |
my $sampleissuingrule3 = { |
169 |
branchcode => $samplebranch1->{branchcode}, |
171 |
branchcode => $samplebranch1->{branchcode}, |
Lines 194-199
my $sampleissuingrule3 = {
Link Here
|
194 |
maxsuspensiondays => 0, |
196 |
maxsuspensiondays => 0, |
195 |
onshelfholds => 1, |
197 |
onshelfholds => 1, |
196 |
opacitemholds => 'F', |
198 |
opacitemholds => 'F', |
|
|
199 |
cap_fine_to_replacement_price => 0, |
197 |
}; |
200 |
}; |
198 |
|
201 |
|
199 |
$query = 'INSERT INTO issuingrules ( |
202 |
$query = 'INSERT INTO issuingrules ( |
Lines 222-229
$query = 'INSERT INTO issuingrules (
Link Here
|
222 |
reservecharge, |
225 |
reservecharge, |
223 |
chargename, |
226 |
chargename, |
224 |
restrictedtype, |
227 |
restrictedtype, |
225 |
maxsuspensiondays |
228 |
maxsuspensiondays, |
226 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
229 |
onshelfholds, |
|
|
230 |
opacitemholds, |
231 |
cap_fine_to_replacement_price |
232 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
227 |
my $sth = $dbh->prepare($query); |
233 |
my $sth = $dbh->prepare($query); |
228 |
$sth->execute( |
234 |
$sth->execute( |
229 |
$sampleissuingrule1->{branchcode}, |
235 |
$sampleissuingrule1->{branchcode}, |
Lines 252-257
$sth->execute(
Link Here
|
252 |
$sampleissuingrule1->{chargename}, |
258 |
$sampleissuingrule1->{chargename}, |
253 |
$sampleissuingrule1->{restrictedtype}, |
259 |
$sampleissuingrule1->{restrictedtype}, |
254 |
$sampleissuingrule1->{maxsuspensiondays}, |
260 |
$sampleissuingrule1->{maxsuspensiondays}, |
|
|
261 |
$sampleissuingrule1->{onshelfholds}, |
262 |
$sampleissuingrule1->{opacitemholds}, |
263 |
$sampleissuingrule1->{cap_fine_to_replacement_price}, |
255 |
); |
264 |
); |
256 |
$sth->execute( |
265 |
$sth->execute( |
257 |
$sampleissuingrule2->{branchcode}, |
266 |
$sampleissuingrule2->{branchcode}, |
Lines 280-285
$sth->execute(
Link Here
|
280 |
$sampleissuingrule2->{chargename}, |
289 |
$sampleissuingrule2->{chargename}, |
281 |
$sampleissuingrule2->{restrictedtype}, |
290 |
$sampleissuingrule2->{restrictedtype}, |
282 |
$sampleissuingrule2->{maxsuspensiondays}, |
291 |
$sampleissuingrule2->{maxsuspensiondays}, |
|
|
292 |
$sampleissuingrule2->{onshelfholds}, |
293 |
$sampleissuingrule2->{opacitemholds}, |
294 |
$sampleissuingrule2->{cap_fine_to_replacement_price}, |
283 |
); |
295 |
); |
284 |
$sth->execute( |
296 |
$sth->execute( |
285 |
$sampleissuingrule3->{branchcode}, |
297 |
$sampleissuingrule3->{branchcode}, |
Lines 308-313
$sth->execute(
Link Here
|
308 |
$sampleissuingrule3->{chargename}, |
320 |
$sampleissuingrule3->{chargename}, |
309 |
$sampleissuingrule3->{restrictedtype}, |
321 |
$sampleissuingrule3->{restrictedtype}, |
310 |
$sampleissuingrule3->{maxsuspensiondays}, |
322 |
$sampleissuingrule3->{maxsuspensiondays}, |
|
|
323 |
$sampleissuingrule3->{onshelfholds}, |
324 |
$sampleissuingrule3->{opacitemholds}, |
325 |
$sampleissuingrule3->{cap_fine_to_replacement_price}, |
311 |
); |
326 |
); |
312 |
|
327 |
|
313 |
is_deeply( |
328 |
is_deeply( |
314 |
- |
|
|