|
Lines 273-279
sub GetReservesFromBiblionumber {
Link Here
|
| 273 |
expirationdate, |
273 |
expirationdate, |
| 274 |
lowestPriority, |
274 |
lowestPriority, |
| 275 |
suspend, |
275 |
suspend, |
| 276 |
suspend_until |
276 |
suspend_until, |
|
|
277 |
reserve_id |
| 277 |
FROM reserves |
278 |
FROM reserves |
| 278 |
WHERE biblionumber = ? "; |
279 |
WHERE biblionumber = ? "; |
| 279 |
unless ( $all_dates ) { |
280 |
unless ( $all_dates ) { |
|
Lines 1056-1062
itemnumber and supplying itemnumber.
Link Here
|
| 1056 |
|
1057 |
|
| 1057 |
sub ModReserve { |
1058 |
sub ModReserve { |
| 1058 |
#subroutine to update a reserve |
1059 |
#subroutine to update a reserve |
| 1059 |
my ( $rank, $biblio, $borrower, $branch , $itemnumber, $suspend_until) = @_; |
1060 |
my ( $rank, $biblio, $borrower, $branch , $itemnumber, $suspend_until, $reserve_id ) = @_; |
| 1060 |
return if $rank eq "W"; |
1061 |
return if $rank eq "W"; |
| 1061 |
return if $rank eq "n"; |
1062 |
return if $rank eq "n"; |
| 1062 |
my $dbh = C4::Context->dbh; |
1063 |
my $dbh = C4::Context->dbh; |
|
Lines 1089-1094
sub ModReserve {
Link Here
|
| 1089 |
|
1090 |
|
| 1090 |
} |
1091 |
} |
| 1091 |
elsif ($rank =~ /^\d+/ and $rank > 0) { |
1092 |
elsif ($rank =~ /^\d+/ and $rank > 0) { |
|
|
1093 |
my $reserve; |
| 1094 |
if ( $reserve_id ) { |
| 1095 |
my $sth = $dbh->prepare("SELECT * FROM reserves WHERE reserve_id = ?"); |
| 1096 |
$sth->execute( $reserve_id ); |
| 1097 |
$reserve = $sth->fetchrow_hashref(); |
| 1098 |
} |
| 1099 |
|
| 1092 |
my $query = " |
1100 |
my $query = " |
| 1093 |
UPDATE reserves SET priority = ? ,branchcode = ?, itemnumber = ?, found = NULL, waitingdate = NULL |
1101 |
UPDATE reserves SET priority = ? ,branchcode = ?, itemnumber = ?, found = NULL, waitingdate = NULL |
| 1094 |
WHERE biblionumber = ? |
1102 |
WHERE biblionumber = ? |
|
Lines 1098-1103
sub ModReserve {
Link Here
|
| 1098 |
$sth->execute( $rank, $branch,$itemnumber, $biblio, $borrower); |
1106 |
$sth->execute( $rank, $branch,$itemnumber, $biblio, $borrower); |
| 1099 |
$sth->finish; |
1107 |
$sth->finish; |
| 1100 |
|
1108 |
|
|
|
1109 |
## If we are re-prioritizing a previously 'in transit' hold, we need to remove any item transfer that may have been created for it. |
| 1110 |
if ( $reserve->{'found'} eq 'T' ) { |
| 1111 |
$dbh->do("DELETE FROM branchtransfers WHERE itemnumber = ? AND tobranch = ? AND datearrived IS NULL", undef, ( $itemnumber, $reserve->{'branchcode'} ) ); |
| 1112 |
} |
| 1113 |
|
| 1101 |
if ( defined( $suspend_until ) ) { |
1114 |
if ( defined( $suspend_until ) ) { |
| 1102 |
if ( $suspend_until ) { |
1115 |
if ( $suspend_until ) { |
| 1103 |
$suspend_until = C4::Dates->new( $suspend_until )->output("iso"); |
1116 |
$suspend_until = C4::Dates->new( $suspend_until )->output("iso"); |