|
Lines 116-121
my $sampleissuingrule1 = {
Link Here
|
| 116 |
finedays => 0, |
116 |
finedays => 0, |
| 117 |
lengthunit => 'Null', |
117 |
lengthunit => 'Null', |
| 118 |
renewalperiod => 5, |
118 |
renewalperiod => 5, |
|
|
119 |
norenewalbefore => 6, |
| 119 |
issuelength => 5, |
120 |
issuelength => 5, |
| 120 |
chargeperiod => 0, |
121 |
chargeperiod => 0, |
| 121 |
rentaldiscount => '2.000000', |
122 |
rentaldiscount => '2.000000', |
|
Lines 137-142
my $sampleissuingrule2 = {
Link Here
|
| 137 |
maxissueqty => 2, |
138 |
maxissueqty => 2, |
| 138 |
renewalsallowed => 'Null', |
139 |
renewalsallowed => 'Null', |
| 139 |
renewalperiod => 2, |
140 |
renewalperiod => 2, |
|
|
141 |
norenewalbefore => 7, |
| 140 |
reservesallowed => 'Null', |
142 |
reservesallowed => 'Null', |
| 141 |
issuelength => 2, |
143 |
issuelength => 2, |
| 142 |
lengthunit => 'Null', |
144 |
lengthunit => 'Null', |
|
Lines 160-165
my $sampleissuingrule3 = {
Link Here
|
| 160 |
maxissueqty => 3, |
162 |
maxissueqty => 3, |
| 161 |
renewalsallowed => 'Null', |
163 |
renewalsallowed => 'Null', |
| 162 |
renewalperiod => 3, |
164 |
renewalperiod => 3, |
|
|
165 |
norenewalbefore => 8, |
| 163 |
reservesallowed => 'Null', |
166 |
reservesallowed => 'Null', |
| 164 |
issuelength => 3, |
167 |
issuelength => 3, |
| 165 |
lengthunit => 'Null', |
168 |
lengthunit => 'Null', |
|
Lines 183-188
$query = 'INSERT INTO issuingrules (
Link Here
|
| 183 |
maxissueqty, |
186 |
maxissueqty, |
| 184 |
renewalsallowed, |
187 |
renewalsallowed, |
| 185 |
renewalperiod, |
188 |
renewalperiod, |
|
|
189 |
norenewalbefore, |
| 186 |
reservesallowed, |
190 |
reservesallowed, |
| 187 |
issuelength, |
191 |
issuelength, |
| 188 |
lengthunit, |
192 |
lengthunit, |
|
Lines 198-204
$query = 'INSERT INTO issuingrules (
Link Here
|
| 198 |
reservecharge, |
202 |
reservecharge, |
| 199 |
chargename, |
203 |
chargename, |
| 200 |
restrictedtype |
204 |
restrictedtype |
| 201 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
205 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
| 202 |
my $sth = $dbh->prepare($query); |
206 |
my $sth = $dbh->prepare($query); |
| 203 |
$sth->execute( |
207 |
$sth->execute( |
| 204 |
$sampleissuingrule1->{branchcode}, |
208 |
$sampleissuingrule1->{branchcode}, |
|
Lines 207-212
$sth->execute(
Link Here
|
| 207 |
$sampleissuingrule1->{maxissueqty}, |
211 |
$sampleissuingrule1->{maxissueqty}, |
| 208 |
$sampleissuingrule1->{renewalsallowed}, |
212 |
$sampleissuingrule1->{renewalsallowed}, |
| 209 |
$sampleissuingrule1->{renewalperiod}, |
213 |
$sampleissuingrule1->{renewalperiod}, |
|
|
214 |
$sampleissuingrule1->{norenewalbefore}, |
| 210 |
$sampleissuingrule1->{reservesallowed}, |
215 |
$sampleissuingrule1->{reservesallowed}, |
| 211 |
$sampleissuingrule1->{issuelength}, |
216 |
$sampleissuingrule1->{issuelength}, |
| 212 |
$sampleissuingrule1->{lengthunit}, |
217 |
$sampleissuingrule1->{lengthunit}, |
|
Lines 230-235
$sth->execute(
Link Here
|
| 230 |
$sampleissuingrule2->{maxissueqty}, |
235 |
$sampleissuingrule2->{maxissueqty}, |
| 231 |
$sampleissuingrule2->{renewalsallowed}, |
236 |
$sampleissuingrule2->{renewalsallowed}, |
| 232 |
$sampleissuingrule2->{renewalperiod}, |
237 |
$sampleissuingrule2->{renewalperiod}, |
|
|
238 |
$sampleissuingrule2->{norenewalbefore}, |
| 233 |
$sampleissuingrule2->{reservesallowed}, |
239 |
$sampleissuingrule2->{reservesallowed}, |
| 234 |
$sampleissuingrule2->{issuelength}, |
240 |
$sampleissuingrule2->{issuelength}, |
| 235 |
$sampleissuingrule2->{lengthunit}, |
241 |
$sampleissuingrule2->{lengthunit}, |
|
Lines 253-258
$sth->execute(
Link Here
|
| 253 |
$sampleissuingrule3->{maxissueqty}, |
259 |
$sampleissuingrule3->{maxissueqty}, |
| 254 |
$sampleissuingrule3->{renewalsallowed}, |
260 |
$sampleissuingrule3->{renewalsallowed}, |
| 255 |
$sampleissuingrule3->{renewalperiod}, |
261 |
$sampleissuingrule3->{renewalperiod}, |
|
|
262 |
$sampleissuingrule3->{norenewalbefore}, |
| 256 |
$sampleissuingrule3->{reservesallowed}, |
263 |
$sampleissuingrule3->{reservesallowed}, |
| 257 |
$sampleissuingrule3->{issuelength}, |
264 |
$sampleissuingrule3->{issuelength}, |
| 258 |
$sampleissuingrule3->{lengthunit}, |
265 |
$sampleissuingrule3->{lengthunit}, |
| 259 |
- |
|
|