use strict;
use CGI qw ( -utf8 );
use C4::Members;
-use C4::Circulation;
use C4::Auth;
use C4::Output;
use warnings;
query => $query,
type => "opac",
authnotrequired => 0,
- flagsrequired => { borrow => 1 },
debug => 1,
}
);
-# get borrower information ....
-my $borr = GetMemberDetails( $borrowernumber );
-my @bordat;
-$bordat[0] = $borr;
-
-$template->param( BORROWER_INFO => \@bordat );
+my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber );
+$template->param( BORROWER_INFO => $borrower );
#get account details
my ( $total , $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
$num++;
}
-$template->param (
+$template->param(
ACCOUNT_LINES => $accts,
- total => sprintf( "%.2f", $total ),
- accountview => 1
+ total => sprintf( "%.2f", $total ),
+ accountview => 1,
+ message => $query->param('message') || q{},
+ message_value => $query->param('message_value') || q{},
+ payment => $query->param('payment') || q{},
+ payment_error => $query->param('payment-error') || q{},
);
-output_html_with_http_headers $query, $cookie, $template->output;
-
+output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };