fixing permissions on scripts
[koha.git] / serials / acqui-search-result.pl
1 #!/usr/bin/perl
2
3 #script to show suppliers and orders
4 #written by chris@katipo.co.nz 23/2/2000
5
6 # Copyright 2000-2002 Katipo Communications
7 #
8 # This file is part of Koha.
9 #
10 # Koha is free software; you can redistribute it and/or modify it under the
11 # terms of the GNU General Public License as published by the Free Software
12 # Foundation; either version 2 of the License, or (at your option) any later
13 # version.
14 #
15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
17 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
18 #
19 # You should have received a copy of the GNU General Public License along with
20 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
21 # Suite 330, Boston, MA  02111-1307 USA
22
23 # $Id$
24
25 =head1 NAME
26
27 acqui-search-result.pl
28
29 =head1 DESCRIPTION
30  TODO
31  
32 =head1 PARAMETERS
33
34 =over 4
35
36 =item supplier
37
38 =back
39
40 =cut
41
42
43 use strict;
44 use C4::Auth;
45 use C4::Biblio;
46 use C4::Output;
47 use CGI;
48
49
50 use C4::Acquisition;
51 use C4::Date;
52 use C4::Bookseller;
53
54 my $query=new CGI;
55 my ($template, $loggedinuser, $cookie)
56     = get_template_and_user({template_name => "serials/acqui-search-result.tmpl",
57                  query => $query,
58                  type => "intranet",
59                  authnotrequired => 0,
60                  flagsrequired => {serials => 1},
61                  debug => 1,
62                  });
63
64 my $supplier=$query->param('supplier');
65 my @suppliers = GetBookSeller($supplier);
66 my $count = scalar @suppliers;
67
68 #build result page
69 my $toggle=0;
70 my @loop_suppliers;
71 for (my $i=0; $i<$count; $i++) {
72     my $orders = GetPendingOrders($suppliers[$i]->{'id'});
73     my $ordcount = scalar @$orders;
74     
75     my %line;
76     if ($toggle==0){
77         $line{even}=1;
78         $toggle=1;
79     } else {
80         $line{even}=0;
81         $toggle=0;
82     }
83     $line{aqbooksellerid} =$suppliers[$i]->{'id'};
84     $line{name} = $suppliers[$i]->{'name'};
85     $line{active} = $suppliers[$i]->{'active'};
86     my @loop_basket;
87     for (my $i2=0;$i2<$ordcount;$i2++){
88         my %inner_line;
89         $inner_line{basketno} =$orders->[$i2]->{'basketno'};
90         $inner_line{total} =$orders->[$i2]->{'count(*)'};
91         $inner_line{authorisedby} = $orders->[$i2]->{'authorisedby'};
92         $inner_line{creationdate} = format_date($orders->[$i2]->{'creationdate'});
93         $inner_line{closedate} = format_date($orders->[$i2]->{'closedate'});
94         push @loop_basket, \%inner_line;
95     }
96     $line{loop_basket} = \@loop_basket;
97     push @loop_suppliers, \%line;
98 }
99 $template->param(loop_suppliers => \@loop_suppliers,
100                         supplier => $supplier,
101                         count => $count);
102
103 output_html_with_http_headers $query, $cookie, $template->output;