From 98f9060c4dd833ab4f5c8a1b0cc62ff430b3a9b7 Mon Sep 17 00:00:00 2001 From: toins Date: Thu, 13 Jul 2006 14:49:33 +0000 Subject: [PATCH] this file has been changed by parcel.pl --- acqui/receive.pl | 145 ----------------------------------------------- 1 file changed, 145 deletions(-) delete mode 100755 acqui/receive.pl diff --git a/acqui/receive.pl b/acqui/receive.pl deleted file mode 100755 index 6f68c464ac..0000000000 --- a/acqui/receive.pl +++ /dev/null @@ -1,145 +0,0 @@ -#!/usr/bin/perl - -# $Id$ - -#script to recieve orders -#written by chris@katipo.co.nz 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/recieve.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 => \@loop_received, - countpending => $countpendings, - loop_orders => \@loop_orders, - 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; -- 2.39.5