From 8b927e859383d6d28e3e0598c656e5b1fbd9dd5b Mon Sep 17 00:00:00 2001 From: sushi Date: Wed, 7 Jun 2006 02:59:10 +0000 Subject: [PATCH] perltidy before commit. --- acqui/acquire.pl | 211 ++++++++++++++++++++++++----------------------- 1 file changed, 110 insertions(+), 101 deletions(-) diff --git a/acqui/acquire.pl b/acqui/acquire.pl index a5986c2a1d..e0e96ed734 100755 --- a/acqui/acquire.pl +++ b/acqui/acquire.pl @@ -5,7 +5,6 @@ #script to recieve orders #written by chris@katipo.co.nz 24/2/2000 - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -31,116 +30,126 @@ use C4::Auth; use C4::Interface::CGI::Output; use C4::Date; -my $input=new CGI; -my $supplierid=$input->param('supplierid'); -my $dbh = C4::Context->dbh; +my $input = new CGI; +my $supplierid = $input->param('supplierid'); +my $dbh = C4::Context->dbh; + +my $search = $input->param('recieve'); +my $invoice = $input->param('invoice'); +my $freight = $input->param('freight'); +my $biblio = $input->param('biblio'); +my $catview = $input->param('catview'); +my $gst = $input->param('gst'); +my ( $count, @results ) = + ordersearch( $search, $supplierid, $biblio, $catview ); -my $search=$input->param('recieve'); -my $invoice=$input->param('invoice'); -my $freight=$input->param('freight'); -my $biblio=$input->param('biblio'); -my $catview=$input->param('catview'); -my $gst=$input->param('gst'); -my ($count,@results)=ordersearch($search,$supplierid,$biblio,$catview); # warn "C:$count for ordersearch($search,$supplierid,$biblio,$catview);"; -my ($count2,@booksellers)=bookseller($results[0]->{'booksellerid'}); +my ( $count2, @booksellers ) = bookseller( $results[0]->{'booksellerid'} ); my $date = $results[0]->{'entrydate'}; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "acqui/acquire.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {acquisition => 1}, - debug => 1, - }); +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "acqui/acquire.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { acquisition => 1 }, + debug => 1, + } +); $template->param($count); -my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where borrowernumber = ?"); +my $sthtemp = + $dbh->prepare( + "Select flags, branchcode from borrowers where borrowernumber = ?"); $sthtemp->execute($loggedinuser); -my ($flags, $homebranch)=$sthtemp->fetchrow; +my ( $flags, $homebranch ) = $sthtemp->fetchrow; -if ($count == 1){ - my $sth; +if ( $count == 1 ) { + my $sth; - my $branches = getbranches; - my @branchloop; - foreach my $thisbranch (sort keys %$branches) { - my %row =(value => $thisbranch, - branchname => $branches->{$thisbranch}->{'branchname'}, - ); - push @branchloop, \%row; - } + my $branches = getbranches; + my @branchloop; + foreach my $thisbranch ( sort keys %$branches ) { + my %row = ( + value => $thisbranch, + branchname => $branches->{$thisbranch}->{'branchname'}, + ); + push @branchloop, \%row; + } - my $auto_barcode = C4::Context->boolean_preference("autoBarcode") || 0; - # See whether barcodes should be automatically allocated. - # Defaults to 0, meaning "no". - my $barcode; - if ($auto_barcode eq '1') { - $sth=$dbh->prepare("Select max(barcode) from items"); - $sth->execute; - my $data=$sth->fetchrow_hashref; - $barcode = $results[0]->{'barcode'}+1; - $sth->finish; - } + my $auto_barcode = C4::Context->boolean_preference("autoBarcode") || 0; - if ($results[0]->{'quantityreceived'} == 0){ - $results[0]->{'quantityreceived'}=''; - } - if ($results[0]->{'unitprice'} == 0){ - $results[0]->{'unitprice'}=''; - } - $template->param( - branchloop => \@branchloop, - count => 1, - biblionumber => $results[0]->{'biblionumber'}, - ordernumber => $results[0]->{'ordernumber'}, - biblioitemnumber => $results[0]->{'biblioitemnumber'}, - supplierid => $results[0]->{'booksellerid'}, - freight => $freight, - gst => $gst, - catview => ($catview ne 'yes'?1:0), - name => $booksellers[0]->{'name'}, - date => format_date($date), - title => $results[0]->{'title'}, - author => $results[0]->{'author'}, - copyrightdate => format_date($results[0]->{'copyrightdate'}), - itemtype => $results[0]->{'itemtype'}, - isbn => $results[0]->{'isbn'}, - seriestitle => $results[0]->{'seriestitle'}, - barcode => $barcode, - bookfund => $results[0]->{'bookfundid'}, - quantity => $results[0]->{'quantity'}, - quantityreceived => $results[0]->{'quantityreceived'}, - rrp => $results[0]->{'rrp'}, - ecost => $results[0]->{'ecost'}, - unitprice => $results[0]->{'unitprice'}, - invoice => $invoice, - notes => $results[0]->{'notes'}, - ); -} else { - my @loop; - for (my $i=0;$i<$count;$i++){ - my %line; - $line{isbn} = $results[$i]->{'isbn'}; - $line{basketno} = $results[$i]->{'basketno'}; - $line{quantity} = $results[$i]->{'quantity'}; - $line{quantityrecieved} = $results[$i]->{'quantityreceived'}; - $line{ordernumber} = $results[$i]->{'ordernumber'}; - $line{biblionumber} = $results[$i]->{'biblionumber'}; - $line{invoice} = $invoice; - $line{freight} = $freight; - $line{gst} = $gst; - $line{title} = $results[$i]->{'title'}; - $line{author} = $results[$i]->{'author'}; - $line{supplierid} = $supplierid; - push @loop,\%line; - } - $template->param( loop => \@loop, - date => format_date($date), - name => $booksellers[0]->{'name'}, - supplierid => $supplierid, - invoice => $invoice, -); + # See whether barcodes should be automatically allocated. + # Defaults to 0, meaning "no". + my $barcode; + if ( $auto_barcode eq '1' ) { + $sth = $dbh->prepare("Select max(barcode) from items"); + $sth->execute; + my $data = $sth->fetchrow_hashref; + $barcode = $results[0]->{'barcode'} + 1; + $sth->finish; + } + + if ( $results[0]->{'quantityreceived'} == 0 ) { + $results[0]->{'quantityreceived'} = ''; + } + if ( $results[0]->{'unitprice'} == 0 ) { + $results[0]->{'unitprice'} = ''; + } + $template->param( + branchloop => \@branchloop, + count => 1, + biblionumber => $results[0]->{'biblionumber'}, + ordernumber => $results[0]->{'ordernumber'}, + biblioitemnumber => $results[0]->{'biblioitemnumber'}, + supplierid => $results[0]->{'booksellerid'}, + freight => $freight, + gst => $gst, + catview => ( $catview ne 'yes' ? 1 : 0 ), + name => $booksellers[0]->{'name'}, + date => format_date($date), + title => $results[0]->{'title'}, + author => $results[0]->{'author'}, + copyrightdate => format_date( $results[0]->{'copyrightdate'} ), + itemtype => $results[0]->{'itemtype'}, + isbn => $results[0]->{'isbn'}, + seriestitle => $results[0]->{'seriestitle'}, + barcode => $barcode, + bookfund => $results[0]->{'bookfundid'}, + quantity => $results[0]->{'quantity'}, + quantityreceived => $results[0]->{'quantityreceived'}, + rrp => $results[0]->{'rrp'}, + ecost => $results[0]->{'ecost'}, + unitprice => $results[0]->{'unitprice'}, + invoice => $invoice, + notes => $results[0]->{'notes'}, + ); +} +else { + my @loop; + for ( my $i = 0 ; $i < $count ; $i++ ) { + my %line; + $line{isbn} = $results[$i]->{'isbn'}; + $line{basketno} = $results[$i]->{'basketno'}; + $line{quantity} = $results[$i]->{'quantity'}; + $line{quantityrecieved} = $results[$i]->{'quantityreceived'}; + $line{ordernumber} = $results[$i]->{'ordernumber'}; + $line{biblionumber} = $results[$i]->{'biblionumber'}; + $line{invoice} = $invoice; + $line{freight} = $freight; + $line{gst} = $gst; + $line{title} = $results[$i]->{'title'}; + $line{author} = $results[$i]->{'author'}; + $line{supplierid} = $supplierid; + push @loop, \%line; + } + $template->param( + loop => \@loop, + date => format_date($date), + name => $booksellers[0]->{'name'}, + supplierid => $supplierid, + invoice => $invoice, + ); } output_html_with_http_headers $input, $cookie, $template->output; -- 2.39.2