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