3 #script to show suppliers and orders
5 # Copyright 2000-2002 Katipo Communications
6 # Copyright 2008-2009 BibLibre SARL
7 # Copyright 2010 PTFS Europe
9 # This file is part of Koha.
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
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.
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.
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.
40 C<$supplier> is the string with which we search for a supplier
44 =item id or supplierid
46 The id of the supplier whose baskets we will display
59 use C4
::Dates qw
/format_date/;
60 use C4
::Bookseller qw
/ GetBookSellerFromId GetBookSeller /;
61 use C4
::Members qw
/GetMember/;
65 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
66 { template_name
=> 'acqui/booksellers.tmpl',
70 flagsrequired
=> { acquisition
=> '*' },
76 my $supplier = $query->param('supplier');
77 my $id = $query->param('id') || $query->param('supplierid');
81 push @suppliers, GetBookSellerFromId
($id);
83 @suppliers = GetBookSeller
($supplier);
86 my $supplier_count = @suppliers;
87 if ( $supplier_count == 1 ) {
89 supplier_name
=> $suppliers[0]->{'name'},
90 id
=> $suppliers[0]->{'id'}
96 $uid = GetMember
( borrowernumber
=> $loggedinuser )->{userid
};
99 my $userenv = C4
::Context
::userenv
;
100 my $viewbaskets = C4
::Context
->preference('AcqViewBaskets');
102 my $userbranch = $userenv->{branch
};
105 my $loop_suppliers = [];
107 for my $vendor (@suppliers) {
108 my $baskets = get_vendors_baskets
( $vendor->{id
} );
110 my $loop_basket = [];
112 for my $basket ( @
{$baskets} ) {
113 my $authorisedby = $basket->{authorisedby
};
114 my $basketbranch = GetMember
( borrowernumber
=> $authorisedby )->{branchcode
};
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
124 for my $date_field (qw( creationdate closedate)) {
125 if ( $basket->{$date_field} ) {
126 $basket->{$date_field} = format_date
( $basket->{$date_field} );
129 push @
{$loop_basket}, $basket;
133 push @
{$loop_suppliers},
134 { loop_basket
=> $loop_basket,
135 supplierid
=> $vendor->{id
},
136 name
=> $vendor->{name
},
137 active
=> $vendor->{active
},
142 loop_suppliers
=> $loop_suppliers,
143 supplier
=> ( $id || $supplier ),
144 count
=> $supplier_count,
147 output_html_with_http_headers
$query, $cookie, $template->output;
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
161 return $dbh->selectall_arrayref( $sql, { Slice
=> {} }, $supplier_id );