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

(-)a/Koha/Account/Line.pm (+1 lines)
Lines 557-562 sub reduce { Link Here
557 
                    borrowernumber    => $self->borrowernumber,
 557 
                    borrowernumber    => $self->borrowernumber,
558 
                    interface         => $params->{interface},
 558 
                    interface         => $params->{interface},
559 
                    branchcode        => $params->{branch},
 559 
                    branchcode        => $params->{branch},
560 
                    note              => $params->{note},
560 
                }
 561 
                }
561 
            )->store();
 562 
            )->store();
562 

          563
          

        



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




  

    
      
            Lines 375-380
          
      
      
        Link Here
      
    
  

        

          375
          
                                <li>

          375
          
                                <li>

        

        

          376
          
                                    <span id="charged" class="label">Amount charged: </span><span></span>

          376
          
                                    <span id="charged" class="label">Amount charged: </span><span></span>

        

        

          377
          
                                </li>

          377
          
                                </li>

        

            

              
              
              378
              
                                <li>

            

            

              379
              
                                    <label for="apply_discount_note">Note: </label>

            

            

              380
              
                                    <input type="text" id="apply_discount_note" name="apply_discount_note">

            

            

              381
              
                                </li>

            

        

          378
          
                                <li>

          382
          
                                <li>

        

        

          379
          
                                    <label class="required" for="amount">Discount to apply: </label>

          383
          
                                    <label class="required" for="amount">Discount to apply: </label>

        

        

          380
          
                                    <input type="text" inputmode="numeric" pattern="[0-9]*" id="discount" name="amount" required="required">

          384
          
                                    <input type="text" inputmode="numeric" pattern="[0-9]*" id="discount" name="amount" required="required">

        



(-)a/members/boraccount.pl
      (-2 / +4 lines)




  

    
      
            Lines 161-166
          if ( $op eq 'cud-discount' ) {
      
      
        Link Here
      
    
  

        

          161
          
    my $charge_id        = scalar $input->param('accountlines_id');

          161
          
    my $charge_id        = scalar $input->param('accountlines_id');

        

        

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

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

        

        

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

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

        

            

              
              
              164
              
    my $note             = scalar $input->param('apply_discount_note');

            

            

              165
              

            

        

          164
          
    $schema->txn_do(

          166
          
    $schema->txn_do(

        

        

          165
          
        sub {

          167
          
        sub {

        

        

          166
          

          168
          

        

  

    
      
            Lines 170-176
          if ( $op eq 'cud-discount' ) {
      
      
        Link Here
      
    
  

        

          170
          
                    branch         => $library_id,

          172
          
                    branch         => $library_id,

        

        

          171
          
                    staff_id       => $logged_in_user->id,

          173
          
                    staff_id       => $logged_in_user->id,

        

        

          172
          
                    interface      => 'intranet',

          174
          
                    interface      => 'intranet',

        

          
            

              173
              
                    amount         => $amount


              175
              
                    amount         => $amount,

            

            

              
              

              176
              
                    note           => $note,

            

        

          174
          
                }

          177
          
                }

        

        

          175
          
            );

          178
          
            );

        

        

          176
          
        }

          179
          
        }

        

            

              177
              
- 

              
              
            






  

  Return to bug 23674