[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/acqui order.pl
From: |
Mason James |
Subject: |
[Koha-cvs] koha/acqui order.pl |
Date: |
Wed, 07 Jun 2006 19:33:33 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: Mason James <sushi> 06/06/07 19:33:33
Modified files:
acqui : order.pl
Log message:
perltidy before commit.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/order.pl?cvsroot=koha&r1=1.14&r2=1.15
Patches:
Index: order.pl
===================================================================
RCS file: /sources/koha/koha/acqui/order.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- order.pl 13 Sep 2004 15:17:48 -0000 1.14
+++ order.pl 7 Jun 2006 19:33:33 -0000 1.15
@@ -1,11 +1,10 @@
#!/usr/bin/perl
-# $Id: order.pl,v 1.14 2004/09/13 15:17:48 tipaul Exp $
+# $Id: order.pl,v 1.15 2006/06/07 19:33:33 sushi Exp $
#script to show suppliers and orders
#written by address@hidden 23/2/2000
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
@@ -34,59 +33,65 @@
use C4::Acquisition;
use C4::Date;
-my $query=new CGI;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "acqui/order.tmpl",
+my $query = new CGI;
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => "acqui/order.tmpl",
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => {acquisition => 1},
+ flagsrequired => { acquisition => 1 },
debug => 1,
- });
+ }
+);
-my $supplier=$query->param('supplier');
-my ($count,@suppliers)=bookseller($supplier);
+my $supplier = $query->param('supplier');
+my ( $count, @suppliers ) = bookseller($supplier);
# check if we have to "close" a basket before building page
my $op = $query->param('op');
my $basket = $query->param('basket');
-if ($op eq 'close') {
+if ( $op eq 'close' ) {
closebasket($basket);
}
#build result page
-my $toggle=0;
+my $toggle = 0;
my @loop_suppliers;
-for (my $i=0; $i<$count; $i++) {
- my ($ordcount,$orders)=getorders($suppliers[$i]->{'id'});
+for ( my $i = 0 ; $i < $count ; $i++ ) {
+ my ( $ordcount, $orders ) = getorders( $suppliers[$i]->{'id'} );
my %line;
- if ($toggle==0){
- $line{even}=1;
- $toggle=1;
- } else {
- $line{even}=0;
- $toggle=0;
+ if ( $toggle == 0 ) {
+ $line{even} = 1;
+ $toggle = 1;
+ }
+ else {
+ $line{even} = 0;
+ $toggle = 0;
}
- $line{supplierid} =$suppliers[$i]->{'id'};
+ $line{supplierid} = $suppliers[$i]->{'id'};
$line{name} = $suppliers[$i]->{'name'};
$line{active} = $suppliers[$i]->{'active'};
my @loop_basket;
- for (my $i2=0;$i2<$ordcount;$i2++){
+ for ( my $i2 = 0 ; $i2 < $ordcount ; $i2++ ) {
my %inner_line;
- $inner_line{basketno} =$orders->[$i2]->{'basketno'};
- $inner_line{total} =$orders->[$i2]->{'count(*)'};
+ $inner_line{basketno} = $orders->[$i2]->{'basketno'};
+ $inner_line{total} = $orders->[$i2]->{'count(*)'};
$inner_line{authorisedby} = $orders->[$i2]->{'authorisedby'};
$inner_line{surname} = $orders->[$i2]->{'firstname'};
$inner_line{firstname} = $orders->[$i2]->{'surname'};
- $inner_line{creationdate} =
format_date($orders->[$i2]->{'creationdate'});
- $inner_line{closedate} =
format_date($orders->[$i2]->{'closedate'});
+ $inner_line{creationdate} =
+ format_date( $orders->[$i2]->{'creationdate'} );
+ $inner_line{closedate} = format_date( $orders->[$i2]->{'closedate'} );
push @loop_basket, \%inner_line;
}
$line{loop_basket} = address@hidden;
push @loop_suppliers, \%line;
}
-$template->param(loop_suppliers => address@hidden,
+$template->param(
+ loop_suppliers => address@hidden,
supplier => $supplier,
- count => $count);
+ count => $count
+);
output_html_with_http_headers $query, $cookie, $template->output;
- [Koha-cvs] koha/acqui order.pl,
Mason James <=