Merge branch 'master' of git://git.koha-community.org/koha into MSWin32
[wip/koha-chris_n.git] / acqui / booksellers.pl
1 #!/usr/bin/perl
2
3 #script to show suppliers and orders
4
5 # Copyright 2000-2002 Katipo Communications
6 # Copyright 2008-2009 BibLibre SARL
7 # Copyright 2010 PTFS Europe
8 #
9 # This file is part of Koha.
10 #
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
14 # version.
15 #
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
19 #
20 # You should have received a copy of the GNU General Public License along
21 # with Koha; if not, write to the Free Software Foundation, Inc.,
22 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23
24 =head1 NAME
25
26 booksellers.pl
27
28 =head1 DESCRIPTION
29
30 this script displays the list of suppliers & baskets like C<$supplier> given on input arg.
31 thus, this page brings differents features like to display supplier's details,
32 to add an order for a specific supplier or to just add a new supplier.
33
34 =head1 CGI PARAMETERS
35
36 =over 4
37
38 =item supplier
39
40 C<$supplier> is the string with which we search for a supplier
41
42 =back
43
44 =item id or supplierid
45
46 The id of the supplier whose baskets we will display
47
48 =back
49
50 =cut
51
52 use strict;
53 use warnings;
54 use C4::Auth;
55 use C4::Biblio;
56 use C4::Output;
57 use CGI;
58
59 use C4::Dates qw/format_date/;
60 use C4::Bookseller qw/ GetBookSellerFromId GetBookSeller /;
61 use C4::Members qw/GetMember/;
62 use C4::Context;
63
64 my $query = CGI->new;
65 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
66     {   template_name   => 'acqui/booksellers.tmpl',
67         query           => $query,
68         type            => 'intranet',
69         authnotrequired => 0,
70         flagsrequired   => { acquisition => '*' },
71         debug           => 1,
72     }
73 );
74
75 #parameters
76 my $supplier = $query->param('supplier');
77 my $id = $query->param('id') || $query->param('supplierid');
78 my @suppliers;
79
80 if ($id) {
81     push @suppliers, GetBookSellerFromId($id);
82 } else {
83     @suppliers = GetBookSeller($supplier);
84 }
85
86 my $supplier_count = @suppliers;
87 if ( $supplier_count == 1 ) {
88     $template->param(
89         supplier_name => $suppliers[0]->{'name'},
90         id            => $suppliers[0]->{'id'}
91     );
92 }
93
94 my $uid;
95 if ($loggedinuser) {
96     $uid = GetMember( borrowernumber => $loggedinuser )->{userid};
97 }
98
99 my $userenv = C4::Context::userenv;
100 my $viewbaskets = C4::Context->preference('AcqViewBaskets');
101
102 my $userbranch = $userenv->{branch};
103
104 #build result page
105 my $loop_suppliers = [];
106
107 for my $vendor (@suppliers) {
108     my $baskets = get_vendors_baskets( $vendor->{id} );
109
110     my $loop_basket = [];
111     
112     for my $basket ( @{$baskets} ) {
113         my $authorisedby = $basket->{authorisedby};
114         my $basketbranch = GetMember( borrowernumber => $authorisedby )->{branchcode};
115         
116         if ($userenv->{'flags'} & 1 || #user is superlibrarian
117                (haspermission( $uid, { acquisition => q{*} } ) && #user has acq permissions and
118                    ($viewbaskets eq 'all' || #user is allowed to see all baskets
119                    ($viewbaskets eq 'branch' && $authorisedby && $userbranch eq $basketbranch) || #basket belongs to user's branch
120                    ($basket->{authorisedby} &&  $viewbaskets == 'user' && $authorisedby == $loggedinuser) #user created this basket
121                    ) 
122                 ) 
123            ) { 
124             for my $date_field (qw( creationdate closedate)) {
125                 if ( $basket->{$date_field} ) {
126                     $basket->{$date_field} = format_date( $basket->{$date_field} );
127                 }
128             }
129             push @{$loop_basket}, $basket; 
130         }
131     }
132
133     push @{$loop_suppliers},
134       { loop_basket => $loop_basket,
135         supplierid  => $vendor->{id},
136         name        => $vendor->{name},
137         active      => $vendor->{active},
138       };
139
140 }
141 $template->param(
142     loop_suppliers => $loop_suppliers,
143     supplier       => ( $id || $supplier ),
144     count          => $supplier_count,
145 );
146
147 output_html_with_http_headers $query, $cookie, $template->output;
148
149 sub get_vendors_baskets {
150     my $supplier_id = shift;
151     my $dbh         = C4::Context->dbh;
152     my $sql         = <<'ENDSQL';
153 select aqbasket.*, count(*) as total,  borrowers.firstname, borrowers.surname
154 from aqbasket left join aqorders on aqorders.basketno = aqbasket.basketno
155 left join borrowers on aqbasket.authorisedby = borrowers.borrowernumber
156 where booksellerid = ?
157 AND ( aqorders.quantity > aqorders.quantityreceived OR quantityreceived IS NULL)
158 AND datecancellationprinted IS NULL
159 group by basketno
160 ENDSQL
161     return $dbh->selectall_arrayref( $sql, { Slice => {} }, $supplier_id );
162 }