From dee72643a8d8625337345ed7dd22b0a4e9d4b8a2 Mon Sep 17 00:00:00 2001 From: toins Date: Thu, 13 Jul 2006 14:24:18 +0000 Subject: [PATCH] this file replaces recieveorder.pl --- acqui/parcels.pl | 133 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 133 insertions(+) create mode 100644 acqui/parcels.pl diff --git a/acqui/parcels.pl b/acqui/parcels.pl new file mode 100644 index 0000000000..61eb5b5a16 --- /dev/null +++ b/acqui/parcels.pl @@ -0,0 +1,133 @@ + +#!/usr/bin/perl + +# $Id$ + +#script to show display basket of 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 strict; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Database; +use C4::Date; +use HTML::Template; +use C4::Acquisition; + +my $input=new CGI; +my $supplierid=$input->param('supplierid'); +my $order=$input->param('orderby') || "datereceived desc"; +my $startfrom=$input->param('startfrom'); +my $code=$input->param('filter'); +my $datefrom=$input->param('datefrom'); +my $dateto=$input->param('dateto'); +my $resultsperpage = $input->param('resultsperpage'); + +my ($count,@booksellers)=bookseller($supplierid); + +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "acqui/parcels.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {acquisition => 1}, + debug => 1, +}); + + +$resultsperpage = 20 unless ($resultsperpage); +my ($count,@results)=getparcels($supplierid, $order, $code,$datefrom,$dateto); + +# multi page display gestion +$startfrom=0 unless ($startfrom); +if ($count>$resultsperpage){ + my $displaynext=0; + my $displayprev=$startfrom; + if(($count - ($startfrom+$resultsperpage)) > 0 ) { + $displaynext = 1; +} + + my @numbers = (); + if ($count>$resultsperpage) { + for (my $i=1; $i<$count/$resultsperpage+1; $i++) { + if ($i<16) { + my $highlight=0; + ($startfrom/$resultsperpage==($i-1)) && ($highlight=1); + push @numbers, { number => $i, + highlight => $highlight , +# searchdata=> "test", + startfrom => ($i-1)*$resultsperpage}; +} +} +} + + my $from = $startfrom*$resultsperpage+1; + my $to; + + if($count < (($startfrom+1)*$resultsperpage)) +{ + $to = $count; +} else { + $to = (($startfrom+1)*$resultsperpage); +} + $template->param(numbers=>\@numbers, + displaynext=>$displaynext, + displayprev=>$displayprev, + nextstartfrom=>(($startfrom+$resultsperpage<$count)?$startfrom+$resultsperpage:$count), + prevstartfrom=>(($startfrom-$resultsperpage>0)?$startfrom-$resultsperpage:0) + ); +} +my @loopres; + +my $hilighted=0; +for (my $i=$startfrom;$i<=($startfrom+$resultsperpage-1<$count-1?$startfrom+$resultsperpage-1:$count-1);$i++){ +### startfrom: $startfrom +### resultsperpage: $resultsperpage +### count: $count +### code: $results[$i]->{booksellerinvoicenumber} +### datereceived: $results[$i]->{datereceived} + + my %cell; + $cell{number}=$i+1; + $cell{code}=$results[$i]->{booksellerinvoicenumber}; + $cell{nullcode}=$results[$i]->{booksellerinvoicenumber} eq "NULL"; + $cell{emptycode}=$results[$i]->{booksellerinvoicenumber} eq ''; + $cell{raw_datereceived}=$results[$i]->{datereceived}; + $cell{datereceived}=format_date($results[$i]->{datereceived}); + $cell{bibcount}=$results[$i]->{biblio}; + $cell{reccount}=$results[$i]->{itemsreceived}; + $cell{itemcount}=$results[$i]->{itemsexpected}; + $cell{hilighted} = $hilighted%2; + $hilighted++; + push @loopres, \%cell; +} +$template->param(searchresults=>\@loopres, count=>$count) if ($count); +$template->param(orderby=>$order, filter=>$code, datefrom=>$datefrom,dateto=>$dateto, resultsperpage=>$resultsperpage); +$template->param( + name => $booksellers[0]->{'name'}, + supplierid => $supplierid, + 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