Martin Renvoize
49275f27d4
This patch tweaks the display of totals on the OPAC 'Fines and charges' page to clarify between the totals before and after applying credits. Test Plan: 1) Add some debts and credits to a patrons account 2) Look at the 'Fines and charges' page before applying the patch 3) Look at the 'Fines and charges' page after applying the patch 4) Varify the new layout is an improvment or not Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Nadine Pierre <nadine.pierre@inLibro.com> Signed-off-by: Maryse Simard <maryse.simard@inlibro.com> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
69 lines
2.4 KiB
Perl
Executable file
69 lines
2.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright Katipo Communications 2002
|
|
# Copyright Biblibre 2007,2010
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
|
|
use Modern::Perl;
|
|
use CGI qw ( -utf8 );
|
|
use C4::Members;
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use Koha::Account::Lines;
|
|
use Koha::Patrons;
|
|
use Koha::Plugins;
|
|
|
|
my $query = new CGI;
|
|
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "opac-account.tt",
|
|
query => $query,
|
|
type => "opac",
|
|
authnotrequired => 0,
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
my $patron = Koha::Patrons->find( $borrowernumber );
|
|
my $account = $patron->account;
|
|
my $accountlines = $account->lines->search({ amountoutstanding => { '>=' => 0 }});
|
|
my $total_outstanding = $accountlines->total_outstanding;
|
|
my $outstanding_credits = $account->outstanding_credits;
|
|
|
|
$template->param(
|
|
ACCOUNT_LINES => $accountlines,
|
|
total => $total_outstanding,
|
|
outstanding_credits => $outstanding_credits,
|
|
accountview => 1,
|
|
message => scalar $query->param('message') || q{},
|
|
message_value => scalar $query->param('message_value') || q{},
|
|
payment => scalar $query->param('payment') || q{},
|
|
payment_error => scalar $query->param('payment-error') || q{},
|
|
);
|
|
|
|
my $plugins_enabled = C4::Context->preference('UseKohaPlugins') && C4::Context->config("enable_plugins");
|
|
if ( $plugins_enabled ) {
|
|
my @plugins = Koha::Plugins->new()->GetPlugins({
|
|
method => 'opac_online_payment',
|
|
});
|
|
# Only pass in plugins where opac online payment is enabled
|
|
@plugins = grep { $_->opac_online_payment } @plugins;
|
|
$template->param( plugins => \@plugins );
|
|
}
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
|