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