|
Lines 1003-1008
sub CancelReserve {
Link Here
|
| 1003 |
|
1003 |
|
| 1004 |
my $reserve_id = $params->{'reserve_id'}; |
1004 |
my $reserve_id = $params->{'reserve_id'}; |
| 1005 |
$reserve_id = GetReserveId( $params ) unless ( $reserve_id ); |
1005 |
$reserve_id = GetReserveId( $params ) unless ( $reserve_id ); |
|
|
1006 |
my $reserve = GetReserve( $reserve_id ); |
| 1006 |
|
1007 |
|
| 1007 |
return unless ( $reserve_id ); |
1008 |
return unless ( $reserve_id ); |
| 1008 |
|
1009 |
|
|
Lines 1034-1040
sub CancelReserve {
Link Here
|
| 1034 |
$sth->execute( $reserve_id ); |
1035 |
$sth->execute( $reserve_id ); |
| 1035 |
|
1036 |
|
| 1036 |
# now fix the priority on the others.... |
1037 |
# now fix the priority on the others.... |
| 1037 |
_FixPriority( $reserve_id ); |
1038 |
_FixPriority( undef, undef, undef, $reserve->{biblionumber} ); |
| 1038 |
} |
1039 |
} |
| 1039 |
|
1040 |
|
| 1040 |
=head2 ModReserve |
1041 |
=head2 ModReserve |
|
Lines 1625-1640
in new priority rank
Link Here
|
| 1625 |
=cut |
1626 |
=cut |
| 1626 |
|
1627 |
|
| 1627 |
sub _FixPriority { |
1628 |
sub _FixPriority { |
| 1628 |
my ( $reserve_id, $rank, $ignoreSetLowestRank ) = @_; |
1629 |
my ( $reserve_id, $rank, $ignoreSetLowestRank, $biblionumber ) = @_; |
| 1629 |
my $dbh = C4::Context->dbh; |
1630 |
my $dbh = C4::Context->dbh; |
| 1630 |
|
1631 |
|
| 1631 |
my $res = GetReserve( $reserve_id ); |
1632 |
my $res = GetReserve( $reserve_id ); |
|
|
1633 |
$biblionumber ||= $res->{biblionumber}; |
| 1632 |
|
1634 |
|
| 1633 |
if ( $rank eq "del" ) { |
1635 |
if ( $rank eq "del" ) { |
| 1634 |
CancelReserve({ reserve_id => $reserve_id }); |
1636 |
CancelReserve({ reserve_id => $reserve_id }); |
| 1635 |
} |
1637 |
} |
| 1636 |
elsif ( $rank eq "W" || $rank eq "0" ) { |
1638 |
elsif ( $rank eq "W" || $rank eq "0" ) { |
| 1637 |
|
|
|
| 1638 |
# make sure priority for waiting or in-transit items is 0 |
1639 |
# make sure priority for waiting or in-transit items is 0 |
| 1639 |
my $query = " |
1640 |
my $query = " |
| 1640 |
UPDATE reserves |
1641 |
UPDATE reserves |
|
Lines 1656-1662
sub _FixPriority {
Link Here
|
| 1656 |
ORDER BY priority ASC |
1657 |
ORDER BY priority ASC |
| 1657 |
"; |
1658 |
"; |
| 1658 |
my $sth = $dbh->prepare($query); |
1659 |
my $sth = $dbh->prepare($query); |
| 1659 |
$sth->execute( $res->{'biblionumber'} ); |
1660 |
$sth->execute( $biblionumber ); |
| 1660 |
while ( my $line = $sth->fetchrow_hashref ) { |
1661 |
while ( my $line = $sth->fetchrow_hashref ) { |
| 1661 |
push( @priority, $line ); |
1662 |
push( @priority, $line ); |
| 1662 |
} |
1663 |
} |
| 1663 |
- |
|
|