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

(-)a/Koha/Account/Line.pm (-2 / +4 lines)
Lines 723-729 sub apply { Link Here
723 
        register_id => $register_id,
 723 
        register_id => $register_id,
724 
        staff_id    => $staff_id,
 724 
        staff_id    => $staff_id,
725 
        interface   => 'intranet',
 725 
        interface   => 'intranet',
726 
        amount      => $amount
 726 
        amount      => $amount,
727 
        note        => $note
727 
    }
 728 
    }
728 
  );
 729 
  );
729 

          730
          

        

  

    
      
            Lines 788-794
          sub payout {
      
      
        Link Here
      
    
  

        

          788
          
                    borrowernumber    => $self->borrowernumber,

          789
          
                    borrowernumber    => $self->borrowernumber,

        

        

          789
          
                    interface         => $params->{interface},

          790
          
                    interface         => $params->{interface},

        

        

          790
          
                    branchcode        => $params->{branch},

          791
          
                    branchcode        => $params->{branch},

        

          
            

              791
              
                    register_id       => $params->{cash_register}


              792
              
                    register_id       => $params->{cash_register},

            

            

              
              

              793
              
                    note              => $params->{note},

            

        

          792
          
                }

          794
          
                }

        

        

          793
          
            )->store();

          795
          
            )->store();

        

        

          794
          

          796
          

        



(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
      (-1 / +4 lines)




  

    
      
            Lines 340-346
          
      
      
        Link Here
      
    
  

        

          340
          
                                    </select>

          340
          
                                    </select>

        

        

          341
          
                                </li>

          341
          
                                </li>

        

        

          342
          
                                [% END %]

          342
          
                                [% END %]

        

          
            

              343
              


              343
              
                                <li>

            

            

              
              

              344
              
                                    <label for="refund_note">Note: </label>

            

            


              345
              
                                    <input type="text" id="refund_note" name="refund_note">

            

            


              346
              
                                </li>

            

        

          344
          
                            </ol>

          347
          
                            </ol>

        

        

          345
          
                        </fieldset> <!-- /.rows -->

          348
          
                        </fieldset> <!-- /.rows -->

        

        

          346
          
                    </div> <!-- /.modal-body -->

          349
          
                    </div> <!-- /.modal-body -->

        



(-)a/members/boraccount.pl
      (-3 / +6 lines)




  

    
      
            Lines 128-133
          if ( $op eq 'cud-refund' ) {
      
      
        Link Here
      
    
  

        

          128
          
    my $charge      = Koha::Account::Lines->find($charge_id);

          128
          
    my $charge      = Koha::Account::Lines->find($charge_id);

        

        

          129
          
    my $amount      = scalar $input->param('amount');

          129
          
    my $amount      = scalar $input->param('amount');

        

        

          130
          
    my $refund_type = scalar $input->param('refund_type');

          130
          
    my $refund_type = scalar $input->param('refund_type');

        

            

              
              
              131
              
    my $note        = scalar $input->param('refund_note');

            

            

              132
              

            

        

          131
          
    $schema->txn_do(

          133
          
    $schema->txn_do(

        

        

          132
          
        sub {

          134
          
        sub {

        

        

          133
          

          135
          

        

  

    
      
            Lines 137-143
          if ( $op eq 'cud-refund' ) {
      
      
        Link Here
      
    
  

        

          137
          
                    branch         => $library_id,

          139
          
                    branch         => $library_id,

        

        

          138
          
                    staff_id       => $logged_in_user->id,

          140
          
                    staff_id       => $logged_in_user->id,

        

        

          139
          
                    interface      => 'intranet',

          141
          
                    interface      => 'intranet',

        

          
            

              140
              
                    amount         => $amount


              142
              
                    amount         => $amount,

            

            

              
              

              143
              
                    note           => $note

            

        

          141
          
                }

          144
          
                }

        

        

          142
          
            );

          145
          
            );

        

        

          143
          
            unless ( $refund_type eq 'AC' ) {

          146
          
            unless ( $refund_type eq 'AC' ) {

        

  

    
      
            Lines 148-154
          if ( $op eq 'cud-refund' ) {
      
      
        Link Here
      
    
  

        

          148
          
                        staff_id      => $logged_in_user->id,

          151
          
                        staff_id      => $logged_in_user->id,

        

        

          149
          
                        cash_register => $registerid,

          152
          
                        cash_register => $registerid,

        

        

          150
          
                        interface     => 'intranet',

          153
          
                        interface     => 'intranet',

        

          
            

              151
              
                        amount        => $amount


              154
              
                        amount        => $amount,

            

            

              
              

              155
              
                        note          => $note

            

        

          152
          
                    }

          156
          
                    }

        

        

          153
          
                );

          157
          
                );

        

        

          154
          
            }

          158
          
            }

        

            

              155
              
- 

              
              
            






  

  Return to bug 23674