From 7838220e7a3a1c4f4eebc249b3959e1c952f93ab Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Sun, 10 Feb 2013 10:39:20 -0500 Subject: [PATCH] Bug 9582: Remove unused code from members/pay.pl The subroutines writeoff() and get_writeoff_sth() (and the two package variables $writeoff_sth and $add_writeoff_sth) defined in members/pay.pl are not used at all. To test: 1) View members/pay.pl by looking at the record of a patron who has at least seven fines/fees and clicking the "Pay fines" tab after clicking the "Fines" tab on the left side 2) Write off a single item in the table on members/pay.pl using the button labelled "Write off" 3) Pay a single fine by clicking the "Pay" button 4) Pay a portion of a fine by selecting a checkbox on one of the lines in the table and clicking the "Pay amount" button 5) Select two lines in the table and click the "Pay selected" button 6) Write off all remaining fines If all your actions show up in the table on the Account tab, this patch works. --- members/pay.pl | 40 ---------------------------------------- 1 file changed, 40 deletions(-) diff --git a/members/pay.pl b/members/pay.pl index a08e372..4b918ae 100755 --- a/members/pay.pl +++ b/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; -} -- 1.7.9.5