[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 chris at katipo.co.nz 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, at 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, at 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 => \@branchloop,
@@ -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 => \@loop,
+    $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;