| Lines 29-34
          use C4::Biblio;
      
      
        Link Here | 
        
          | 29 | use C4::Serials; | 29 | use C4::Serials; | 
        
          | 30 | use C4::Koha; | 30 | use C4::Koha; | 
        
          | 31 | use C4::Reserves qw/MergeHolds/; | 31 | use C4::Reserves qw/MergeHolds/; | 
            
              |  |  | 32 | use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/; | 
        
          | 32 |  | 33 |  | 
        
          | 33 | my $input = new CGI; | 34 | my $input = new CGI; | 
        
          | 34 | my @biblionumber = $input->param('biblionumber'); | 35 | my @biblionumber = $input->param('biblionumber'); | 
  
    | Lines 101-106
          if ($merge) {
      
      
        Link Here | 
        
          | 101 |  | 102 |  | 
        
          | 102 |     # TODO : Moving reserves | 103 |     # TODO : Moving reserves | 
        
          | 103 |  | 104 |  | 
            
              |  |  | 105 |     # Moving orders | 
            
              | 106 |     my @allorders = GetOrdersByBiblionumber($frombiblio); | 
            
              | 107 |     foreach my $myorder (@allorders) { | 
            
              | 108 |         $myorder->{'biblionumber'} = $tobiblio; | 
            
              | 109 |         $myorder->{'biblioitemnumber'} = $tobiblio; #maybe useless | 
            
              | 110 |         ModOrder ($myorder); | 
            
              | 111 |     # TODO : add error control (in ModOrder?) | 
            
              | 112 |     } | 
            
              | 113 |  | 
        
          | 104 |     # Deleting the other record | 114 |     # Deleting the other record | 
        
          | 105 |     if (scalar(@errors) == 0) { | 115 |     if (scalar(@errors) == 0) { | 
        
          | 106 |     # Move holds | 116 |     # Move holds | 
            
              | 107 | -  |  |  |