[Koha-cvs] koha/acqui parcel.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/13 14:25:01

Added files:
        acqui          : parcel.pl 

Log message:
        this file replaces recieve.pl

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/parcel.pl?cvsroot=koha&rev=1.1

Patches:
Index: parcel.pl
===================================================================
RCS file: parcel.pl
diff -N parcel.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ parcel.pl   13 Jul 2006 14:25:01 -0000      1.1
@@ -0,0 +1,146 @@
+ 
+#!/usr/bin/perl
+
+# $Id: parcel.pl,v 1.1 2006/07/13 14:25:01 toins Exp $
+
+#script to recieve orders
+#written by address@hidden 24/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
+
+use C4::Auth;
+use C4::Acquisition;
+use C4::Biblio;
+use C4::Output;
+use CGI;
+use C4::Interface::CGI::Output;
+use C4::Database;
+use HTML::Template;
+use strict;
+
+my $input=new CGI;
+my $supplierid=$input->param('supplierid');
+my ($count,@booksellers)=bookseller($supplierid);
+my $invoice=$input->param('code') || '';
+my $freight=$input->param('freight');
+my $gst=$input->param('gst');
+my $date=$input->param('datereceived');
+my $code=$input->param('code');
+
+my ($template, $loggedinuser, $cookie)
+    = get_template_and_user({template_name => "acqui/parcel.tmpl",
+                 query => $input,
+                 type => "intranet",
+                 authnotrequired => 0,
+                 flagsrequired => {acquisition => 1},
+                 debug => 1,
+});
+
+my ($countlines,@parcelitems)=getparcelinformation($supplierid,$invoice,$date);
+my $totalprice=0;
+my $totalfreight=0;
+my $totalquantity=0;
+my $total;
+my $tototal;
+my $toggle;
+my @loop_received = ();
+for (my $i=0;$i<$countlines;$i++){
+    $total=($parcelitems[$i]->{'unitprice'} + $parcelitems[$i]->{'freight'}) * 
$parcelitems[$i]->{'quantityreceived'};   #weird, are the freight fees counted 
by book? (pierre)
+    $parcelitems[$i]->{'unitprice'}+=0;
+    my %line;
+    if ($toggle==0){
+        $line{color}='#EEEEEE';
+        $toggle=1;
+} else {
+        $line{color}='white';
+        $toggle=0;
+}
+    $line{basketno} = $parcelitems[$i]->{'basketno'};
+    $line{isbn} = $parcelitems[$i]->{'isbn'};
+    $line{ordernumber} = $parcelitems[$i]->{'ordernumber'};
+    $line{biblionumber} = $parcelitems[$i]->{'biblionumber'};
+    $line{invoice} = $invoice;
+    $line{gst} = $gst;
+    $line{title} = $parcelitems[$i]->{'title'};
+    $line{author} = $parcelitems[$i]->{'author'};
+    $line{unitprice} = $parcelitems[$i]->{'unitprice'};
+    $line{ecost} = $parcelitems[$i]->{'ecost'};
+    $line{quantityrecieved} = $parcelitems[$i]->{'quantityreceived'};
+    $line{quantity} = $parcelitems[$i]->{'quantity'};
+    $line{total} = $total;
+    $line{supplierid} = $supplierid;
+    push @loop_received, \%line;
+    $totalprice+=$parcelitems[$i]->{'unitprice'};
+    $totalfreight+=$parcelitems[$i]->{'freight'};
+    $totalquantity+=$parcelitems[$i]->{'quantityreceived'};
+    $tototal+=$total;
+}
+my ($countpendings,@pendingorders)=getallorders($supplierid);
+my @loop_orders = ();
+for (my $i=0;$i<$countpendings;$i++){
+    my %line;
+    if ($toggle==0){
+        $line{color}='#EEEEEE';
+        $toggle=1;
+} else {
+        $line{color}='white';
+        $toggle=0;
+}
+    $line{basketno} = $pendingorders[$i]->{'basketno'};
+    $line{isbn} = $pendingorders[$i]->{'isbn'};
+    $line{ordernumber} = $pendingorders[$i]->{'ordernumber'};
+    $line{biblionumber} = $pendingorders[$i]->{'biblionumber'};
+    $line{invoice} = $invoice;
+    $line{gst} = $gst;
+    $line{title} = $pendingorders[$i]->{'title'};
+    $line{author} = $pendingorders[$i]->{'author'};
+    $line{unitprice} = $pendingorders[$i]->{'unitprice'};
+    $line{ecost} = $pendingorders[$i]->{'ecost'};
+    $line{quantityrecieved} = $pendingorders[$i]->{'quantityreceived'};
+    $line{quantity} = $pendingorders[$i]->{'quantity'};
+    $line{total} = $total;
+    $line{supplierid} = $supplierid;
+    push @loop_orders, \%line;
+}
+
+$totalfreight=$freight;
+$tototal=$tototal+$freight;
+
+$template->param(invoice => $invoice,
+                        date => $date,
+                        name => $booksellers[0]->{'name'},
+                        supplierid => $supplierid,
+                        gst => $gst,
+                        freight => $freight,
+                        invoice => $invoice,
+                        countreceived => $countlines,
+                        loop_received => address@hidden,
+                        countpending => $countpendings,
+                        loop_orders => address@hidden,
+                        totalprice => $totalprice,
+                        totalfreight => $totalfreight,
+                        totalquantity => $totalquantity,
+                        tototal => $tototal,
+                        gst => $gst,
+                        grandtot => $tototal+$gst,
+                        intranetcolorstylesheet => 
C4::Context->preference("intranetcolorstylesheet"),
+        intranetstylesheet => C4::Context->preference("intranetstylesheet"),
+        IntranetNav => C4::Context->preference("IntranetNav"),
+                        );
+output_html_with_http_headers $input, $cookie, $template->output;