Martin Renvoize
d661141890
* Update C4::Accounts::chargelostitem * Update C4::Accounts::manualinvoice * Update C4::Circulation::_FixOverduesOnReturn * Update C4::Circulation::_FixAccountForLostAndReturned * Update C4::Overdues::UpdateFine * Update C4::Overdues::GetFine * Update C4::Overdues::GetOverduesForBranch * Update Koha::Account->pay * Update Koha::Account->add_debit * Update Koha::Account->non_issues_charges * Update Koha::Account::Line->apply * Update Koha::Account::Line->adjust * Update controller scripts * Update reports scripts * Update tests Test Plan 1) Run the test suit and ensure everything still passes 2) Test reports/cash_register_stats still works 3) Test that adding manual invoices still works 4) Test that making payments still works 5) Test that lost item fee handling still works 6) Test that invoice printing still works 7) Test that the sco still works Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
106 lines
3.5 KiB
Perl
Executable file
106 lines
3.5 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#written 3rd May 2010 by kmkale@anantcorp.com adapted from boraccount.pl by chris@katipo.oc.nz
|
|
#script to print fee receipts
|
|
|
|
# Copyright Koustubha Kale
|
|
#
|
|
# 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 C4::Auth;
|
|
use C4::Output;
|
|
use Koha::DateUtils;
|
|
use CGI qw ( -utf8 );
|
|
use C4::Members;
|
|
use C4::Accounts;
|
|
|
|
use Koha::Account::Lines;
|
|
use Koha::Patrons;
|
|
use Koha::Patron::Categories;
|
|
|
|
my $input = new CGI;
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{ template_name => "members/printinvoice.tt",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { borrowers => 'edit_borrowers', updatecharges => 'remaining_permissions' },
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
my $borrowernumber = $input->param('borrowernumber');
|
|
my $action = $input->param('action') || '';
|
|
my $accountlines_id = $input->param('accountlines_id');
|
|
|
|
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
|
|
my $patron = Koha::Patrons->find( $borrowernumber );
|
|
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
|
|
|
|
#get account details
|
|
my $total = $patron->account->balance;
|
|
my $accountline_object = Koha::Account::Lines->find($accountlines_id);
|
|
my $accountline = $accountline_object->unblessed;
|
|
|
|
my $totalcredit;
|
|
if ( $total <= 0 ) {
|
|
$totalcredit = 1;
|
|
}
|
|
|
|
|
|
$accountline->{'amount'} += 0.00;
|
|
if ( $accountline->{'amount'} <= 0 ) {
|
|
$accountline->{'amountcredit'} = 1;
|
|
$accountline->{'amount'} *= -1.00;
|
|
}
|
|
$accountline->{'amountoutstanding'} += 0.00;
|
|
if ( $accountline->{'amountoutstanding'} <= 0 ) {
|
|
$accountline->{'amountoutstandingcredit'} = 1;
|
|
}
|
|
|
|
my %row = (
|
|
'date' => dt_from_string( $accountline->{'date'} ),
|
|
'amountcredit' => $accountline->{'amountcredit'},
|
|
'amountoutstandingcredit' => $accountline->{'amountoutstandingcredit'},
|
|
'description' => $accountline->{'description'},
|
|
'amount' => sprintf( "%.2f", $accountline->{'amount'} ),
|
|
'amountoutstanding' =>
|
|
sprintf( "%.2f", $accountline->{'amountoutstanding'} ),
|
|
'debit_type_code' => $accountline->{'debit_type_code'},
|
|
'note' => $accountline->{'note'},
|
|
);
|
|
|
|
my @account_offsets = Koha::Account::Offsets->search( { debit_id => $accountline_object->id } );
|
|
|
|
my $letter = C4::Letters::getletter( 'circulation', 'ACCOUNT_DEBIT', C4::Context::mybranch, 'print', $patron->lang );
|
|
|
|
$template->param(
|
|
letter => $letter,
|
|
patron => $patron,
|
|
library => C4::Context::mybranch,
|
|
offsets => \@account_offsets,
|
|
debit => $accountline_object,
|
|
|
|
finesview => 1,
|
|
total => sprintf( "%.2f", $total ),
|
|
totalcredit => $totalcredit,
|
|
accounts => [$accountline], # FIXME There is always only 1 row!
|
|
);
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|