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