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

(-)a/C4/Accounts.pm (-2 / +1 lines)
Lines 780-786 C<$branch> is the branchcode of the library where the writeoff occurred. Link Here
780 

          780
          

        

        

          781
          
sub WriteOffFee {

          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
              
    $branch ||= C4::Context->userenv->{branch};

            

        

          784
          
    my $manager_id = 0;

          784
          
    my $manager_id = 0;

        

        

          785
          
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;

          785
          
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;

        

        

          786
          

          786
          

        

            

              787
              
- 

              
              
            






  

  Return to bug 7597