| Lines 58-63
          my $itemtype = $builder->build(
      
      
        Link Here | 
        
          | 58 |         value  => { notforloan => undef, rentalcharge => 0 } | 58 |         value  => { notforloan => undef, rentalcharge => 0 } | 
        
          | 59 |     } | 59 |     } | 
        
          | 60 | )->{itemtype}; | 60 | )->{itemtype}; | 
            
              |  |  | 61 | my $patron_category = $builder->build({ source => 'Category', value => { enrolmentfee => 0 } }); | 
        
          | 61 |  | 62 |  | 
        
          | 62 | my $CircControl = C4::Context->preference('CircControl'); | 63 | my $CircControl = C4::Context->preference('CircControl'); | 
        
          | 63 | my $HomeOrHoldingBranch = C4::Context->preference('HomeOrHoldingBranch'); | 64 | my $HomeOrHoldingBranch = C4::Context->preference('HomeOrHoldingBranch'); | 
  
    | Lines 190-196
          my $sth = C4::Context->dbh->prepare("SELECT COUNT(*) FROM accountlines WHERE amo
      
      
        Link Here | 
        
          | 190 | $sth->execute(); | 191 | $sth->execute(); | 
        
          | 191 | my ( $original_count ) = $sth->fetchrow_array(); | 192 | my ( $original_count ) = $sth->fetchrow_array(); | 
        
          | 192 |  | 193 |  | 
          
            
              | 193 | C4::Context->dbh->do("INSERT INTO borrowers ( cardnumber, surname, firstname, categorycode, branchcode ) VALUES ( '99999999999', 'Hall', 'Kyle', 'S', ? )", undef, $library2->{branchcode} ); | 194 | C4::Context->dbh->do("INSERT INTO borrowers ( cardnumber, surname, firstname, categorycode, branchcode ) VALUES ( '99999999999', 'Hall', 'Kyle', ?, ? )", undef, $patron_category->{categorycode}, $library2->{branchcode} ); | 
        
          | 194 |  | 195 |  | 
        
          | 195 | C4::Circulation::ProcessOfflinePayment({ cardnumber => '99999999999', amount => '123.45' }); | 196 | C4::Circulation::ProcessOfflinePayment({ cardnumber => '99999999999', amount => '123.45' }); | 
        
          | 196 |  | 197 |  | 
  
    | Lines 260-287
          C4::Context->dbh->do("DELETE FROM accountlines");
      
      
        Link Here | 
        
          | 260 |     my %renewing_borrower_data = ( | 261 |     my %renewing_borrower_data = ( | 
        
          | 261 |         firstname =>  'John', | 262 |         firstname =>  'John', | 
        
          | 262 |         surname => 'Renewal', | 263 |         surname => 'Renewal', | 
          
            
              | 263 |         categorycode => 'S', | 264 |         categorycode => $patron_category->{categorycode}, | 
        
          | 264 |         branchcode => $branch, | 265 |         branchcode => $branch, | 
        
          | 265 |     ); | 266 |     ); | 
        
          | 266 |  | 267 |  | 
        
          | 267 |     my %reserving_borrower_data = ( | 268 |     my %reserving_borrower_data = ( | 
        
          | 268 |         firstname =>  'Katrin', | 269 |         firstname =>  'Katrin', | 
        
          | 269 |         surname => 'Reservation', | 270 |         surname => 'Reservation', | 
          
            
              | 270 |         categorycode => 'S', | 271 |         categorycode => $patron_category->{categorycode}, | 
        
          | 271 |         branchcode => $branch, | 272 |         branchcode => $branch, | 
        
          | 272 |     ); | 273 |     ); | 
        
          | 273 |  | 274 |  | 
        
          | 274 |     my %hold_waiting_borrower_data = ( | 275 |     my %hold_waiting_borrower_data = ( | 
        
          | 275 |         firstname =>  'Kyle', | 276 |         firstname =>  'Kyle', | 
        
          | 276 |         surname => 'Reservation', | 277 |         surname => 'Reservation', | 
          
            
              | 277 |         categorycode => 'S', | 278 |         categorycode => $patron_category->{categorycode}, | 
        
          | 278 |         branchcode => $branch, | 279 |         branchcode => $branch, | 
        
          | 279 |     ); | 280 |     ); | 
        
          | 280 |  | 281 |  | 
        
          | 281 |     my %restricted_borrower_data = ( | 282 |     my %restricted_borrower_data = ( | 
        
          | 282 |         firstname =>  'Alice', | 283 |         firstname =>  'Alice', | 
        
          | 283 |         surname => 'Reservation', | 284 |         surname => 'Reservation', | 
          
            
              | 284 |         categorycode => 'S', | 285 |         categorycode => $patron_category->{categorycode}, | 
        
          | 285 |         debarred => '3228-01-01', | 286 |         debarred => '3228-01-01', | 
        
          | 286 |         branchcode => $branch, | 287 |         branchcode => $branch, | 
        
          | 287 |     ); | 288 |     ); | 
  
    | Lines 761-767
          C4::Context->dbh->do("DELETE FROM accountlines");
      
      
        Link Here | 
        
          | 761 |     my %a_borrower_data = ( | 762 |     my %a_borrower_data = ( | 
        
          | 762 |         firstname =>  'Fridolyn', | 763 |         firstname =>  'Fridolyn', | 
        
          | 763 |         surname => 'SOMERS', | 764 |         surname => 'SOMERS', | 
          
            
              | 764 |         categorycode => 'S', | 765 |         categorycode => $patron_category->{categorycode}, | 
        
          | 765 |         branchcode => $branch, | 766 |         branchcode => $branch, | 
        
          | 766 |     ); | 767 |     ); | 
        
          | 767 |  | 768 |  | 
  
    | Lines 841-847
          C4::Context->dbh->do("DELETE FROM accountlines");
      
      
        Link Here | 
        
          | 841 |     my %a_borrower_data = ( | 842 |     my %a_borrower_data = ( | 
        
          | 842 |         firstname =>  'Kyle', | 843 |         firstname =>  'Kyle', | 
        
          | 843 |         surname => 'Hall', | 844 |         surname => 'Hall', | 
          
            
              | 844 |         categorycode => 'S', | 845 |         categorycode => $patron_category->{categorycode}, | 
        
          | 845 |         branchcode => $branch, | 846 |         branchcode => $branch, | 
        
          | 846 |     ); | 847 |     ); | 
        
          | 847 |  | 848 |  | 
  
    | Lines 907-919
          C4::Context->dbh->do("DELETE FROM accountlines");
      
      
        Link Here | 
        
          | 907 |     my $borrowernumber1 = AddMember( | 908 |     my $borrowernumber1 = AddMember( | 
        
          | 908 |         firstname    => 'Kyle', | 909 |         firstname    => 'Kyle', | 
        
          | 909 |         surname      => 'Hall', | 910 |         surname      => 'Hall', | 
          
            
              | 910 |         categorycode => 'S', | 911 |         categorycode => $patron_category->{categorycode}, | 
        
          | 911 |         branchcode   => $library2->{branchcode}, | 912 |         branchcode   => $library2->{branchcode}, | 
        
          | 912 |     ); | 913 |     ); | 
        
          | 913 |     my $borrowernumber2 = AddMember( | 914 |     my $borrowernumber2 = AddMember( | 
        
          | 914 |         firstname    => 'Chelsea', | 915 |         firstname    => 'Chelsea', | 
        
          | 915 |         surname      => 'Hall', | 916 |         surname      => 'Hall', | 
          
            
              | 916 |         categorycode => 'S', | 917 |         categorycode => $patron_category->{categorycode}, | 
        
          | 917 |         branchcode   => $library2->{branchcode}, | 918 |         branchcode   => $library2->{branchcode}, | 
        
          | 918 |     ); | 919 |     ); | 
        
          | 919 |  | 920 |  | 
  
    | Lines 984-990
          C4::Context->dbh->do("DELETE FROM accountlines");
      
      
        Link Here | 
        
          | 984 |     my $borrowernumber = AddMember( | 985 |     my $borrowernumber = AddMember( | 
        
          | 985 |         firstname =>  'fn', | 986 |         firstname =>  'fn', | 
        
          | 986 |         surname => 'dn', | 987 |         surname => 'dn', | 
          
            
              | 987 |         categorycode => 'S', | 988 |         categorycode => $patron_category->{categorycode}, | 
        
          | 988 |         branchcode => $branch, | 989 |         branchcode => $branch, | 
        
          | 989 |     ); | 990 |     ); | 
        
          | 990 |  | 991 |  | 
  
    | Lines 1310-1316
          subtest 'MultipleReserves' => sub {
      
      
        Link Here | 
        
          | 1310 |     my %renewing_borrower_data = ( | 1311 |     my %renewing_borrower_data = ( | 
        
          | 1311 |         firstname =>  'John', | 1312 |         firstname =>  'John', | 
        
          | 1312 |         surname => 'Renewal', | 1313 |         surname => 'Renewal', | 
          
            
              | 1313 |         categorycode => 'S', | 1314 |         categorycode => $patron_category->{categorycode}, | 
        
          | 1314 |         branchcode => $branch, | 1315 |         branchcode => $branch, | 
        
          | 1315 |     ); | 1316 |     ); | 
        
          | 1316 |     my $renewing_borrowernumber = AddMember(%renewing_borrower_data); | 1317 |     my $renewing_borrowernumber = AddMember(%renewing_borrower_data); | 
  
    | Lines 1323-1329
          subtest 'MultipleReserves' => sub {
      
      
        Link Here | 
        
          | 1323 |     my %reserving_borrower_data1 = ( | 1324 |     my %reserving_borrower_data1 = ( | 
        
          | 1324 |         firstname =>  'Katrin', | 1325 |         firstname =>  'Katrin', | 
        
          | 1325 |         surname => 'Reservation', | 1326 |         surname => 'Reservation', | 
          
            
              | 1326 |         categorycode => 'S', | 1327 |         categorycode => $patron_category->{categorycode}, | 
        
          | 1327 |         branchcode => $branch, | 1328 |         branchcode => $branch, | 
        
          | 1328 |     ); | 1329 |     ); | 
        
          | 1329 |     my $reserving_borrowernumber1 = AddMember(%reserving_borrower_data1); | 1330 |     my $reserving_borrowernumber1 = AddMember(%reserving_borrower_data1); | 
  
    | Lines 1336-1342
          subtest 'MultipleReserves' => sub {
      
      
        Link Here | 
        
          | 1336 |     my %reserving_borrower_data2 = ( | 1337 |     my %reserving_borrower_data2 = ( | 
        
          | 1337 |         firstname =>  'Kirk', | 1338 |         firstname =>  'Kirk', | 
        
          | 1338 |         surname => 'Reservation', | 1339 |         surname => 'Reservation', | 
          
            
              | 1339 |         categorycode => 'S', | 1340 |         categorycode => $patron_category->{categorycode}, | 
        
          | 1340 |         branchcode => $branch, | 1341 |         branchcode => $branch, | 
        
          | 1341 |     ); | 1342 |     ); | 
        
          | 1342 |     my $reserving_borrowernumber2 = AddMember(%reserving_borrower_data2); | 1343 |     my $reserving_borrowernumber2 = AddMember(%reserving_borrower_data2); |