View | Details | Raw Unified | Return to bug 25043
Collapse All | Expand All

(-)a/Koha/Schema.pm (-1 / +4 lines)
Lines 9-15 use warnings; Link Here
9 

          9
          

        

        

          10
          
use base 'DBIx::Class::Schema';

          10
          
use base 'DBIx::Class::Schema';

        

        

          11
          

          11
          

        

          
            

              12
              
__PACKAGE__->load_namespaces;


              12
              

            

            

              
              

              13
              
__PACKAGE__->load_namespaces(

            

            


              14
              
   default_resultset_class => 'ResultSet',

            

            


              15
              
);

            

        

          13
          

          16
          

        

        

          14
          

          17
          

        

        

          15
          
# Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21

          18
          
# Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21

        



(-)a/Koha/Schema/ResultSet.pm
      (+5 lines)




  

    
      
            Line 0
          
      
      
        Link Here
      
    
  

            

              
              
              1
              
package Koha::Schema::ResultSet;

            

            

              2
              
use strict;

            

            

              3
              
use warnings;

            

            

              4
              
use parent 'DBIx::Class::ResultSet';

            

            

              5
              
__PACKAGE__->load_components('Helper::ResultSet::SetOperations');

            



(-)a/test.pl
      (-1 / +10 lines)




  

    
      
            Line 0
          
      
      
        Link Here
      
    
  

          
            

              0
              
- 


              1
              
use Modern::Perl;

            

            

              
              

              2
              
use Koha::Database;

            

            


              3
              
my $borrowernumber = 5;

            

            


              4
              
my $holds = Koha::Database->new()->schema()->resultset('Reserve')->search({ borrowernumber => $borrowernumber });

            

            


              5
              
my $old_holds = Koha::Database->new()->schema()->resultset('OldReserve')->search({ borrowernumber => $borrowernumber });

            

            


              6
              

            

            


              7
              
$_->result_class('DBIx::Class::ResultClass::HashRefInflator')

            

            


              8
              
  for ($holds, $old_holds);

            

            


              9
              

            

            


              10
              
say $holds->union($old_holds)->count;

            






  

  Return to bug 25043