|
Lines 121-126
my $sampleissuingrule1 = {
Link Here
|
| 121 |
auto_renew => 0, |
121 |
auto_renew => 0, |
| 122 |
issuelength => 5, |
122 |
issuelength => 5, |
| 123 |
chargeperiod => 0, |
123 |
chargeperiod => 0, |
|
|
124 |
chargeperiod_charge_at => 0, |
| 124 |
rentaldiscount => '2.000000', |
125 |
rentaldiscount => '2.000000', |
| 125 |
reservesallowed => 0, |
126 |
reservesallowed => 0, |
| 126 |
hardduedate => '2013-01-01', |
127 |
hardduedate => '2013-01-01', |
|
Lines 155-160
my $sampleissuingrule2 = {
Link Here
|
| 155 |
finedays => 'Null', |
156 |
finedays => 'Null', |
| 156 |
firstremind => 'Null', |
157 |
firstremind => 'Null', |
| 157 |
chargeperiod => 'Null', |
158 |
chargeperiod => 'Null', |
|
|
159 |
chargeperiod_charge_at => 0, |
| 158 |
rentaldiscount => 2.00, |
160 |
rentaldiscount => 2.00, |
| 159 |
overduefinescap => 'Null', |
161 |
overduefinescap => 'Null', |
| 160 |
accountsent => 'Null', |
162 |
accountsent => 'Null', |
|
Lines 184-189
my $sampleissuingrule3 = {
Link Here
|
| 184 |
finedays => 'Null', |
186 |
finedays => 'Null', |
| 185 |
firstremind => 'Null', |
187 |
firstremind => 'Null', |
| 186 |
chargeperiod => 'Null', |
188 |
chargeperiod => 'Null', |
|
|
189 |
chargeperiod_charge_at => 0, |
| 187 |
rentaldiscount => 3.00, |
190 |
rentaldiscount => 3.00, |
| 188 |
overduefinescap => 'Null', |
191 |
overduefinescap => 'Null', |
| 189 |
accountsent => 'Null', |
192 |
accountsent => 'Null', |
|
Lines 194-199
my $sampleissuingrule3 = {
Link Here
|
| 194 |
onshelfholds => 1, |
197 |
onshelfholds => 1, |
| 195 |
opacitemholds => 'F', |
198 |
opacitemholds => 'F', |
| 196 |
}; |
199 |
}; |
|
|
200 |
|
| 197 |
$query = 'INSERT INTO issuingrules ( |
201 |
$query = 'INSERT INTO issuingrules ( |
| 198 |
branchcode, |
202 |
branchcode, |
| 199 |
categorycode, |
203 |
categorycode, |
|
Lines 213-218
$query = 'INSERT INTO issuingrules (
Link Here
|
| 213 |
finedays, |
217 |
finedays, |
| 214 |
firstremind, |
218 |
firstremind, |
| 215 |
chargeperiod, |
219 |
chargeperiod, |
|
|
220 |
chargeperiod_charge_at, |
| 216 |
rentaldiscount, |
221 |
rentaldiscount, |
| 217 |
overduefinescap, |
222 |
overduefinescap, |
| 218 |
accountsent, |
223 |
accountsent, |
|
Lines 220-226
$query = 'INSERT INTO issuingrules (
Link Here
|
| 220 |
chargename, |
225 |
chargename, |
| 221 |
restrictedtype, |
226 |
restrictedtype, |
| 222 |
maxsuspensiondays |
227 |
maxsuspensiondays |
| 223 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
228 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
| 224 |
my $sth = $dbh->prepare($query); |
229 |
my $sth = $dbh->prepare($query); |
| 225 |
$sth->execute( |
230 |
$sth->execute( |
| 226 |
$sampleissuingrule1->{branchcode}, |
231 |
$sampleissuingrule1->{branchcode}, |
|
Lines 241-246
$sth->execute(
Link Here
|
| 241 |
$sampleissuingrule1->{finedays}, |
246 |
$sampleissuingrule1->{finedays}, |
| 242 |
$sampleissuingrule1->{firstremind}, |
247 |
$sampleissuingrule1->{firstremind}, |
| 243 |
$sampleissuingrule1->{chargeperiod}, |
248 |
$sampleissuingrule1->{chargeperiod}, |
|
|
249 |
$sampleissuingrule1->{chargeperiod_charge_at}, |
| 244 |
$sampleissuingrule1->{rentaldiscount}, |
250 |
$sampleissuingrule1->{rentaldiscount}, |
| 245 |
$sampleissuingrule1->{overduefinescap}, |
251 |
$sampleissuingrule1->{overduefinescap}, |
| 246 |
$sampleissuingrule1->{accountsent}, |
252 |
$sampleissuingrule1->{accountsent}, |
|
Lines 268-273
$sth->execute(
Link Here
|
| 268 |
$sampleissuingrule2->{finedays}, |
274 |
$sampleissuingrule2->{finedays}, |
| 269 |
$sampleissuingrule2->{firstremind}, |
275 |
$sampleissuingrule2->{firstremind}, |
| 270 |
$sampleissuingrule2->{chargeperiod}, |
276 |
$sampleissuingrule2->{chargeperiod}, |
|
|
277 |
$sampleissuingrule2->{chargeperiod_charge_at}, |
| 271 |
$sampleissuingrule2->{rentaldiscount}, |
278 |
$sampleissuingrule2->{rentaldiscount}, |
| 272 |
$sampleissuingrule2->{overduefinescap}, |
279 |
$sampleissuingrule2->{overduefinescap}, |
| 273 |
$sampleissuingrule2->{accountsent}, |
280 |
$sampleissuingrule2->{accountsent}, |
|
Lines 295-300
$sth->execute(
Link Here
|
| 295 |
$sampleissuingrule3->{finedays}, |
302 |
$sampleissuingrule3->{finedays}, |
| 296 |
$sampleissuingrule3->{firstremind}, |
303 |
$sampleissuingrule3->{firstremind}, |
| 297 |
$sampleissuingrule3->{chargeperiod}, |
304 |
$sampleissuingrule3->{chargeperiod}, |
|
|
305 |
$sampleissuingrule3->{chargeperiod_charge_at}, |
| 298 |
$sampleissuingrule3->{rentaldiscount}, |
306 |
$sampleissuingrule3->{rentaldiscount}, |
| 299 |
$sampleissuingrule3->{overduefinescap}, |
307 |
$sampleissuingrule3->{overduefinescap}, |
| 300 |
$sampleissuingrule3->{accountsent}, |
308 |
$sampleissuingrule3->{accountsent}, |