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