|
Lines 175-181
Top level function that turns reserves into tmp_holdsqueue and hold_fill_targets
Link Here
|
| 175 |
sub CreateQueue { |
175 |
sub CreateQueue { |
| 176 |
my $dbh = C4::Context->dbh; |
176 |
my $dbh = C4::Context->dbh; |
| 177 |
|
177 |
|
| 178 |
$dbh->do("DELETE FROM tmp_holdsqueue"); # clear the old table for new info |
178 |
$dbh->do("CREATE TABLE IF NOT EXISTS tmp_holdsqueue_builder LIKE tmp_holdsqueue"); |
|
|
179 |
$dbh->do("DELETE FROM tmp_holdsqueue_builder"); |
| 180 |
$dbh->do("CREATE TABLE IF NOT EXISTS hold_fill_targets_builder LIKE hold_fill_targets"); |
| 179 |
$dbh->do("DELETE FROM hold_fill_targets"); |
181 |
$dbh->do("DELETE FROM hold_fill_targets"); |
| 180 |
|
182 |
|
| 181 |
my $total_bibs = 0; |
183 |
my $total_bibs = 0; |
|
Lines 222-227
sub CreateQueue {
Link Here
|
| 222 |
#warn Dumper($hold_requests), Dumper($available_items), Dumper($item_map); |
224 |
#warn Dumper($hold_requests), Dumper($available_items), Dumper($item_map); |
| 223 |
} |
225 |
} |
| 224 |
} |
226 |
} |
|
|
227 |
|
| 228 |
my $do_not_lock = ( exists $ENV{_} && $ENV{_} =~ m|prove| ) || $ENV{KOHA_TESTING}; |
| 229 |
$dbh->{AutoCommit} = 0 unless $do_not_lock; |
| 230 |
$dbh->do("DELETE FROM tmp_holdsqueue"); # clear the old table for new info |
| 231 |
$dbh->do("INSERT INTO tmp_holdsqueue SELECT * FROM tmp_holdsqueue_builder"); |
| 232 |
$dbh->do("DELETE FROM hold_fill_targets"); |
| 233 |
$dbh->do("INSERT INTO hold_fill_targets SELECT * FROM hold_fill_targets_builder"); |
| 234 |
$dbh->do("DROP TABLE tmp_holdsqueue_builder"); |
| 235 |
$dbh->do("DROP TABLE hold_fill_targets_builder"); |
| 236 |
$dbh->commit() unless $do_not_lock; |
| 225 |
} |
237 |
} |
| 226 |
|
238 |
|
| 227 |
=head2 GetBibsWithPendingHoldRequests |
239 |
=head2 GetBibsWithPendingHoldRequests |
|
Lines 711-717
sub CreatePicklistFromItemMap {
Link Here
|
| 711 |
my $dbh = C4::Context->dbh; |
723 |
my $dbh = C4::Context->dbh; |
| 712 |
|
724 |
|
| 713 |
my $sth_load=$dbh->prepare(" |
725 |
my $sth_load=$dbh->prepare(" |
| 714 |
INSERT INTO tmp_holdsqueue (biblionumber,itemnumber,barcode,surname,firstname,phone,borrowernumber, |
726 |
INSERT INTO tmp_holdsqueue_builder (biblionumber,itemnumber,barcode,surname,firstname,phone,borrowernumber, |
| 715 |
cardnumber,reservedate,title, itemcallnumber, |
727 |
cardnumber,reservedate,title, itemcallnumber, |
| 716 |
holdingbranch,pickbranch,notes, item_level_request) |
728 |
holdingbranch,pickbranch,notes, item_level_request) |
| 717 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
729 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
|
Lines 756-762
sub AddToHoldTargetMap {
Link Here
|
| 756 |
my $dbh = C4::Context->dbh; |
768 |
my $dbh = C4::Context->dbh; |
| 757 |
|
769 |
|
| 758 |
my $insert_sql = q( |
770 |
my $insert_sql = q( |
| 759 |
INSERT INTO hold_fill_targets (borrowernumber, biblionumber, itemnumber, source_branchcode, item_level_request, reserve_id) |
771 |
INSERT INTO hold_fill_targets_builder (borrowernumber, biblionumber, itemnumber, source_branchcode, item_level_request, reserve_id) |
| 760 |
VALUES (?, ?, ?, ?, ?, ?) |
772 |
VALUES (?, ?, ?, ?, ?, ?) |
| 761 |
); |
773 |
); |
| 762 |
my $sth_insert = $dbh->prepare($insert_sql); |
774 |
my $sth_insert = $dbh->prepare($insert_sql); |
| 763 |
- |
|
|