|
Lines 1971-1980
sub RevertWaitingStatus {
Link Here
|
| 1971 |
|
1971 |
|
| 1972 |
## Increment the priority of all other non-waiting |
1972 |
## Increment the priority of all other non-waiting |
| 1973 |
## reserves for this bib record |
1973 |
## reserves for this bib record |
| 1974 |
my $holds = Koha::Holds->search({ biblionumber => $hold->biblionumber, priority => { '>' => 0 } }); |
1974 |
my $holds = Koha::Holds->search({ biblionumber => $hold->biblionumber, priority => { '>' => 0 } }) |
| 1975 |
while ( my $h = $holds->next ) { |
1975 |
->update({ priority => \'priority + 1' }); |
| 1976 |
$h->priority( $h->priority + 1 )->store; |
|
|
| 1977 |
} |
| 1978 |
|
1976 |
|
| 1979 |
## Fix up the currently waiting reserve |
1977 |
## Fix up the currently waiting reserve |
| 1980 |
$hold->set( |
1978 |
$hold->set( |
| 1981 |
- |
|
|