| Lines 94-109
          if ( $response->is_success ) {
      
      
        Link Here | 
        
          | 94 |         $amount = $params{PAYMENTINFO_0_AMT}; | 94 |         $amount = $params{PAYMENTINFO_0_AMT}; | 
        
          | 95 |  | 95 |  | 
        
          | 96 |         my $account = Koha::Account->new( { patron_id => $borrowernumber } ); | 96 |         my $account = Koha::Account->new( { patron_id => $borrowernumber } ); | 
          
            
              | 97 |         foreach my $accountlines_id (@accountlines) { | 97 |         my @lines = Koha::Account::Lines->search( | 
            
              | 98 |             my $line = Koha::Account::Lines->find($accountlines_id); | 98 |             { | 
            
              | 99 |             $account->pay( | 99 |                 accountlines_id => { -in => \@accountlines } | 
            
              | 100 |                 { | 100 |             } | 
            
              | 101 |                     amount => $amount, | 101 |         ); | 
            
              | 102 |                     lines  => [$line], | 102 |  | 
            
              | 103 |                     note   => 'PayPal' | 103 |         $account->pay( | 
            
              | 104 |                 } | 104 |             { | 
            
              | 105 |             ); | 105 |                 amount => $amount, | 
            
              | 106 |         } | 106 |                 lines  => \@lines, | 
            
              |  |  | 107 |                 note   => 'PayPal' | 
            
              | 108 |             } | 
            
              | 109 |         ); | 
        
          | 107 |     } | 110 |     } | 
        
          | 108 |     else { | 111 |     else { | 
        
          | 109 |        $error = "PAYPAL_ERROR_PROCESSING"; | 112 |        $error = "PAYPAL_ERROR_PROCESSING"; | 
            
              | 110 | -  |  |  |