use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
-use C4::Members::Attributes qw(GetBorrowerAttributes);
use Koha::Patrons;
use Koha::Patron::Categories;
);
my $borrowernumber = $input->param('borrowernumber');
-my $action = $input->param('action') || '';
+my $payment_id = $input->param('payment_id');
+my $change_given = $input->param('change_given');
+my $action = $input->param('action') || '';
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
my $patron = Koha::Patrons->find( $borrowernumber );
$totalcredit = 1;
}
-my $actions_col = ( Koha::Account::Lines->search(
- { borrowernumber => $patron->borrowernumber },
- { where => { amount => { '<=', 0 } } } )->count > 0 ) ? 1 : 0;
-
-if (C4::Context->preference('ExtendedPatronAttributes')) {
- my $attributes = GetBorrowerAttributes($borrowernumber);
- $template->param(
- ExtendedPatronAttributes => 1,
- extendedattributes => $attributes
- );
-}
-
$template->param(
patron => $patron,
finesview => 1,
total => sprintf("%.2f",$total),
totalcredit => $totalcredit,
- actions_col => $actions_col,
accounts => \@accountlines,
+ payment_id => $payment_id,
+ change_given => $change_given,
);
output_html_with_http_headers $input, $cookie, $template->output;