[Koha-cvs] koha/acqui acquire.pl

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Mason James <sushi>     06/06/07 02:59:10

Modified files:
        acqui          : acquire.pl 

Log message:
        perltidy before commit.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/acquire.pl?cvsroot=koha&r1=1.21&r2=1.22

Patches:
Index: acquire.pl
===================================================================
RCS file: /sources/koha/koha/acqui/acquire.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- acquire.pl  18 Jan 2006 15:38:17 -0000      1.21
+++ acquire.pl  7 Jun 2006 02:59:10 -0000       1.22
@@ -1,11 +1,10 @@
 #!/usr/bin/perl
 
-# $Id: acquire.pl,v 1.21 2006/01/18 15:38:17 tipaul Exp $
+# $Id: acquire.pl,v 1.22 2006/06/07 02:59:10 sushi Exp $
 
 #script to recieve orders
 #written by address@hidden 24/2/2000
 
-
 # Copyright 2000-2002 Katipo Communications
 #
 # This file is part of Koha.
@@ -31,63 +30,71 @@
 use C4::Interface::CGI::Output;
 use C4::Date;
 
-my $input=new CGI;
-my $supplierid=$input->param('supplierid');
+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",
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+    {
+        template_name   => "acqui/acquire.tmpl",
                             query => $input,
                             type => "intranet",
                             authnotrequired => 0,
-                            flagsrequired => {acquisition => 1},
+        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){
+if ( $count == 1 ) {
        my $sth;
 
        my $branches = getbranches;
        my @branchloop;
-       foreach my $thisbranch (sort keys %$branches) {
-               my %row =(value => $thisbranch,
+    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");
+    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;
+        my $data = $sth->fetchrow_hashref;
+        $barcode = $results[0]->{'barcode'} + 1;
                $sth->finish;
        }
 
-       if ($results[0]->{'quantityreceived'} == 0){
-       $results[0]->{'quantityreceived'}='';
+    if ( $results[0]->{'quantityreceived'} == 0 ) {
+        $results[0]->{'quantityreceived'} = '';
        }
-       if ($results[0]->{'unitprice'} == 0){
-       $results[0]->{'unitprice'}='';
+    if ( $results[0]->{'unitprice'} == 0 ) {
+        $results[0]->{'unitprice'} = '';
        }
        $template->param(
                branchloop => address@hidden,
@@ -98,12 +105,12 @@
                supplierid => $results[0]->{'booksellerid'},
                freight => $freight,
                gst => $gst,
-               catview => ($catview ne 'yes'?1:0),
+        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'}),
+        copyrightdate    => format_date( $results[0]->{'copyrightdate'} ),
                itemtype => $results[0]->{'itemtype'},
                isbn => $results[0]->{'isbn'},
                seriestitle => $results[0]->{'seriestitle'},
@@ -117,9 +124,10 @@
                invoice => $invoice,
                notes => $results[0]->{'notes'},
        );
-} else {
+}
+else {
        my @loop;
-       for (my $i=0;$i<$count;$i++){
+    for ( my $i = 0 ; $i < $count ; $i++ ) {
                my %line;
                $line{isbn} = $results[$i]->{'isbn'};
                $line{basketno} = $results[$i]->{'basketno'};
@@ -133,14 +141,15 @@
                $line{title} = $results[$i]->{'title'};
                $line{author} = $results[$i]->{'author'};
                $line{supplierid} = $supplierid;
-               push @loop,\%line;
+        push @loop, \%line;
        }
-       $template->param( loop => address@hidden,
+    $template->param(
+        loop       => address@hidden,
                                                date => format_date($date),
                                                name => 
$booksellers[0]->{'name'},
                                                supplierid => $supplierid,
                                                invoice => $invoice,
-);
+    );
 
 }
 output_html_with_http_headers $input, $cookie, $template->output;