View | Details | Raw Unified | Return to bug 7597
Collapse All | Expand All

(-)a/C4/Accounts.pm (-2 / +2 lines)
Lines 46-52 BEGIN { Link Here
46 
		&ReversePayment
 46 
		&ReversePayment
47 
                &makepartialpayment
 47 
                &makepartialpayment
48 
                &recordpayment_selectaccts
 48 
                &recordpayment_selectaccts
49 
                &WriteOff
 49 
                &WriteOffFee
50 
	);
 50 
	);
51 
}
 51 
}
52 

          52
          

        

  

    
      
            Lines 778-784
          C<$branch> is the branchcode of the library where the writeoff occurred.
      
      
        Link Here
      
    
  

        

          778
          

          778
          

        

        

          779
          
=cut

          779
          
=cut

        

        

          780
          

          780
          

        

          
            

              781
              
sub WriteOff {


              781
              
sub WriteOffFee {

            

        

          782
          
    my ( $borrowernumber, $accountnum, $itemnum, $accounttype, $amount, $branch ) = @_;

          782
          
    my ( $borrowernumber, $accountnum, $itemnum, $accounttype, $amount, $branch ) = @_;

        

        

          783
          
    my $branch ||= C4::Context->userenv->{branch};

          783
          
    my $branch ||= C4::Context->userenv->{branch};

        

        

          784
          
    my $manager_id = 0;

          784
          
    my $manager_id = 0;

        



(-)a/members/pay.pl
      (-3 / +2 lines)




  

    
      
            Lines 87-93
          if ($writeoff_all) {
      
      
        Link Here
      
    
  

        

          87
          
    my $itemno       = $input->param('itemnumber');

          87
          
    my $itemno       = $input->param('itemnumber');

        

        

          88
          
    my $account_type = $input->param('accounttype');

          88
          
    my $account_type = $input->param('accounttype');

        

        

          89
          
    my $amount       = $input->param('amountoutstanding');

          89
          
    my $amount       = $input->param('amountoutstanding');

        

          
            

              90
              
    WriteOff( $borrowernumber, $accountno, $itemno, $account_type, $amount, $branch );


              90
              
    WriteOffFee( $borrowernumber, $accountno, $itemno, $account_type, $amount, $branch );

            

        

          91
          
}

          91
          
}

        

        

          92
          

          92
          

        

        

          93
          
for (@names) {

          93
          
for (@names) {

        

  

    
      
            Lines 184-190
          sub writeoff_all {
      
      
        Link Here
      
    
  

        

          184
          
            my $itemno    = $input->param("itemnumber$value");

          184
          
            my $itemno    = $input->param("itemnumber$value");

        

        

          185
          
            my $amount    = $input->param("amountoutstanding$value");

          185
          
            my $amount    = $input->param("amountoutstanding$value");

        

        

          186
          
            my $accountno = $input->param("accountno$value");

          186
          
            my $accountno = $input->param("accountno$value");

        

          
            

              187
              
            WriteOff( $borrowernumber, $accountno, $itemno, $accounttype, $amount, $branch );


              187
              
            WriteOffFee( $borrowernumber, $accountno, $itemno, $accounttype, $amount, $branch );

            

        

          188
          
        }

          188
          
        }

        

        

          189
          
    }

          189
          
    }

        

        

          190
          

          190
          

        

            

              191
              
- 

              
              
            






  

  Return to bug 7597