|
Lines 117-122
my $sampleissuingrule1 = {
Link Here
|
| 117 |
lengthunit => 'Null', |
117 |
lengthunit => 'Null', |
| 118 |
renewalperiod => 5, |
118 |
renewalperiod => 5, |
| 119 |
norenewalbefore => 6, |
119 |
norenewalbefore => 6, |
|
|
120 |
auto_renew => 0, |
| 120 |
issuelength => 5, |
121 |
issuelength => 5, |
| 121 |
chargeperiod => 0, |
122 |
chargeperiod => 0, |
| 122 |
rentaldiscount => '2.000000', |
123 |
rentaldiscount => '2.000000', |
|
Lines 140-145
my $sampleissuingrule2 = {
Link Here
|
| 140 |
renewalsallowed => 'Null', |
141 |
renewalsallowed => 'Null', |
| 141 |
renewalperiod => 2, |
142 |
renewalperiod => 2, |
| 142 |
norenewalbefore => 7, |
143 |
norenewalbefore => 7, |
|
|
144 |
auto_renew => 0, |
| 143 |
reservesallowed => 'Null', |
145 |
reservesallowed => 'Null', |
| 144 |
issuelength => 2, |
146 |
issuelength => 2, |
| 145 |
lengthunit => 'Null', |
147 |
lengthunit => 'Null', |
|
Lines 165-170
my $sampleissuingrule3 = {
Link Here
|
| 165 |
renewalsallowed => 'Null', |
167 |
renewalsallowed => 'Null', |
| 166 |
renewalperiod => 3, |
168 |
renewalperiod => 3, |
| 167 |
norenewalbefore => 8, |
169 |
norenewalbefore => 8, |
|
|
170 |
auto_renew => 0, |
| 168 |
reservesallowed => 'Null', |
171 |
reservesallowed => 'Null', |
| 169 |
issuelength => 3, |
172 |
issuelength => 3, |
| 170 |
lengthunit => 'Null', |
173 |
lengthunit => 'Null', |
|
Lines 190-195
$query = 'INSERT INTO issuingrules (
Link Here
|
| 190 |
renewalsallowed, |
193 |
renewalsallowed, |
| 191 |
renewalperiod, |
194 |
renewalperiod, |
| 192 |
norenewalbefore, |
195 |
norenewalbefore, |
|
|
196 |
auto_renew, |
| 193 |
reservesallowed, |
197 |
reservesallowed, |
| 194 |
issuelength, |
198 |
issuelength, |
| 195 |
lengthunit, |
199 |
lengthunit, |
|
Lines 206-212
$query = 'INSERT INTO issuingrules (
Link Here
|
| 206 |
chargename, |
210 |
chargename, |
| 207 |
restrictedtype, |
211 |
restrictedtype, |
| 208 |
maxsuspensiondays |
212 |
maxsuspensiondays |
| 209 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
213 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
| 210 |
my $sth = $dbh->prepare($query); |
214 |
my $sth = $dbh->prepare($query); |
| 211 |
$sth->execute( |
215 |
$sth->execute( |
| 212 |
$sampleissuingrule1->{branchcode}, |
216 |
$sampleissuingrule1->{branchcode}, |
|
Lines 216-221
$sth->execute(
Link Here
|
| 216 |
$sampleissuingrule1->{renewalsallowed}, |
220 |
$sampleissuingrule1->{renewalsallowed}, |
| 217 |
$sampleissuingrule1->{renewalperiod}, |
221 |
$sampleissuingrule1->{renewalperiod}, |
| 218 |
$sampleissuingrule1->{norenewalbefore}, |
222 |
$sampleissuingrule1->{norenewalbefore}, |
|
|
223 |
$sampleissuingrule1->{auto_renew}, |
| 219 |
$sampleissuingrule1->{reservesallowed}, |
224 |
$sampleissuingrule1->{reservesallowed}, |
| 220 |
$sampleissuingrule1->{issuelength}, |
225 |
$sampleissuingrule1->{issuelength}, |
| 221 |
$sampleissuingrule1->{lengthunit}, |
226 |
$sampleissuingrule1->{lengthunit}, |
|
Lines 241-246
$sth->execute(
Link Here
|
| 241 |
$sampleissuingrule2->{renewalsallowed}, |
246 |
$sampleissuingrule2->{renewalsallowed}, |
| 242 |
$sampleissuingrule2->{renewalperiod}, |
247 |
$sampleissuingrule2->{renewalperiod}, |
| 243 |
$sampleissuingrule2->{norenewalbefore}, |
248 |
$sampleissuingrule2->{norenewalbefore}, |
|
|
249 |
$sampleissuingrule1->{auto_renew}, |
| 244 |
$sampleissuingrule2->{reservesallowed}, |
250 |
$sampleissuingrule2->{reservesallowed}, |
| 245 |
$sampleissuingrule2->{issuelength}, |
251 |
$sampleissuingrule2->{issuelength}, |
| 246 |
$sampleissuingrule2->{lengthunit}, |
252 |
$sampleissuingrule2->{lengthunit}, |
|
Lines 266-271
$sth->execute(
Link Here
|
| 266 |
$sampleissuingrule3->{renewalsallowed}, |
272 |
$sampleissuingrule3->{renewalsallowed}, |
| 267 |
$sampleissuingrule3->{renewalperiod}, |
273 |
$sampleissuingrule3->{renewalperiod}, |
| 268 |
$sampleissuingrule3->{norenewalbefore}, |
274 |
$sampleissuingrule3->{norenewalbefore}, |
|
|
275 |
$sampleissuingrule1->{auto_renew}, |
| 269 |
$sampleissuingrule3->{reservesallowed}, |
276 |
$sampleissuingrule3->{reservesallowed}, |
| 270 |
$sampleissuingrule3->{issuelength}, |
277 |
$sampleissuingrule3->{issuelength}, |
| 271 |
$sampleissuingrule3->{lengthunit}, |
278 |
$sampleissuingrule3->{lengthunit}, |
| 272 |
- |
|
|