[Koha-cvs] koha/acqui booksellers.pl order.pl
Antoine Farnault
antoine at koha-fr.org
Tue Aug 1 16:53:12 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 06/08/01 14:53:12
Added files:
acqui : booksellers.pl
Removed files:
acqui : order.pl
Log message:
order.pl renamed to booksellers.pl
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/booksellers.pl?cvsroot=koha&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/order.pl?cvsroot=koha&r1=1.19&r2=0
Patches:
Index: booksellers.pl
===================================================================
RCS file: booksellers.pl
diff -N booksellers.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ booksellers.pl 1 Aug 2006 14:53:12 -0000 1.1
@@ -0,0 +1,139 @@
+#!/usr/bin/perl
+
+#script to show suppliers and orders
+#written by chris at katipo.co.nz 23/2/2000
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+# $Id: booksellers.pl,v 1.1 2006/08/01 14:53:12 toins Exp $
+
+=head1 NAME
+
+booksellers.pl
+
+=head1 DESCRIPTION
+
+this script displays the list of suppliers & orders like C<$supplier> given on input arg.
+thus, this page brings differents features like to display supplier's details,
+to add an order for a specific supplier or to just add a new supplier.
+
+=head1 CGI PARAMETERS
+
+=over 4
+
+=item supplier
+
+C<$supplier> is the suplier we have to search order.
+=back
+
+=item op
+
+C<OP> can be equals to 'close' if we have to close a basket before building the page.
+
+=item basket
+
+the C<basket> we have to close if op is equal to 'close'.
+
+=back
+
+=cut
+
+use strict;
+use C4::Auth;
+use C4::Biblio;
+use C4::Output;
+use CGI;
+use C4::Interface::CGI::Output;
+use C4::Database;
+use HTML::Template;
+use C4::Acquisition;
+use C4::Date;
+use C4::Bookseller;
+
+my $query = new CGI;
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => "acqui/suppliers.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { acquisition => 1 },
+ debug => 1,
+ }
+);
+
+#parameters
+my $supplier = $query->param('supplier');
+
+my @suppliers = GetBookSeller($supplier);
+my $count = scalar @suppliers;
+
+# 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' ) {
+ CloseBasket($basket);
+}
+
+#build result page
+my $toggle = 0;
+my @loop_suppliers;
+for ( my $i = 0 ; $i < $count ; $i++ ) {
+ my $orders = GetPendingOrders( $suppliers[$i]->{'id'} );
+ my $ordcount = scalar @$orders;
+# FIXME : $ordcount seems to be equals to 0 each times...
+
+ my %line;
+ if ( $toggle == 0 ) {
+ $line{even} = 1;
+ $toggle = 1;
+ }
+ else {
+ $line{even} = 0;
+ $toggle = 0;
+ }
+ $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++ ) {
+ my %inner_line;
+ $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'} );
+ push @loop_basket, \%inner_line;
+ }
+ $line{loop_basket} = \@loop_basket;
+ push @loop_suppliers, \%line;
+}
+$template->param(
+ loop_suppliers => \@loop_suppliers,
+ supplier => $supplier,
+ count => $count,
+ intranetcolorstylesheet =>
+ C4::Context->preference("intranetcolorstylesheet"),
+ intranetstylesheet => C4::Context->preference("intranetstylesheet"),
+ IntranetNav => C4::Context->preference("IntranetNav"),
+);
+
+output_html_with_http_headers $query, $cookie, $template->output;
Index: order.pl
===================================================================
RCS file: order.pl
diff -N order.pl
--- order.pl 31 Jul 2006 14:49:56 -0000 1.19
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,139 +0,0 @@
-#!/usr/bin/perl
-
-#script to show suppliers and orders
-#written by chris at katipo.co.nz 23/2/2000
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-# $Id: order.pl,v 1.19 2006/07/31 14:49:56 toins Exp $
-
-=head1 NAME
-
-order.pl
-
-=head1 DESCRIPTION
-
-this script displays the list of suppliers & orders like C<$supplier> given on input arg.
-thus, this page brings differents features like to display supplier's details,
-to add an order for a specific supplier or to just add a new supplier.
-
-=head1 CGI PARAMETERS
-
-=over 4
-
-=item supplier
-
-C<$supplier> is the suplier we have to search order.
-=back
-
-=item op
-
-C<OP> can be equals to 'close' if we have to close a basket before building the page.
-
-=item basket
-
-the C<basket> we have to close if op is equal to 'close'.
-
-=back
-
-=cut
-
-use strict;
-use C4::Auth;
-use C4::Biblio;
-use C4::Output;
-use CGI;
-use C4::Interface::CGI::Output;
-use C4::Database;
-use HTML::Template;
-use C4::Acquisition;
-use C4::Date;
-use C4::Bookseller;
-
-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 },
- debug => 1,
- }
-);
-
-#parameters
-my $supplier = $query->param('supplier');
-
-my @suppliers = GetBookSeller($supplier);
-my $count = scalar @suppliers;
-
-# 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' ) {
- CloseBasket($basket);
-}
-
-#build result page
-my $toggle = 0;
-my @loop_suppliers;
-for ( my $i = 0 ; $i < $count ; $i++ ) {
- my $orders = GetPendingOrders( $suppliers[$i]->{'id'} );
- my $ordcount = scalar @$orders;
-# FIXME : $ordcount seems to be equals to 0 each times...
-
- my %line;
- if ( $toggle == 0 ) {
- $line{even} = 1;
- $toggle = 1;
- }
- else {
- $line{even} = 0;
- $toggle = 0;
- }
- $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++ ) {
- my %inner_line;
- $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'} );
- push @loop_basket, \%inner_line;
- }
- $line{loop_basket} = \@loop_basket;
- push @loop_suppliers, \%line;
-}
-$template->param(
- loop_suppliers => \@loop_suppliers,
- supplier => $supplier,
- count => $count,
- intranetcolorstylesheet =>
- C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
-);
-
-output_html_with_http_headers $query, $cookie, $template->output;
More information about the Koha-cvs
mailing list