|
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 |
- |
|
|