perltidy before commit.

diff --git a/acqui/acquire.pl b/acqui/acquire.pl
index a5986c2..e0e96ed 100755 (executable)
--- 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;