Lines 224-234
sub AddReserve {
Link Here
|
224 |
$found = 'W'; |
224 |
$found = 'W'; |
225 |
} |
225 |
} |
226 |
} |
226 |
} |
227 |
|
227 |
if ( C4::Context->preference( 'AllowHoldDateInFuture' ) ) { |
228 |
if ( C4::Context->preference('AllowHoldDateInFuture') ) { |
228 |
# Make room in reserves for this before those of a later reserve date |
229 |
|
229 |
$priority = _ShiftPriorityByDateAndPriority( $biblionumber, $priority ); |
230 |
# Make room in reserves for this before those of a later reserve date |
|
|
231 |
$priority = _ShiftPriorityByDateAndPriority( $biblionumber, $resdate, $priority ); |
232 |
} |
230 |
} |
233 |
|
231 |
|
234 |
my $waitingdate; |
232 |
my $waitingdate; |
Lines 1962-1973
the sub accounts for that too.
Link Here
|
1962 |
=cut |
1960 |
=cut |
1963 |
|
1961 |
|
1964 |
sub _ShiftPriorityByDateAndPriority { |
1962 |
sub _ShiftPriorityByDateAndPriority { |
1965 |
my ( $biblio, $resdate, $new_priority ) = @_; |
1963 |
my ( $biblio, $new_priority ) = @_; |
1966 |
|
1964 |
|
1967 |
my $dbh = C4::Context->dbh; |
1965 |
my $dbh = C4::Context->dbh; |
1968 |
my $query = "SELECT priority FROM reserves WHERE biblionumber = ? AND ( reservedate > ? OR priority > ? ) ORDER BY priority ASC LIMIT 1"; |
1966 |
my $query = "SELECT priority FROM reserves WHERE biblionumber = ? AND priority > ? ORDER BY priority ASC LIMIT 1"; |
1969 |
my $sth = $dbh->prepare( $query ); |
1967 |
my $sth = $dbh->prepare( $query ); |
1970 |
$sth->execute( $biblio, $resdate, $new_priority ); |
1968 |
$sth->execute( $biblio, $new_priority ); |
1971 |
my $min_priority = $sth->fetchrow; |
1969 |
my $min_priority = $sth->fetchrow; |
1972 |
# if no such matches are found, $new_priority remains as original value |
1970 |
# if no such matches are found, $new_priority remains as original value |
1973 |
$new_priority = $min_priority if ( $min_priority ); |
1971 |
$new_priority = $min_priority if ( $min_priority ); |
1974 |
- |
|
|