X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=members%2Fpay.pl;h=8f5233cbf55baab4a834221f92e7818f6c5424e9;hb=6e60986819e9c37e3d41584b89fbddbf68e7484d;hp=1bad3841e8327b1f72e4719e545a15e135b24b46;hpb=18e59b24eabefd9fc0988ecddebcb9adc288dd28;p=koha_fer diff --git a/members/pay.pl b/members/pay.pl index 1bad3841e8..8f5233cbf5 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -1,12 +1,8 @@ #!/usr/bin/perl -# $Id$ - -# written 11/1/2000 by chris@katipo.oc.nz -# part of the koha library system, script to facilitate paying off fines - - # Copyright 2000-2002 Katipo Communications +# Copyright 2010 BibLibre +# Copyright 2010,2011 PTFS-Europe Ltd # # This file is part of Koha. # @@ -19,154 +15,238 @@ # 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, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +=head1 pay.pl + + written 11/1/2000 by chris@katipo.oc.nz + part of the koha library system, script to facilitate paying off fines + +=cut use strict; +use warnings; + use C4::Context; use C4::Auth; use C4::Output; use CGI; use C4::Members; -use C4::Accounts2; +use C4::Accounts; use C4::Stats; use C4::Koha; -use HTML::Template; +use C4::Overdues; +use C4::Branch; +use C4::Members::Attributes qw(GetBorrowerAttributes); + +our $input = CGI->new; -my $input=new CGI; +our ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => 'members/pay.tmpl', + query => $input, + type => 'intranet', + authnotrequired => 0, + flagsrequired => { borrowers => 1, updatecharges => 1 }, + debug => 1, + } +); -#print $input->header; -my $bornum=$input->param('bornum'); -if ($bornum eq ''){ - $bornum=$input->param('bornum0'); +my @names = $input->param; + +our $borrowernumber = $input->param('borrowernumber'); +if ( !$borrowernumber ) { + $borrowernumber = $input->param('borrowernumber0'); } + # get borrower details -my $data=borrdata('',$bornum); -my $user=$input->remote_user; - -# get account details -my %bor; -$bor{'borrowernumber'}=$bornum; -my $branches = getbranches(); -my $printers = getprinters(); -my $branch = getbranch($input, $branches); - -my @names=$input->param; -my %inp; -my $check=0; -for (my $i=0;$i<@names;$i++){ - my $temp=$input->param($names[$i]); - if ($temp eq 'wo'){ - $inp{$names[$i]}=$temp; - $check=1; - } - if ($temp eq 'yes'){ - # For HLT - $user=~ s/Levin/L/i; - $user=~ s/Foxton/F/i; - $user=~ s/Shannon/S/i; - # FIXME : using array +4, +5, +6 is dirty. Should use arrays for each accountline - my $amount=$input->param($names[$i+4]); - my $bornum=$input->param($names[$i+5]); - my $accountno=$input->param($names[$i+6]); - makepayment($bornum,$accountno,$amount,$user,$branch); - $check=2; - } +our $borrower = GetMember( borrowernumber => $borrowernumber ); +our $user = $input->remote_user; +$user ||= q{}; + +my $branches = GetBranches(); +our $branch = GetBranch( $input, $branches ); + +my $writeoff_item = $input->param('confirm_writeoff'); +my $paycollect = $input->param('paycollect'); +if ($paycollect) { + print $input->redirect( + "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber"); } -my %env; - $user=~ s/Levin/L/i; - $user=~ s/Foxton/F/i; - $user=~ s/Shannon/S/i; - -$env{'branchcode'}=$branch; -my $total=$input->param('total'); -if ($check ==0){ - my($template, $loggedinuser, $cookie) - = get_template_and_user ({ template_name => "members/pay.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {borrowers => 1}, - debug => 1, - }); - if ($total ne ''){ - recordpayment(\%env,$bornum,$total); - } - my ($numaccts,$accts,$total)=getboracctrecord('',\%bor); - - my @loop_pay; - for (my $i=0;$i<$numaccts;$i++){ - if ($accts->[$i]{'amountoutstanding'} > 0){ - $accts->[$i]{'amount'}+=0.00; - $accts->[$i]{'amountoutstanding'}+=0.00; - my %line; - $line{i}=$i; - $line{itemnumber} = $accts->[$i]{'itemnumber'}; - $line{accounttype} = $accts->[$i]{'accounttype'}; - $line{amount} = sprintf("%.2f",$accts->[$i]{'amount'}); - $line{amountoutstanding} = sprintf("%.2f",$accts->[$i]{'amountoutstanding'}); - $line{bornum} = $bornum; - $line{accountno} = $accts->[$i]{'accountno'}; - $line{description} = $accts->[$i]{'description'}; - $line{title} = $accts->[$i]{'title'}; - push(@loop_pay, \%line); - } - } - $template->param(firstname => $data->{'firstname'}, - surname => $data->{'surname'}, - bornum => $bornum, - loop_pay => \@loop_pay, - total => sprintf("%.2f",$total)); - print "Content-Type: text/html\n\n", $template->output; - -} else { -# my $quety=$input->query_string; -# print $input->redirect("/cgi-bin/koha/sec/writeoff.pl?$quety"); - my%inp; - my @name=$input->param; - for (my $i=0;$i<@name;$i++){ - my $test=$input->param($name[$i]); - if ($test eq 'wo'){ - my $temp=$name[$i]; - $temp=~ s/payfine//; - $inp{$name[$i]}=$temp; - } - } - my $bornum; - while ( my ($key, $value) = each %inp){ - # print $key,$value; - my $accounttype=$input->param("accounttype$value"); - $bornum=$input->param("bornum$value"); - my $itemno=$input->param("itemnumber$value"); - my $amount=$input->param("amount$value"); - writeoff($bornum,$accountno,$itemno,$accounttype,$amount); - } - $bornum=$input->param('bornum'); - print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum"); +my $payselected = $input->param('payselected'); +if ($payselected) { + payselected(@names); } +my $writeoff_all = $input->param('woall'); # writeoff all fines +if ($writeoff_all) { + writeoff_all(@names); +} elsif ($writeoff_item) { + my $accountno = $input->param('accountno'); + my $itemno = $input->param('itemnumber'); + my $account_type = $input->param('accounttype'); + my $amount = $input->param('amountoutstanding'); + WriteOffFee( $borrowernumber, $accountno, $itemno, $account_type, $amount, $branch ); +} -sub writeoff{ - my ($bornum,$accountnum,$itemnum,$accounttype,$amount)=@_; - my $user=$input->remote_user; - my $dbh = C4::Context->dbh; - my $env; - my $sth=$dbh->prepare("Update accountlines set amountoutstanding=0 where accounttype='Res' and accountno=? and borrowernumber=?"); - $sth->execute($accountnum,$bornum); - $sth->finish; - $sth=$dbh->prepare("select max(accountno) from accountlines"); - $sth->execute; - my $account=$sth->fetchrow_hashref; - $sth->finish; - $account->{'max(accountno)'}++; - $sth=$dbh->prepare("insert into accountlines (borrowernumber,accountno,itemnumber,date,amount,description,accounttype) - values (?,?,?,now(),?,'Writeoff','W')"); - $sth->execute($bornum,$account->{'max(accountno)'},$itemnum,$amount); - $sth->finish; - UpdateStats($env,$branch,'writeoff',$amount,'','','',$bornum); +for (@names) { + if (/^pay_indiv_(\d+)$/) { + my $line_no = $1; + redirect_to_paycollect( 'pay_individual', $line_no ); + } elsif (/^wo_indiv_(\d+)$/) { + my $line_no = $1; + redirect_to_paycollect( 'writeoff_individual', $line_no ); + } } -# Local Variables: -# tab-width: 4 -# End: +$template->param( activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne '') ); + +add_accounts_to_template(); + +output_html_with_http_headers $input, $cookie, $template->output; + + +sub add_accounts_to_template { + + my ( $total, undef, undef ) = GetMemberAccountRecords($borrowernumber); + my $accounts = []; + my @notify = NumberNotifyId($borrowernumber); + + my $notify_groups = []; + for my $notify_id (@notify) { + my ( $acct_total, $accountlines, undef ) = + GetBorNotifyAcctRecord( $borrowernumber, $notify_id ); + if ( @{$accountlines} ) { + my $totalnotify = AmountNotify( $notify_id, $borrowernumber ); + push @{$accounts}, + { accountlines => $accountlines, + notify => $notify_id, + total => $totalnotify, + }; + } + } + borrower_add_additional_fields($borrower); + $template->param( + accounts => $accounts, + borrower => $borrower, + total => $total, + ); + return; + +} + +sub get_for_redirect { + my ( $name, $name_in, $money ) = @_; + my $s = q{&} . $name . q{=}; + my $value = $input->param($name_in); + if ( !defined $value ) { + $value = ( $money == 1 ) ? 0 : q{}; + } + if ($money) { + $s .= sprintf '%.2f', $value; + } else { + $s .= $value; + } + return $s; +} + +sub redirect_to_paycollect { + my ( $action, $line_no ) = @_; + my $redirect = + "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber"; + $redirect .= q{&}; + $redirect .= "$action=1"; + $redirect .= get_for_redirect( 'accounttype', "accounttype$line_no", 0 ); + $redirect .= get_for_redirect( 'amount', "amount$line_no", 1 ); + $redirect .= + get_for_redirect( 'amountoutstanding', "amountoutstanding$line_no", 1 ); + $redirect .= get_for_redirect( 'accountno', "accountno$line_no", 0 ); + $redirect .= get_for_redirect( 'description', "description$line_no", 0 ); + $redirect .= get_for_redirect( 'title', "title$line_no", 0 ); + $redirect .= get_for_redirect( 'itemnumber', "itemnumber$line_no", 0 ); + $redirect .= get_for_redirect( 'notify_id', "notify_id$line_no", 0 ); + $redirect .= get_for_redirect( 'notify_level', "notify_level$line_no", 0 ); + $redirect .= '&remote_user='; + $redirect .= $user; + return print $input->redirect($redirect); +} + +sub writeoff_all { + my @params = @_; + my @wo_lines = grep { /^accountno\d+$/ } @params; + for (@wo_lines) { + if (/(\d+)/) { + my $value = $1; + my $accounttype = $input->param("accounttype$value"); + + # my $borrowernum = $input->param("borrowernumber$value"); + my $itemno = $input->param("itemnumber$value"); + my $amount = $input->param("amountoutstanding$value"); + my $accountno = $input->param("accountno$value"); + WriteOffFee( $borrowernumber, $accountno, $itemno, $accounttype, $amount, $branch ); + } + } + + $borrowernumber = $input->param('borrowernumber'); + print $input->redirect( + "/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"); + return; +} + +sub borrower_add_additional_fields { + my $b_ref = shift; + +# some borrower info is not returned in the standard call despite being assumed +# in a number of templates. It should not be the business of this script but in lieu of +# a revised api here it is ... + if ( $b_ref->{category_type} eq 'C' ) { + my ( $catcodes, $labels ) = + GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); + if ( @{$catcodes} ) { + if ( @{$catcodes} > 1 ) { + $b_ref->{CATCODE_MULTI} = 1; + } elsif ( @{$catcodes} == 1 ) { + $b_ref->{catcode} = $catcodes->[0]; + } + } + } elsif ( $b_ref->{category_type} eq 'A' ) { + $b_ref->{adultborrower} = 1; + } + my ( $picture, $dberror ) = GetPatronImage( $b_ref->{cardnumber} ); + if ($picture) { + $b_ref->{has_picture} = 1; + } + + if (C4::Context->preference('ExtendedPatronAttributes')) { + $b_ref->{extendedattributes} = GetBorrowerAttributes($borrowernumber); + $template->param( + ExtendedPatronAttributes => 1, + ); + } + + $b_ref->{branchname} = GetBranchName( $b_ref->{branchcode} ); + return; +} + +sub payselected { + my @params = @_; + my $amt = 0; + my @lines_to_pay; + foreach (@params) { + if (/^incl_par_(\d+)$/) { + my $index = $1; + push @lines_to_pay, $input->param("accountno$index"); + $amt += $input->param("amountoutstanding$index"); + } + } + $amt = '&amt=' . $amt; + my $sel = '&selected=' . join ',', @lines_to_pay; + my $redirect = + "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber" + . $amt + . $sel; + + print $input->redirect($redirect); + return; +}