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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref (+2 lines)
Lines 110-115 Patrons: Link Here
110
               check_in: "Checking in an item"
110
               check_in: "Checking in an item"
111
               hold: "Placing a hold on an item"
111
               hold: "Placing a hold on an item"
112
               article: "Placing an article request"
112
               article: "Placing an article request"
113
               add_charges: "Adding patron a charge or credit"
114
               modify_charges: "Modifying a patron's charge or credit"
113
     -
115
     -
114
         - pref: AutoApprovePatronProfileSettings
116
         - pref: AutoApprovePatronProfileSettings
115
           choices:
117
           choices:
(-)a/members/mancredit.pl (+2 lines)
Lines 97-102 if ( $op eq 'cud-add' ) { Link Here
97
            cash_register => $cash_register_id
97
            cash_register => $cash_register_id
98
        }
98
        }
99
    );
99
    );
100
    
101
    $patron->update_lastseen('add_charges');
100
102
101
    my @additional_fields = $line->prepare_cgi_additional_field_values( $input, 'accountlines:credit' );
103
    my @additional_fields = $line->prepare_cgi_additional_field_values( $input, 'accountlines:credit' );
102
    if (@additional_fields) {
104
    if (@additional_fields) {
(-)a/members/maninvoice.pl (+2 lines)
Lines 160-165 if ( $op eq 'cud-add' ) { Link Here
160
                    issue_id => $issue_id
160
                    issue_id => $issue_id
161
                }
161
                }
162
            );
162
            );
163
            
164
            $patron->update_lastseen('add_charges');
163
165
164
            my @additional_fields = $line->prepare_cgi_additional_field_values( $input, 'accountlines:debit' );
166
            my @additional_fields = $line->prepare_cgi_additional_field_values( $input, 'accountlines:debit' );
165
            if (@additional_fields) {
167
            if (@additional_fields) {
(-)a/members/pay.pl (-1 / +5 lines)
Lines 220-225 sub writeoff_all { Link Here
220
            );
220
            );
221
        }
221
        }
222
    }
222
    }
223
    
224
    $patron->update_lastseen('modify_charges');
223
225
224
    print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
226
    print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
225
    return;
227
    return;
Lines 259-264 sub apply_credits { Link Here
259
261
260
    $patron->account->reconcile_balance();
262
    $patron->account->reconcile_balance();
261
263
262
    print $cgi->redirect( "/cgi-bin/koha/members/pay.pl?borrowernumber=" . $patron->borrowernumber );
264
    $patron->update_lastseen('modify_charges');
265
266
    print $cgi->redirect("/cgi-bin/koha/members/pay.pl?borrowernumber=" . $patron->borrowernumber );
263
    return;
267
    return;
264
}
268
}
(-)a/members/paycollect.pl (-2 / +5 lines)
Lines 250-256 if ( $total_paid and $total_paid ne '0.00' ) { Link Here
250
250
251
            $url = "/cgi-bin/koha/members/boraccount.pl";
251
            $url = "/cgi-bin/koha/members/boraccount.pl";
252
        }
252
        }
253
253
        
254
        $patron->update_lastseen('modify_charges');
255
        
254
        # It's possible renewals took place, parse any renew results
256
        # It's possible renewals took place, parse any renew results
255
        # and pass on
257
        # and pass on
256
        my @renew_result = ();
258
        my @renew_result = ();
Lines 287-290 $template->param( Link Here
287
        [ Koha::AdditionalFields->search( { tablename => 'accountlines:credit' } )->as_list ],
289
        [ Koha::AdditionalFields->search( { tablename => 'accountlines:credit' } )->as_list ],
288
);
290
);
289
291
292
293
290
output_html_with_http_headers $input, $cookie, $template->output;
294
output_html_with_http_headers $input, $cookie, $template->output;
291
- 

Return to bug 40182