Lines 167-174
Top level function that turns reserves into tmp_holdsqueue and hold_fill_targets
Link Here
|
167 |
sub CreateQueue { |
167 |
sub CreateQueue { |
168 |
my $dbh = C4::Context->dbh; |
168 |
my $dbh = C4::Context->dbh; |
169 |
|
169 |
|
170 |
$dbh->do("DELETE FROM tmp_holdsqueue"); # clear the old table for new info |
170 |
$dbh->do("DROP TABLE IF EXISTS tmp_holdsqueue_builder"); |
171 |
$dbh->do("DELETE FROM hold_fill_targets"); |
171 |
$dbh->do("DROP TABLE IF EXISTS hold_fill_targets_builder"); |
|
|
172 |
$dbh->do("CREATE TABLE tmp_holdsqueue_builder LIKE tmp_holdsqueue"); |
173 |
$dbh->do("CREATE TABLE hold_fill_targets_builder LIKE hold_fill_targets"); |
172 |
|
174 |
|
173 |
my $total_bibs = 0; |
175 |
my $total_bibs = 0; |
174 |
my $total_requests = 0; |
176 |
my $total_requests = 0; |
Lines 213-218
sub CreateQueue {
Link Here
|
213 |
#warn Dumper($hold_requests), Dumper($available_items), Dumper($item_map); |
215 |
#warn Dumper($hold_requests), Dumper($available_items), Dumper($item_map); |
214 |
} |
216 |
} |
215 |
} |
217 |
} |
|
|
218 |
|
219 |
my $do_not_lock = ( exists $ENV{_} && $ENV{_} =~ m|prove| ) || $ENV{KOHA_TESTING}; |
220 |
$dbh->{AutoCommit} = 0 unless $do_not_lock; |
221 |
$dbh->do("DELETE FROM tmp_holdsqueue"); # clear the old tables for new info |
222 |
$dbh->do("DELETE FROM hold_fill_targets"); |
223 |
$dbh->do("INSERT INTO tmp_holdsqueue SELECT * FROM tmp_holdsqueue_builder"); |
224 |
$dbh->do("INSERT INTO hold_fill_targets SELECT * FROM hold_fill_targets_builder"); |
225 |
$dbh->do("DROP TABLE tmp_holdsqueue_builder"); |
226 |
$dbh->do("DROP TABLE hold_fill_targets_builder"); |
227 |
$dbh->commit() unless $do_not_lock; |
216 |
} |
228 |
} |
217 |
|
229 |
|
218 |
=head2 GetBibsWithPendingHoldRequests |
230 |
=head2 GetBibsWithPendingHoldRequests |
Lines 702-708
sub CreatePicklistFromItemMap {
Link Here
|
702 |
my $dbh = C4::Context->dbh; |
714 |
my $dbh = C4::Context->dbh; |
703 |
|
715 |
|
704 |
my $sth_load=$dbh->prepare(" |
716 |
my $sth_load=$dbh->prepare(" |
705 |
INSERT INTO tmp_holdsqueue (biblionumber,itemnumber,barcode,surname,firstname,phone,borrowernumber, |
717 |
INSERT INTO tmp_holdsqueue_builder (biblionumber,itemnumber,barcode,surname,firstname,phone,borrowernumber, |
706 |
cardnumber,reservedate,title, itemcallnumber, |
718 |
cardnumber,reservedate,title, itemcallnumber, |
707 |
holdingbranch,pickbranch,notes, item_level_request) |
719 |
holdingbranch,pickbranch,notes, item_level_request) |
708 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
720 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
Lines 747-753
sub AddToHoldTargetMap {
Link Here
|
747 |
my $dbh = C4::Context->dbh; |
759 |
my $dbh = C4::Context->dbh; |
748 |
|
760 |
|
749 |
my $insert_sql = q( |
761 |
my $insert_sql = q( |
750 |
INSERT INTO hold_fill_targets (borrowernumber, biblionumber, itemnumber, source_branchcode, item_level_request, reserve_id) |
762 |
INSERT INTO hold_fill_targets_builder (borrowernumber, biblionumber, itemnumber, source_branchcode, item_level_request, reserve_id) |
751 |
VALUES (?, ?, ?, ?, ?, ?) |
763 |
VALUES (?, ?, ?, ?, ?, ?) |
752 |
); |
764 |
); |
753 |
my $sth_insert = $dbh->prepare($insert_sql); |
765 |
my $sth_insert = $dbh->prepare($insert_sql); |
754 |
- |
|
|