|
Lines 554-565
sub DelBiblio {
Link Here
|
| 554 |
|
554 |
|
| 555 |
# We delete any existing holds |
555 |
# We delete any existing holds |
| 556 |
my $holds = $biblio->holds; |
556 |
my $holds = $biblio->holds; |
| 557 |
$holds->update({ deleted_biblionumber => $biblionumber }, { no_triggers => 1 }); |
557 |
$holds->update( { deleted_biblionumber => $biblionumber }, { no_triggers => 1 } ); |
| 558 |
my $old_holds = $biblio->old_holds; |
558 |
my $old_holds = $biblio->old_holds; |
| 559 |
$old_holds->update({ deleted_biblionumber => $biblionumber }, { no_triggers => 1 }); |
559 |
$old_holds->update( { deleted_biblionumber => $biblionumber }, { no_triggers => 1 } ); |
| 560 |
while ( my $hold = $holds->next ) { |
560 |
while ( my $hold = $holds->next ) { |
|
|
561 |
|
| 561 |
# no need to update the holds queue on each step, we'll do it at the end |
562 |
# no need to update the holds queue on each step, we'll do it at the end |
| 562 |
$hold->cancel({ skip_holds_queue => 1 }); |
563 |
$hold->cancel( { skip_holds_queue => 1 } ); |
| 563 |
} |
564 |
} |
| 564 |
|
565 |
|
| 565 |
# We update any existing orders |
566 |
# We update any existing orders |