|
Lines 50-88
if ($op eq 'delete') {
Link Here
|
| 50 |
my $categorycode = $input->param('categorycode'); |
50 |
my $categorycode = $input->param('categorycode'); |
| 51 |
$debug and warn "deleting $1 $2 $branch"; |
51 |
$debug and warn "deleting $1 $2 $branch"; |
| 52 |
|
52 |
|
| 53 |
my $sth_Idelete = $dbh->prepare("delete from issuingrules where branchcode=? and categorycode=? and itemtype=?"); |
53 |
my $sth_Idelete = $dbh->prepare(" |
|
|
54 |
DELETE FROM issuingrules |
| 55 |
WHERE branchcode = ? |
| 56 |
AND categorycode = ? |
| 57 |
AND itemtype = ? |
| 58 |
"); |
| 54 |
$sth_Idelete->execute($branch, $categorycode, $itemtype); |
59 |
$sth_Idelete->execute($branch, $categorycode, $itemtype); |
| 55 |
} |
60 |
} |
| 56 |
elsif ($op eq 'delete-branch-cat') { |
61 |
elsif ($op eq 'delete-branch-cat') { |
| 57 |
my $categorycode = $input->param('categorycode'); |
62 |
my $categorycode = $input->param('categorycode'); |
| 58 |
if ($categorycode eq "*") { |
63 |
if ($categorycode eq "*") { |
| 59 |
my $sth_delete = $dbh->prepare("DELETE FROM circ_rules WHERE branchcode = ?"); |
64 |
my $sth_delete = $dbh->prepare(" |
|
|
65 |
DELETE FROM circ_rules |
| 66 |
WHERE branchcode = ? |
| 67 |
"); |
| 60 |
$sth_delete->execute( $branch ); |
68 |
$sth_delete->execute( $branch ); |
| 61 |
} else { |
69 |
} else { |
| 62 |
my $sth_delete = $dbh->prepare("DELETE FROM borrower_circ_rules |
70 |
my $sth_delete = $dbh->prepare(" |
| 63 |
WHERE branchcode = ? |
71 |
DELETE FROM borrower_circ_rules |
| 64 |
AND categorycode = ?"); |
72 |
WHERE branchcode = ? |
|
|
73 |
AND categorycode = ? |
| 74 |
"); |
| 65 |
$sth_delete->execute( $branch, $categorycode ); |
75 |
$sth_delete->execute( $branch, $categorycode ); |
| 66 |
} |
76 |
} |
| 67 |
} |
77 |
} |
| 68 |
elsif ($op eq 'delete-branch-item') { |
78 |
elsif ($op eq 'delete-branch-item') { |
| 69 |
my $itemtype = $input->param('itemtype'); |
79 |
my $itemtype = $input->param('itemtype'); |
| 70 |
if ($itemtype eq "*") { |
80 |
if ($itemtype eq "*") { |
| 71 |
my $sth_delete = $dbh->prepare("DELETE FROM circ_rules WHERE branchcode = ?"); |
81 |
my $sth_delete = $dbh->prepare(" |
|
|
82 |
DELETE FROM circ_rules |
| 83 |
WHERE branchcode = ? |
| 84 |
"); |
| 72 |
$sth_delete->execute( $branch); |
85 |
$sth_delete->execute( $branch); |
| 73 |
} else { |
86 |
} else { |
| 74 |
my $sth_delete = $dbh->prepare("DELETE FROM item_circ_rules |
87 |
my $sth_delete = $dbh->prepare(" |
| 75 |
WHERE branchcode = ? |
88 |
DELETE FROM item_circ_rules |
| 76 |
AND itemtype = ?"); |
89 |
WHERE branchcode = ? |
|
|
90 |
AND itemtype = ? |
| 91 |
"); |
| 77 |
$sth_delete->execute( $branch, $itemtype ); |
92 |
$sth_delete->execute( $branch, $itemtype ); |
| 78 |
} |
93 |
} |
| 79 |
} |
94 |
} |
| 80 |
# save the values entered |
95 |
# save the values entered |
| 81 |
elsif ($op eq 'add') { |
96 |
elsif ($op eq 'add') { |
| 82 |
my $sth_search = $dbh->prepare('SELECT COUNT(*) AS total FROM issuingrules WHERE branchcode=? AND categorycode=? AND itemtype=?'); |
97 |
my $sth_search = $dbh->prepare(' |
| 83 |
my $sth_insert = $dbh->prepare('INSERT INTO issuingrules (branchcode, categorycode, itemtype, maxissueqty, renewalsallowed, renewalperiod, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, firstremind, chargeperiod,rentaldiscount, overduefinescap) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'); |
98 |
SELECT COUNT(*) AS total |
| 84 |
my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, renewalperiod=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=?, overduefinescap=? WHERE branchcode=? AND categorycode=? AND itemtype=?"); |
99 |
FROM issuingrules |
| 85 |
|
100 |
WHERE branchcode=? |
|
|
101 |
AND categorycode=? |
| 102 |
AND itemtype=? |
| 103 |
'); |
| 104 |
my $sth_insert = $dbh->prepare(' |
| 105 |
INSERT INTO issuingrules ( |
| 106 |
branchcode, |
| 107 |
categorycode, |
| 108 |
itemtype, |
| 109 |
maxissueqty, |
| 110 |
renewalsallowed, |
| 111 |
renewalperiod, |
| 112 |
reservesallowed, |
| 113 |
issuelength, |
| 114 |
lengthunit, |
| 115 |
hardduedate, |
| 116 |
hardduedatecompare, |
| 117 |
fine, |
| 118 |
finedays, |
| 119 |
firstremind, |
| 120 |
chargeperiod, |
| 121 |
rentaldiscount, |
| 122 |
overduefinescap |
| 123 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
| 124 |
'); |
| 125 |
my $sth_update=$dbh->prepare(" |
| 126 |
UPDATE issuingrules |
| 127 |
SET fine = ?, |
| 128 |
finedays = ?, |
| 129 |
firstremind = ?, |
| 130 |
chargeperiod = ?, |
| 131 |
maxissueqty = ?, |
| 132 |
renewalsallowed = ?, |
| 133 |
renewalperiod = ?, |
| 134 |
reservesallowed = ?, |
| 135 |
issuelength = ?, |
| 136 |
lengthunit = ?, |
| 137 |
hardduedate = ?, |
| 138 |
hardduedatecompare = ?, |
| 139 |
rentaldiscount = ?, |
| 140 |
overduefinescap = ? |
| 141 |
WHERE branchcode = ? |
| 142 |
AND categorycode = ? |
| 143 |
AND itemtype = ? |
| 144 |
"); |
| 145 |
|
| 86 |
my $br = $branch; # branch |
146 |
my $br = $branch; # branch |
| 87 |
my $bor = $input->param('categorycode'); # borrower category |
147 |
my $bor = $input->param('categorycode'); # borrower category |
| 88 |
my $cat = $input->param('itemtype'); # item type |
148 |
my $cat = $input->param('itemtype'); # item type |
|
Lines 122-136
elsif ($op eq "set-branch-defaults") {
Link Here
|
| 122 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
182 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
| 123 |
$holdallowed =~ s/\s//g; |
183 |
$holdallowed =~ s/\s//g; |
| 124 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
184 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
| 125 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
185 |
my $sth_search = $dbh->prepare(" |
| 126 |
FROM circ_rules |
186 |
SELECT count(*) AS total |
| 127 |
WHERE branchcode = ?"); |
187 |
FROM circ_rules |
| 128 |
my $sth_insert = $dbh->prepare("INSERT INTO circ_rules |
188 |
WHERE branchcode = ? |
| 129 |
(branchcode, maxissueqty, holdallowed, returnbranch) |
189 |
"); |
| 130 |
VALUES (?, ?, ?, ?)"); |
190 |
my $sth_insert = $dbh->prepare(" |
| 131 |
my $sth_update = $dbh->prepare("UPDATE circ_rules |
191 |
INSERT INTO circ_rules (branchcode, maxissueqty, holdallowed, returnbranch) |
| 132 |
SET maxissueqty = ?, holdallowed = ?, returnbranch = ? |
192 |
VALUES (?, ?, ?, ?) |
| 133 |
WHERE branchcode = ?"); |
193 |
"); |
|
|
194 |
my $sth_update = $dbh->prepare(" |
| 195 |
UPDATE circ_rules |
| 196 |
SET maxissueqty = ?, holdallowed = ?, returnbranch = ? |
| 197 |
WHERE branchcode = ? |
| 198 |
"); |
| 134 |
|
199 |
|
| 135 |
$sth_search->execute( $branch ); |
200 |
$sth_search->execute( $branch ); |
| 136 |
my $res = $sth_search->fetchrow_hashref(); |
201 |
my $res = $sth_search->fetchrow_hashref(); |
|
Lines 147-161
elsif ($op eq "add-branch-cat") {
Link Here
|
| 147 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
212 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
| 148 |
|
213 |
|
| 149 |
if ($categorycode eq "*") { |
214 |
if ($categorycode eq "*") { |
| 150 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
215 |
my $sth_search = $dbh->prepare(" |
| 151 |
FROM circ_rules |
216 |
SELECT count(*) AS total |
| 152 |
WHERE branchcode = ?"); |
217 |
FROM circ_rules |
| 153 |
my $sth_insert = $dbh->prepare("INSERT INTO circ_rules |
218 |
WHERE branchcode = ? |
| 154 |
(branchcode, maxissueqty) |
219 |
"); |
| 155 |
VALUES (?, ?)"); |
220 |
my $sth_insert = $dbh->prepare(" |
| 156 |
my $sth_update = $dbh->prepare("UPDATE circ_rules |
221 |
INSERT INTO circ_rules (branchcode, maxissueqty) |
| 157 |
SET maxissueqty = ? |
222 |
VALUES (?, ?) |
| 158 |
WHERE branchcode = ?"); |
223 |
"); |
|
|
224 |
my $sth_update = $dbh->prepare(" |
| 225 |
UPDATE circ_rules |
| 226 |
SET maxissueqty = ? |
| 227 |
WHERE branchcode = ? |
| 228 |
"); |
| 159 |
|
229 |
|
| 160 |
$sth_search->execute( $branch ); |
230 |
$sth_search->execute( $branch ); |
| 161 |
my $res = $sth_search->fetchrow_hashref(); |
231 |
my $res = $sth_search->fetchrow_hashref(); |
|
Lines 165-181
elsif ($op eq "add-branch-cat") {
Link Here
|
| 165 |
$sth_insert->execute( $maxissueqty, $branch ); |
235 |
$sth_insert->execute( $maxissueqty, $branch ); |
| 166 |
} |
236 |
} |
| 167 |
} else { |
237 |
} else { |
| 168 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
238 |
my $sth_search = $dbh->prepare(" |
| 169 |
FROM borrower_circ_rules |
239 |
SELECT count(*) AS total |
| 170 |
WHERE branchcode = ? |
240 |
FROM borrower_circ_rules |
| 171 |
AND categorycode = ?"); |
241 |
WHERE branchcode = ? |
| 172 |
my $sth_insert = $dbh->prepare("INSERT INTO borrower_circ_rules |
242 |
AND categorycode = ? |
| 173 |
(branchcode, categorycode, maxissueqty) |
243 |
"); |
| 174 |
VALUES (?, ?, ?)"); |
244 |
my $sth_insert = $dbh->prepare(" |
| 175 |
my $sth_update = $dbh->prepare("UPDATE borrower_circ_rules |
245 |
INSERT INTO borrower_circ_rules |
| 176 |
SET maxissueqty = ? |
246 |
(branchcode, categorycode, maxissueqty) |
| 177 |
WHERE branchcode = ? |
247 |
VALUES (?, ?, ?)"); |
| 178 |
AND categorycode = ?"); |
248 |
my $sth_update = $dbh->prepare(" |
|
|
249 |
UPDATE borrower_circ_rules |
| 250 |
SET maxissueqty = ? |
| 251 |
WHERE branchcode = ? |
| 252 |
AND categorycode = ? |
| 253 |
"); |
| 179 |
$sth_search->execute( $branch, $categorycode ); |
254 |
$sth_search->execute( $branch, $categorycode ); |
| 180 |
my $res = $sth_search->fetchrow_hashref(); |
255 |
my $res = $sth_search->fetchrow_hashref(); |
| 181 |
if ($res->{total}) { |
256 |
if ($res->{total}) { |
|
Lines 193-207
elsif ($op eq "add-branch-item") {
Link Here
|
| 193 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
268 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
| 194 |
|
269 |
|
| 195 |
if ($itemtype eq "*") { |
270 |
if ($itemtype eq "*") { |
| 196 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
271 |
my $sth_search = $dbh->prepare(" |
| 197 |
FROM circ_rules |
272 |
SELECT count(*) AS total |
| 198 |
WHERE branchcode = ?"); |
273 |
FROM circ_rules |
| 199 |
my $sth_insert = $dbh->prepare("INSERT INTO circ_rules |
274 |
WHERE branchcode = ? |
| 200 |
(branchcode, holdallowed, returnbranch) |
275 |
"); |
| 201 |
VALUES (?, ?, ?)"); |
276 |
my $sth_insert = $dbh->prepare(" |
| 202 |
my $sth_update = $dbh->prepare("UPDATE circ_rules |
277 |
INSERT INTO circ_rules |
| 203 |
SET holdallowed = ?, returnbranch = ? |
278 |
(branchcode, holdallowed, returnbranch) |
| 204 |
WHERE branchcode = ?"); |
279 |
VALUES (?, ?, ?) |
|
|
280 |
"); |
| 281 |
my $sth_update = $dbh->prepare(" |
| 282 |
UPDATE circ_rules |
| 283 |
SET holdallowed = ?, returnbranch = ? |
| 284 |
WHERE branchcode = ? |
| 285 |
"); |
| 205 |
|
286 |
|
| 206 |
$sth_search->execute( $branch ); |
287 |
$sth_search->execute( $branch ); |
| 207 |
my $res = $sth_search->fetchrow_hashref(); |
288 |
my $res = $sth_search->fetchrow_hashref(); |
|
Lines 211-226
elsif ($op eq "add-branch-item") {
Link Here
|
| 211 |
$sth_insert->execute($branch, $holdallowed, $returnbranch); |
292 |
$sth_insert->execute($branch, $holdallowed, $returnbranch); |
| 212 |
} |
293 |
} |
| 213 |
} else { |
294 |
} else { |
| 214 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
295 |
my $sth_search = $dbh->prepare(" |
| 215 |
FROM item_circ_rules |
296 |
SELECT count(*) AS total |
| 216 |
WHERE itemtype = ?"); |
297 |
FROM item_circ_rules |
| 217 |
my $sth_insert = $dbh->prepare("INSERT INTO item_circ_rules |
298 |
WHERE itemtype = ? |
| 218 |
(branchcode, itemtype, holdallowed, returnbranch) |
299 |
"); |
| 219 |
VALUES (?, ?, ?, ?)"); |
300 |
my $sth_insert = $dbh->prepare(" |
| 220 |
my $sth_update = $dbh->prepare("UPDATE item_circ_rules |
301 |
INSERT INTO item_circ_rules |
| 221 |
SET holdallowed = ?, returnbranch = ? |
302 |
(branchcode, itemtype, holdallowed, returnbranch) |
| 222 |
WHERE branchcode = ? |
303 |
VALUES (?, ?, ?, ?) |
| 223 |
AND itemtype = ?"); |
304 |
"); |
|
|
305 |
my $sth_update = $dbh->prepare(" |
| 306 |
UPDATE item_circ_rules |
| 307 |
SET holdallowed = ?, returnbranch = ? |
| 308 |
WHERE branchcode = ? |
| 309 |
AND itemtype = ? |
| 310 |
"); |
| 224 |
$sth_search->execute($itemtype); |
311 |
$sth_search->execute($itemtype); |
| 225 |
my $res = $sth_search->fetchrow_hashref(); |
312 |
my $res = $sth_search->fetchrow_hashref(); |
| 226 |
if ($res->{total}) { |
313 |
if ($res->{total}) { |
|
Lines 241-247
for my $thisbranch (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{b
Link Here
|
| 241 |
}; |
328 |
}; |
| 242 |
} |
329 |
} |
| 243 |
|
330 |
|
| 244 |
my $sth=$dbh->prepare("SELECT description,categorycode FROM categories ORDER BY description"); |
331 |
my $sth=$dbh->prepare(" |
|
|
332 |
SELECT description,categorycode |
| 333 |
FROM categories |
| 334 |
ORDER BY description |
| 335 |
"); |
| 245 |
$sth->execute; |
336 |
$sth->execute; |
| 246 |
my @category_loop; |
337 |
my @category_loop; |
| 247 |
while (my $data=$sth->fetchrow_hashref){ |
338 |
while (my $data=$sth->fetchrow_hashref){ |
|
Lines 249-255
while (my $data=$sth->fetchrow_hashref){
Link Here
|
| 249 |
} |
340 |
} |
| 250 |
|
341 |
|
| 251 |
$sth->finish; |
342 |
$sth->finish; |
| 252 |
$sth=$dbh->prepare("SELECT description,itemtype FROM itemtypes ORDER BY description"); |
343 |
$sth=$dbh->prepare(" |
|
|
344 |
SELECT description,itemtype |
| 345 |
FROM itemtypes |
| 346 |
ORDER BY description |
| 347 |
"); |
| 253 |
$sth->execute; |
348 |
$sth->execute; |
| 254 |
# $i=0; |
349 |
# $i=0; |
| 255 |
my @row_loop; |
350 |
my @row_loop; |
| 256 |
- |
|
|