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

(-)a/Koha/Account/Line.pm (-2 / +4 lines)
Lines 729-735 sub apply { Link Here
729 
        register_id => $register_id,
 729 
        register_id => $register_id,
730 
        staff_id    => $staff_id,
 730 
        staff_id    => $staff_id,
731 
        interface   => 'intranet',
 731 
        interface   => 'intranet',
732 
        amount      => $amount
 732 
        amount      => $amount,
733 
        note        => $note
733 
    }
 734 
    }
734 
  );
 735 
  );
735 

          736
          

        

  

    
      
            Lines 794-800
          sub payout {
      
      
        Link Here
      
    
  

        

          794
          
                    borrowernumber    => $self->borrowernumber,

          795
          
                    borrowernumber    => $self->borrowernumber,

        

        

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

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

        

        

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

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

        

          
            

              797
              
                    register_id       => $params->{cash_register}


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

            

            

              
              

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

            

        

          798
          
                }

          800
          
                }

        

        

          799
          
            )->store();

          801
          
            )->store();

        

        

          800
          

          802
          

        



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




  

    
      
            Lines 334-340
          
      
      
        Link Here
      
    
  

        

          334
          
                                    </select>

          334
          
                                    </select>

        

        

          335
          
                                </li>

          335
          
                                </li>

        

        

          336
          
                                [% END %]

          336
          
                                [% END %]

        

          
            

              337
              


              337
              
                                <li>

            

            

              
              

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

            

            


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

            

            


              340
              
                                </li>

            

        

          338
          
                            </ol>

          341
          
                            </ol>

        

        

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

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

        

        

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

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

        



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




  

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

        

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

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

        

        

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

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

        

        

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

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

        

            

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

            

            

              136
              

            

        

          135
          
    $schema->txn_do(

          137
          
    $schema->txn_do(

        

        

          136
          
        sub {

          138
          
        sub {

        

        

          137
          

          139
          

        

  

    
      
            Lines 141-147
          if ( $op eq 'cud-refund' ) {
      
      
        Link Here
      
    
  

        

          141
          
                    branch         => $library_id,

          143
          
                    branch         => $library_id,

        

        

          142
          
                    staff_id       => $logged_in_user->id,

          144
          
                    staff_id       => $logged_in_user->id,

        

        

          143
          
                    interface      => 'intranet',

          145
          
                    interface      => 'intranet',

        

          
            

              144
              
                    amount         => $amount


              146
              
                    amount         => $amount,

            

            

              
              

              147
              
                    note           => $note

            

        

          145
          
                }

          148
          
                }

        

        

          146
          
            );

          149
          
            );

        

        

          147
          
            unless ( $refund_type eq 'AC' ) {

          150
          
            unless ( $refund_type eq 'AC' ) {

        

  

    
      
            Lines 152-158
          if ( $op eq 'cud-refund' ) {
      
      
        Link Here
      
    
  

        

          152
          
                        staff_id      => $logged_in_user->id,

          155
          
                        staff_id      => $logged_in_user->id,

        

        

          153
          
                        cash_register => $registerid,

          156
          
                        cash_register => $registerid,

        

        

          154
          
                        interface     => 'intranet',

          157
          
                        interface     => 'intranet',

        

          
            

              155
              
                        amount        => $amount


              158
              
                        amount        => $amount,

            

            

              
              

              159
              
                        note          => $note

            

        

          156
          
                    }

          160
          
                    }

        

        

          157
          
                );

          161
          
                );

        

        

          158
          
            }

          162
          
            }

        

            

              159
              
- 

              
              
            






  

  Return to bug 23674