- 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),
- totalamountopay => sprintf("%.2f",$total));
-output_html_with_http_headers $input, $cookie, $template->output;
-
-} else {
- 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");
-
- }
- $bornum=$input->param('bornum');
- print $input->redirect("/cgi-bin/koha/members/pay.pl?bornum=$bornum");
+if ( $data->{'category_type'} eq 'C') {
+ my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
+ my $cnt = scalar(@$catcodes);
+ $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;
+ $template->param( 'catcode' => $catcodes->[0]) if $cnt == 1;