| 
      
            Lines 29-34
          use Koha::Account::Lines;
      
      
        Link Here
      
     | 
  
        
          | 29 | 
          use Koha::Account::Offsets;  | 
          29 | 
          use Koha::Account::Offsets;  | 
        
        
          | 30 | 
          use Koha::Items;  | 
          30 | 
          use Koha::Items;  | 
        
        
          | 31 | 
           | 
          31 | 
           | 
        
            
               | 
               | 
              32 | 
              use Mojo::Util qw(deprecated);  | 
            
        
          | 32 | 
          use Data::Dumper qw(Dumper);  | 
          33 | 
          use Data::Dumper qw(Dumper);  | 
        
        
          | 33 | 
           | 
          34 | 
           | 
        
        
          | 34 | 
          use vars qw(@ISA @EXPORT);  | 
          35 | 
          use vars qw(@ISA @EXPORT);  | 
        
  
    | 
      
            Lines 37-43
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 37 | 
              require Exporter;  | 
          38 | 
              require Exporter;  | 
        
        
          | 38 | 
              @ISA    = qw(Exporter);  | 
          39 | 
              @ISA    = qw(Exporter);  | 
        
        
          | 39 | 
              @EXPORT = qw(  | 
          40 | 
              @EXPORT = qw(  | 
        
            
              | 40 | 
                    &manualinvoice  | 
               | 
               | 
            
        
          | 41 | 
                &getnextacctno  | 
          41 | 
                &getnextacctno  | 
        
        
          | 42 | 
                &chargelostitem  | 
          42 | 
                &chargelostitem  | 
        
        
          | 43 | 
                &purge_zero_balance_fees  | 
          43 | 
                &purge_zero_balance_fees  | 
        
  
    | 
      
            Lines 211-239
          sub chargelostitem{
      
      
        Link Here
      
     | 
  
        
          | 211 | 
            &manualinvoice($borrowernumber, $itemnumber, $description, $type,  | 
          211 | 
            &manualinvoice($borrowernumber, $itemnumber, $description, $type,  | 
        
        
          | 212 | 
                           $amount, $note);  | 
          212 | 
                           $amount, $note);  | 
        
        
          | 213 | 
           | 
          213 | 
           | 
        
          
            
              | 214 | 
              C<$borrowernumber> is the patron's borrower number.  | 
              214 | 
              This function is now deprecated and not used anywhere within koha. It is due for complete removal in 19.11  | 
            
            
              | 215 | 
              C<$description> is a description of the transaction.  | 
               | 
               | 
            
            
              | 216 | 
              C<$type> may be one of C<CS>, C<CB>, C<CW>, C<CF>, C<CL>, C<N>, C<L>,  | 
            
            
              | 217 | 
              or C<REF>.  | 
            
            
              | 218 | 
              C<$itemnumber> is the item involved, if pertinent; otherwise, it  | 
            
            
              | 219 | 
              should be the empty string.  | 
            
        
          | 220 | 
           | 
          215 | 
           | 
        
        
          | 221 | 
          =cut  | 
          216 | 
          =cut  | 
        
        
          | 222 | 
           | 
          217 | 
           | 
        
            
              | 223 | 
              #'  | 
               | 
               | 
            
            
              | 224 | 
              # FIXME: In Koha 3.0 , the only account adjustment 'types' passed to this function  | 
            
            
              | 225 | 
              # are:  | 
            
            
              | 226 | 
              # 		'C' = CREDIT  | 
            
            
              | 227 | 
              # 		'FOR' = FORGIVEN  (Formerly 'F', but 'F' is taken to mean 'FINE' elsewhere)  | 
            
            
              | 228 | 
              # 		'N' = New Card fee  | 
            
            
              | 229 | 
              # 		'F' = Fine  | 
            
            
              | 230 | 
              # 		'A' = Account Management fee  | 
            
            
              | 231 | 
              # 		'M' = Sundry  | 
            
            
              | 232 | 
              # 		'L' = Lost Item  | 
            
            
              | 233 | 
              #  | 
            
            
              | 234 | 
               | 
            
        
          | 235 | 
          sub manualinvoice { | 
          218 | 
          sub manualinvoice { | 
        
        
          | 236 | 
              my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_;  | 
          219 | 
              my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_;  | 
        
            
               | 
               | 
              220 | 
               | 
            
            
              | 221 | 
                  deprecated "C4::Accounts::manualinvoice is deprecated in favor of Koha::Account->add_debit";  | 
            
            
              | 222 | 
               | 
            
        
          | 237 | 
              my $manager_id = 0;  | 
          223 | 
              my $manager_id = 0;  | 
        
        
          | 238 | 
              $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; | 
          224 | 
              $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; | 
        
        
          | 239 | 
              my $dbh      = C4::Context->dbh;  | 
          225 | 
              my $dbh      = C4::Context->dbh;  | 
        
            
              | 240 | 
              -   | 
               | 
               |