|
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, 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=?, 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 |
reservesallowed, |
| 112 |
issuelength, |
| 113 |
lengthunit, |
| 114 |
hardduedate, |
| 115 |
hardduedatecompare, |
| 116 |
fine, |
| 117 |
finedays, |
| 118 |
firstremind, |
| 119 |
chargeperiod, |
| 120 |
rentaldiscount, |
| 121 |
overduefinescap |
| 122 |
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
| 123 |
'); |
| 124 |
my $sth_update=$dbh->prepare(" |
| 125 |
UPDATE issuingrules |
| 126 |
SET fine = ?, |
| 127 |
finedays = ?, |
| 128 |
firstremind = ?, |
| 129 |
chargeperiod = ?, |
| 130 |
maxissueqty = ?, |
| 131 |
renewalsallowed = ?, |
| 132 |
reservesallowed = ?, |
| 133 |
issuelength = ?, |
| 134 |
lengthunit = ?, |
| 135 |
hardduedate = ?, |
| 136 |
hardduedatecompare = ?, |
| 137 |
rentaldiscount = ?, |
| 138 |
overduefinescap = ? |
| 139 |
WHERE branchcode = ? |
| 140 |
AND categorycode = ? |
| 141 |
AND itemtype = ? |
| 142 |
"); |
| 143 |
|
| 86 |
my $br = $branch; # branch |
144 |
my $br = $branch; # branch |
| 87 |
my $bor = $input->param('categorycode'); # borrower category |
145 |
my $bor = $input->param('categorycode'); # borrower category |
| 88 |
my $cat = $input->param('itemtype'); # item type |
146 |
my $cat = $input->param('itemtype'); # item type |
|
Lines 121-135
elsif ($op eq "set-branch-defaults") {
Link Here
|
| 121 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
179 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
| 122 |
$holdallowed =~ s/\s//g; |
180 |
$holdallowed =~ s/\s//g; |
| 123 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
181 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
| 124 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
182 |
my $sth_search = $dbh->prepare(" |
| 125 |
FROM circ_rules |
183 |
SELECT count(*) AS total |
| 126 |
WHERE branchcode = ?"); |
184 |
FROM circ_rules |
| 127 |
my $sth_insert = $dbh->prepare("INSERT INTO circ_rules |
185 |
WHERE branchcode = ? |
| 128 |
(branchcode, maxissueqty, holdallowed, returnbranch) |
186 |
"); |
| 129 |
VALUES (?, ?, ?, ?)"); |
187 |
my $sth_insert = $dbh->prepare(" |
| 130 |
my $sth_update = $dbh->prepare("UPDATE circ_rules |
188 |
INSERT INTO circ_rules (branchcode, maxissueqty, holdallowed, returnbranch) |
| 131 |
SET maxissueqty = ?, holdallowed = ?, returnbranch = ? |
189 |
VALUES (?, ?, ?, ?) |
| 132 |
WHERE branchcode = ?"); |
190 |
"); |
|
|
191 |
my $sth_update = $dbh->prepare(" |
| 192 |
UPDATE circ_rules |
| 193 |
SET maxissueqty = ?, holdallowed = ?, returnbranch = ? |
| 194 |
WHERE branchcode = ? |
| 195 |
"); |
| 133 |
|
196 |
|
| 134 |
$sth_search->execute( $branch ); |
197 |
$sth_search->execute( $branch ); |
| 135 |
my $res = $sth_search->fetchrow_hashref(); |
198 |
my $res = $sth_search->fetchrow_hashref(); |
|
Lines 146-160
elsif ($op eq "add-branch-cat") {
Link Here
|
| 146 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
209 |
$maxissueqty = undef if $maxissueqty !~ /^\d+/; |
| 147 |
|
210 |
|
| 148 |
if ($categorycode eq "*") { |
211 |
if ($categorycode eq "*") { |
| 149 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
212 |
my $sth_search = $dbh->prepare(" |
| 150 |
FROM circ_rules |
213 |
SELECT count(*) AS total |
| 151 |
WHERE branchcode = ?"); |
214 |
FROM circ_rules |
| 152 |
my $sth_insert = $dbh->prepare("INSERT INTO circ_rules |
215 |
WHERE branchcode = ? |
| 153 |
(branchcode, maxissueqty) |
216 |
"); |
| 154 |
VALUES (?, ?)"); |
217 |
my $sth_insert = $dbh->prepare(" |
| 155 |
my $sth_update = $dbh->prepare("UPDATE circ_rules |
218 |
INSERT INTO circ_rules (branchcode, maxissueqty) |
| 156 |
SET maxissueqty = ? |
219 |
VALUES (?, ?) |
| 157 |
WHERE branchcode = ?"); |
220 |
"); |
|
|
221 |
my $sth_update = $dbh->prepare(" |
| 222 |
UPDATE circ_rules |
| 223 |
SET maxissueqty = ? |
| 224 |
WHERE branchcode = ? |
| 225 |
"); |
| 158 |
|
226 |
|
| 159 |
$sth_search->execute( $branch ); |
227 |
$sth_search->execute( $branch ); |
| 160 |
my $res = $sth_search->fetchrow_hashref(); |
228 |
my $res = $sth_search->fetchrow_hashref(); |
|
Lines 164-180
elsif ($op eq "add-branch-cat") {
Link Here
|
| 164 |
$sth_insert->execute( $maxissueqty, $branch ); |
232 |
$sth_insert->execute( $maxissueqty, $branch ); |
| 165 |
} |
233 |
} |
| 166 |
} else { |
234 |
} else { |
| 167 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
235 |
my $sth_search = $dbh->prepare(" |
| 168 |
FROM borrower_circ_rules |
236 |
SELECT count(*) AS total |
| 169 |
WHERE branchcode = ? |
237 |
FROM borrower_circ_rules |
| 170 |
AND categorycode = ?"); |
238 |
WHERE branchcode = ? |
| 171 |
my $sth_insert = $dbh->prepare("INSERT INTO borrower_circ_rules |
239 |
AND categorycode = ? |
| 172 |
(branchcode, categorycode, maxissueqty) |
240 |
"); |
| 173 |
VALUES (?, ?, ?)"); |
241 |
my $sth_insert = $dbh->prepare(" |
| 174 |
my $sth_update = $dbh->prepare("UPDATE borrower_circ_rules |
242 |
INSERT INTO borrower_circ_rules |
| 175 |
SET maxissueqty = ? |
243 |
(branchcode, categorycode, maxissueqty) |
| 176 |
WHERE branchcode = ? |
244 |
VALUES (?, ?, ?)"); |
| 177 |
AND categorycode = ?"); |
245 |
my $sth_update = $dbh->prepare(" |
|
|
246 |
UPDATE borrower_circ_rules |
| 247 |
SET maxissueqty = ? |
| 248 |
WHERE branchcode = ? |
| 249 |
AND categorycode = ? |
| 250 |
"); |
| 178 |
$sth_search->execute( $branch, $categorycode ); |
251 |
$sth_search->execute( $branch, $categorycode ); |
| 179 |
my $res = $sth_search->fetchrow_hashref(); |
252 |
my $res = $sth_search->fetchrow_hashref(); |
| 180 |
if ($res->{total}) { |
253 |
if ($res->{total}) { |
|
Lines 192-206
elsif ($op eq "add-branch-item") {
Link Here
|
| 192 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
265 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
| 193 |
|
266 |
|
| 194 |
if ($itemtype eq "*") { |
267 |
if ($itemtype eq "*") { |
| 195 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
268 |
my $sth_search = $dbh->prepare(" |
| 196 |
FROM circ_rules |
269 |
SELECT count(*) AS total |
| 197 |
WHERE branchcode = ?"); |
270 |
FROM circ_rules |
| 198 |
my $sth_insert = $dbh->prepare("INSERT INTO circ_rules |
271 |
WHERE branchcode = ? |
| 199 |
(branchcode, holdallowed, returnbranch) |
272 |
"); |
| 200 |
VALUES (?, ?, ?)"); |
273 |
my $sth_insert = $dbh->prepare(" |
| 201 |
my $sth_update = $dbh->prepare("UPDATE circ_rules |
274 |
INSERT INTO circ_rules |
| 202 |
SET holdallowed = ?, returnbranch = ? |
275 |
(branchcode, holdallowed, returnbranch) |
| 203 |
WHERE branchcode = ?"); |
276 |
VALUES (?, ?, ?) |
|
|
277 |
"); |
| 278 |
my $sth_update = $dbh->prepare(" |
| 279 |
UPDATE circ_rules |
| 280 |
SET holdallowed = ?, returnbranch = ? |
| 281 |
WHERE branchcode = ? |
| 282 |
"); |
| 204 |
|
283 |
|
| 205 |
$sth_search->execute( $branch ); |
284 |
$sth_search->execute( $branch ); |
| 206 |
my $res = $sth_search->fetchrow_hashref(); |
285 |
my $res = $sth_search->fetchrow_hashref(); |
|
Lines 210-225
elsif ($op eq "add-branch-item") {
Link Here
|
| 210 |
$sth_insert->execute($branch, $holdallowed, $returnbranch); |
289 |
$sth_insert->execute($branch, $holdallowed, $returnbranch); |
| 211 |
} |
290 |
} |
| 212 |
} else { |
291 |
} else { |
| 213 |
my $sth_search = $dbh->prepare("SELECT count(*) AS total |
292 |
my $sth_search = $dbh->prepare(" |
| 214 |
FROM item_circ_rules |
293 |
SELECT count(*) AS total |
| 215 |
WHERE itemtype = ?"); |
294 |
FROM item_circ_rules |
| 216 |
my $sth_insert = $dbh->prepare("INSERT INTO item_circ_rules |
295 |
WHERE itemtype = ? |
| 217 |
(branchcode, itemtype, holdallowed, returnbranch) |
296 |
"); |
| 218 |
VALUES (?, ?, ?, ?)"); |
297 |
my $sth_insert = $dbh->prepare(" |
| 219 |
my $sth_update = $dbh->prepare("UPDATE item_circ_rules |
298 |
INSERT INTO item_circ_rules |
| 220 |
SET holdallowed = ?, returnbranch = ? |
299 |
(branchcode, itemtype, holdallowed, returnbranch) |
| 221 |
WHERE branchcode = ? |
300 |
VALUES (?, ?, ?, ?) |
| 222 |
AND itemtype = ?"); |
301 |
"); |
|
|
302 |
my $sth_update = $dbh->prepare(" |
| 303 |
UPDATE item_circ_rules |
| 304 |
SET holdallowed = ?, returnbranch = ? |
| 305 |
WHERE branchcode = ? |
| 306 |
AND itemtype = ? |
| 307 |
"); |
| 223 |
$sth_search->execute($itemtype); |
308 |
$sth_search->execute($itemtype); |
| 224 |
my $res = $sth_search->fetchrow_hashref(); |
309 |
my $res = $sth_search->fetchrow_hashref(); |
| 225 |
if ($res->{total}) { |
310 |
if ($res->{total}) { |
|
Lines 240-246
for my $thisbranch (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{b
Link Here
|
| 240 |
}; |
325 |
}; |
| 241 |
} |
326 |
} |
| 242 |
|
327 |
|
| 243 |
my $sth=$dbh->prepare("SELECT description,categorycode FROM categories ORDER BY description"); |
328 |
my $sth=$dbh->prepare(" |
|
|
329 |
SELECT description,categorycode |
| 330 |
FROM categories |
| 331 |
ORDER BY description |
| 332 |
"); |
| 244 |
$sth->execute; |
333 |
$sth->execute; |
| 245 |
my @category_loop; |
334 |
my @category_loop; |
| 246 |
while (my $data=$sth->fetchrow_hashref){ |
335 |
while (my $data=$sth->fetchrow_hashref){ |
|
Lines 248-254
while (my $data=$sth->fetchrow_hashref){
Link Here
|
| 248 |
} |
337 |
} |
| 249 |
|
338 |
|
| 250 |
$sth->finish; |
339 |
$sth->finish; |
| 251 |
$sth=$dbh->prepare("SELECT description,itemtype FROM itemtypes ORDER BY description"); |
340 |
$sth=$dbh->prepare(" |
|
|
341 |
SELECT description,itemtype |
| 342 |
FROM itemtypes |
| 343 |
ORDER BY description |
| 344 |
"); |
| 252 |
$sth->execute; |
345 |
$sth->execute; |
| 253 |
# $i=0; |
346 |
# $i=0; |
| 254 |
my @row_loop; |
347 |
my @row_loop; |
| 255 |
- |
|
|