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

(-)a/Koha/Accounts.pm (+2 lines)
Lines 380-385 sub CreditDebit { Link Here
380
    croak("Required parameter 'debit' not passed in!")
380
    croak("Required parameter 'debit' not passed in!")
381
      unless $debit;
381
      unless $debit;
382
382
383
    return if $debit->accruing() && C4::Context->preference('DisallowPaymentsOnAccruingFines');
384
383
    my $amount_to_pay =
385
    my $amount_to_pay =
384
      ( $debit->amount_outstanding() > $credit->amount_remaining() )
386
      ( $debit->amount_outstanding() > $credit->amount_remaining() )
385
      ? $credit->amount_remaining()
387
      ? $credit->amount_remaining()
(-)a/installer/data/mysql/atomicupdate/bug_14373.sql (+2 lines)
Line 0 Link Here
1
INSERT IGNORE INTO systempreferences(variable,value,options,explanation,type) VALUES
2
('DisallowPaymentsOnAccruingFines',  '1',  '',  'If enabled, accruing fines will be unpayable until they are no longer accruing',  'YesNo');
(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
Lines 107-112 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here
107
('defaultSortField','relevance','relevance|popularity|call_number|pubdate|acqdate|title|author','Specify the default field used for sorting','Choice'),
107
('defaultSortField','relevance','relevance|popularity|call_number|pubdate|acqdate|title|author','Specify the default field used for sorting','Choice'),
108
('defaultSortOrder','dsc','asc|dsc|az|za','Specify the default sort order','Choice'),
108
('defaultSortOrder','dsc','asc|dsc|az|za','Specify the default sort order','Choice'),
109
('delimiter',';',';|tabulation|,|/|\\|#||','Define the default separator character for exporting reports','Choice'),
109
('delimiter',';',';|tabulation|,|/|\\|#||','Define the default separator character for exporting reports','Choice'),
110
('DisallowPaymentsOnAccruingFines',  '1',  '',  'If enabled, accruing fines will be unpayable until they are no longer accruing',  'YesNo'),
110
('Display856uAsImage','OFF','OFF|Details|Results|Both','Display the URI in the 856u field as an image, the corresponding Staff Client XSLT option must be on','Choice'),
111
('Display856uAsImage','OFF','OFF|Details|Results|Both','Display the URI in the 856u field as an image, the corresponding Staff Client XSLT option must be on','Choice'),
111
('DisplayClearScreenButton','0','','If set to ON, a clear screen button will appear on the circulation page.','YesNo'),
112
('DisplayClearScreenButton','0','','If set to ON, a clear screen button will appear on the circulation page.','YesNo'),
112
('displayFacetCount','0',NULL,NULL,'YesNo'),
113
('displayFacetCount','0',NULL,NULL,'YesNo'),
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (+6 lines)
Lines 626-631 Circulation: Link Here
626
                  yes: Charge
626
                  yes: Charge
627
                  no: "Don't Charge"
627
                  no: "Don't Charge"
628
            - the replacement price when a patron loses an item.
628
            - the replacement price when a patron loses an item.
629
        -
630
            - pref: DisallowPaymentsOnAccruingFines
631
              choices:
632
                  yes: "Don't"
633
                  no: "Do"
634
            - allow payments to be made for accruing fines.
629
    Self Checkout:
635
    Self Checkout:
630
        -
636
        -
631
            - "Include the following JavaScript on all pages in the web-based self checkout:"
637
            - "Include the following JavaScript on all pages in the web-based self checkout:"
(-)a/members/account_payment.pl (-7 / +6 lines)
Lines 61-72 my $borrowernumber = $cgi->param('borrowernumber'); Link Here
61
61
62
my $borrower = GetMember( borrowernumber => $borrowernumber );
62
my $borrower = GetMember( borrowernumber => $borrowernumber );
63
63
64
my @debits = Koha::Database->new()->schema->resultset('AccountDebit')->search(
64
my $params;
65
    {
65
$params->{'me.borrowernumber'} = $borrowernumber;
66
        'me.borrowernumber' => $borrowernumber,
66
$params->{amount_outstanding} = { '>' => 0 };
67
        amount_outstanding  => { '>' => 0 }
67
$params->{accruing} = 0 if C4::Context->preference('DisallowPaymentsOnAccruingFines');
68
    }
68
69
);
69
my @debits = Koha::Database->new()->schema->resultset('AccountDebit')->search($params);
70
70
71
$template->param(
71
$template->param(
72
    debits   => \@debits,
72
    debits   => \@debits,
73
- 

Return to bug 14373