@@ -, +, @@ at least seven fines/fees and clicking the "Pay fines" tab after clicking the "Fines" tab on the left side button labelled "Write off" in the table and clicking the "Pay amount" button --- members/pay.pl | 40 ---------------------------------------- 1 file changed, 40 deletions(-) --- a/members/pay.pl +++ a/members/pay.pl @@ -42,8 +42,6 @@ use C4::Branch; use C4::Members::Attributes qw(GetBorrowerAttributes); our $input = CGI->new; -our $writeoff_sth; -our $add_writeoff_sth; our ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => 'members/pay.tmpl', @@ -108,24 +106,6 @@ add_accounts_to_template(); output_html_with_http_headers $input, $cookie, $template->output; -sub writeoff { - my ( $accountlines_id, $itemnum, $accounttype, $amount ) = @_; - my $manager_id = 0; - $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; - - # if no item is attached to fine, make sure to store it as a NULL - $itemnum ||= undef; - get_writeoff_sth(); - $writeoff_sth->execute( $accountlines_id ); - - my $acct = getnextacctno($borrowernumber); - $add_writeoff_sth->execute( $borrowernumber, $acct, $itemnum, $amount, $manager_id ); - - UpdateStats( $branch, 'writeoff', $amount, q{}, q{}, q{}, $borrowernumber ); - - return; -} - sub add_accounts_to_template { my ( $total, undef, undef ) = GetMemberAccountRecords($borrowernumber); @@ -271,23 +251,3 @@ sub payselected { print $input->redirect($redirect); return; } - -sub get_writeoff_sth { - - # lets prepare these statement handles only once - if ($writeoff_sth) { - return; - } else { - my $dbh = C4::Context->dbh; - - # Do we need to validate accounttype - my $sql = 'Update accountlines set amountoutstanding=0 ' - . 'WHERE accountlines_id=?'; - $writeoff_sth = $dbh->prepare($sql); - my $insert = -q{insert into accountlines (borrowernumber,accountno,itemnumber,date,amount,description,accounttype,manager_id)} - . q{values (?,?,?,now(),?,'Writeoff','W',?)}; - $add_writeoff_sth = $dbh->prepare($insert); - } - return; -} --