| Lines 3184-3202
          sub _get_discount_from_rule {
      
      
        Link Here | 
        
          | 3184 |  | 3184 |  | 
        
          | 3185 | sub AddIssuingCharge { | 3185 | sub AddIssuingCharge { | 
        
          | 3186 |     my ( $itemnumber, $borrowernumber, $charge ) = @_; | 3186 |     my ( $itemnumber, $borrowernumber, $charge ) = @_; | 
          
            
              | 3187 |     my $dbh = C4::Context->dbh; | 3187 |  | 
            
              | 3188 |     my $nextaccntno = getnextacctno( $borrowernumber ); | 3188 |     my $nextaccntno = getnextacctno($borrowernumber); | 
            
              | 3189 |     my $manager_id = 0; | 3189 |  | 
            
              |  |  | 3190 |     my $manager_id  = 0; | 
        
          | 3190 |     $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; | 3191 |     $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; | 
          
            
              | 3191 |     my $query =" | 3192 |  | 
            
              | 3192 |         INSERT INTO accountlines | 3193 |     my $accountline = Koha::Account::Line->new( | 
            
              | 3193 |             (borrowernumber, itemnumber, accountno, | 3194 |         { | 
            
              | 3194 |             date, amount, description, accounttype, | 3195 |             borrowernumber    => $borrowernumber, | 
            
              | 3195 |             amountoutstanding, manager_id) | 3196 |             itemnumber        => $itemnumber, | 
            
              | 3196 |         VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?) | 3197 |             accountno         => $nextaccntno, | 
            
              | 3197 |     "; | 3198 |             amount            => $charge, | 
            
              | 3198 |     my $sth = $dbh->prepare($query); | 3199 |             amountoutstanding => $charge, | 
            
              | 3199 |     $sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id ); | 3200 |             manager_id        => $manager_id, | 
            
              |  |  | 3201 |             description       => 'Rental', | 
            
              | 3202 |             accounttype       => 'Rent', | 
            
              | 3203 |             date              => \'NOW()', | 
            
              | 3204 |         } | 
            
              | 3205 |     )->store(); | 
            
              | 3206 |  | 
            
              | 3207 |     Koha::Account::Offset->new( | 
            
              | 3208 |         { | 
            
              | 3209 |             debit_id => $accountline->id, | 
            
              | 3210 |             type     => 'Rental Fee', | 
            
              | 3211 |             amount   => $charge, | 
            
              | 3212 |         } | 
            
              | 3213 |     )->store(); | 
        
          | 3200 | } | 3214 | } | 
        
          | 3201 |  | 3215 |  | 
        
          | 3202 | =head2 GetTransfers | 3216 | =head2 GetTransfers | 
            
              | 3203 | -  |  |  |