Lines 1948-1957
sub RevertWaitingStatus {
Link Here
|
1948 |
|
1948 |
|
1949 |
## Increment the priority of all other non-waiting |
1949 |
## Increment the priority of all other non-waiting |
1950 |
## reserves for this bib record |
1950 |
## reserves for this bib record |
1951 |
my $holds = Koha::Holds->search({ biblionumber => $hold->biblionumber, priority => { '>' => 0 } }); |
1951 |
my $holds = Koha::Holds->search({ biblionumber => $hold->biblionumber, priority => { '>' => 0 } }) |
1952 |
while ( my $h = $holds->next ) { |
1952 |
->update({ priority => \'priority + 1' }); |
1953 |
$h->priority( $h->priority + 1 )->store; |
|
|
1954 |
} |
1955 |
|
1953 |
|
1956 |
## Fix up the currently waiting reserve |
1954 |
## Fix up the currently waiting reserve |
1957 |
$hold->set( { priority => 1, found => undef, waitingdate => undef } )->store; |
1955 |
$hold->set( { priority => 1, found => undef, waitingdate => undef } )->store; |
1958 |
- |
|
|