|
Lines 1993-2002
sub RevertWaitingStatus {
Link Here
|
| 1993 |
|
1993 |
|
| 1994 |
## Increment the priority of all other non-waiting |
1994 |
## Increment the priority of all other non-waiting |
| 1995 |
## reserves for this bib record |
1995 |
## reserves for this bib record |
| 1996 |
my $holds = Koha::Holds->search({ biblionumber => $hold->biblionumber, priority => { '>' => 0 } }); |
1996 |
my $holds = Koha::Holds->search({ biblionumber => $hold->biblionumber, priority => { '>' => 0 } }) |
| 1997 |
while ( my $h = $holds->next ) { |
1997 |
->update({ priority => \'priority + 1' }); |
| 1998 |
$h->priority( $h->priority + 1 )->store; |
|
|
| 1999 |
} |
| 2000 |
|
1998 |
|
| 2001 |
## Fix up the currently waiting reserve |
1999 |
## Fix up the currently waiting reserve |
| 2002 |
$hold->set( |
2000 |
$hold->set( |
| 2003 |
- |
|
|