fix for #3620: basket management
[wip/koha-chris_n.git] / acqui / basket.pl
1 #!/usr/bin/perl
2
3 #script to show display basket of orders
4
5 # Copyright 2000 - 2004 Katipo
6 # Copyright 2008 - 2009 BibLibre SARL
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 use strict;
24 use warnings;
25 use C4::Auth;
26 use C4::Koha;
27 use C4::Output;
28 use CGI;
29 use C4::Acquisition;
30 use C4::Budgets;
31
32 use C4::Bookseller;
33 use C4::Dates qw/format_date/;
34 use C4::Debug;
35
36 use C4::Members qw/GetMember/;  #needed for permissions checking for changing basketgroup of a basket
37 =head1 NAME
38
39 basket.pl
40
41 =head1 DESCRIPTION
42
43  This script display all informations about basket for the supplier given
44  on input arg.  Moreover, it allows us to add a new order for this supplier from
45  an existing record, a suggestion or a new record.
46
47 =head1 CGI PARAMETERS
48
49 =over 4
50
51 =item $basketno
52
53 The basket number.
54
55 =item supplierid
56
57 the supplier this script have to display the basket.
58
59 =item order
60
61 =back
62
63 =cut
64
65 my $query        = new CGI;
66 my $basketno     = $query->param('basketno');
67 my $booksellerid = $query->param('supplierid');
68
69 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
70     {
71         template_name   => "acqui/basket.tmpl",
72         query           => $query,
73         type            => "intranet",
74         authnotrequired => 0,
75         flagsrequired   => { acquisition => 'order_manage' },
76         debug           => 1,
77     }
78 );
79
80 my $basket = GetBasket($basketno);
81
82 # FIXME : what about the "discount" percentage?
83 # FIXME : the query->param('supplierid') below is probably useless. The bookseller is always known from the basket
84 # if no booksellerid in parameter, get it from basket
85 # warn "=>".$basket->{booksellerid};
86 $booksellerid = $basket->{booksellerid} unless $booksellerid;
87 my ($bookseller) = GetBookSellerFromId($booksellerid);
88 my $op = $query->param('op');
89
90 if ( $op eq 'delete_confirm' ) {
91     my $basketno = $query->param('basketno');
92     DelBasket($basketno);
93     $template->param( delete_confirmed => 1 );
94 } elsif ( !$bookseller ) {
95     $template->param( NO_BOOKSELLER => 1 );
96 } elsif ( $op eq 'del_basket') {
97     $template->param( delete_confirm => 1 );
98     if ( C4::Context->preference("IndependantBranches") ) {
99         my $userenv = C4::Context->userenv;
100         unless ( $userenv->{flags} == 1 ) {
101             my $validtest = ( $basket->{creationdate} eq '' )
102               || ( $userenv->{branch} eq $basket->{branch} )
103               || ( $userenv->{branch} eq '' )
104               || ( $basket->{branch}  eq '' );
105             unless ($validtest) {
106                 print $query->redirect("../mainpage.pl");
107                 exit 1;
108             }
109         }
110     }
111     $basket->{creationdate} = ""            unless ( $basket->{creationdate} );
112     $basket->{authorisedby} = $loggedinuser unless ( $basket->{authorisedby} );
113     my $contract = &GetContract($basket->{contractnumber});
114     my $count = scalar GetOrders( $basketno);
115     $template->param(
116         basketno             => $basketno,
117         basketname           => $basket->{'basketname'},
118         basketnote           => $basket->{note},
119         basketbooksellernote => $basket->{booksellernote},
120         basketcontractno     => $basket->{contractnumber},
121         basketcontractname   => $contract->{contractname},
122         creationdate         => format_date( $basket->{creationdate} ),
123         authorisedby         => $basket->{authorisedby},
124         authorisedbyname     => $basket->{authorisedbyname},
125         closedate            => format_date( $basket->{closedate} ),
126         active               => $bookseller->{'active'},
127         booksellerid         => $bookseller->{'id'},
128         name                 => $bookseller->{'name'},
129         address1             => $bookseller->{'address1'},
130         address2             => $bookseller->{'address2'},
131         address3             => $bookseller->{'address3'},
132         address4             => $bookseller->{'address4'},
133         count               =>     $count,
134       );
135 } elsif ($op eq 'attachbasket' && $template->{'param_map'}->{'CAN_user_acquisition_group_manage'} == 1) {
136       print $query->redirect('/cgi-bin/koha/acqui/basketgroup.pl?basketno=' . $basket->{'basketno'} . '&op=attachbasket&booksellerid=' . $booksellerid);
137     # check if we have to "close" a basket before building page
138 } elsif ($op eq 'close') {
139     my $confirm = $query->param('confirm');
140     if ($confirm) {
141         my $basketno = $query->param('basketno');
142         my $booksellerid = $query->param('booksellerid');
143         $basketno =~ /^\d+$/ and CloseBasket($basketno);
144         print $query->redirect('/cgi-bin/koha/acqui/basketgroup.pl?basketno='.$basketno.'&op=attachbasket&booksellerid=' . $booksellerid);
145         exit;
146
147     } else {
148         $template->param(confirm_close => "1",
149                         booksellerid    => $booksellerid,
150                         basketno        => $basket->{'basketno'},
151                         basketname      => $basket->{'basketname'},
152                         basketgroupname => $basket->{'basketname'});
153                 
154     }
155 } elsif ($query->param('op') eq 'reopen') {
156     my $basket;
157     $basket->{basketno} = $query->param('basketno');
158     $basket->{closedate} = undef;
159     ModBasket($basket);
160     print $query->redirect('/cgi-bin/koha/acqui/basket.pl?basketno='.$basket->{'basketno'})
161 } else {
162     # get librarian branch...
163     if ( C4::Context->preference("IndependantBranches") ) {
164         my $userenv = C4::Context->userenv;
165         unless ( $userenv->{flags} == 1 ) {
166             my $validtest = ( $basket->{creationdate} eq '' )
167               || ( $userenv->{branch} eq $basket->{branch} )
168               || ( $userenv->{branch} eq '' )
169               || ( $basket->{branch}  eq '' );
170             unless ($validtest) {
171                 print $query->redirect("../mainpage.pl");
172                 exit 1;
173             }
174         }
175     }
176 #if the basket is closed,and the user has the permission to edit basketgroups, display a list of basketgroups
177     my $basketgroups;
178     my $member = GetMember($loggedinuser, "borrowernumber");
179     if ($basket->{closedate} && haspermission({ flagsrequired   => { acquisition => 'group_manage'} })) {
180         $basketgroups = GetBasketgroups($basket->{booksellerid});
181         for (my $i=0; $i < scalar(@$basketgroups); $i++) {
182             if ($basket->{basketgroupid} == @$basketgroups[$i]->{id}){
183                 @$basketgroups[$i]->{default} = 1;
184             }
185         }
186         my %emptygroup = ( id   =>   undef,
187                            name =>   "No group");
188         if ( ! $basket->{basketgroupid} ) {
189             $emptygroup{default} = 1;
190         }
191         unshift( @$basketgroups, \%emptygroup );
192     }
193     # if new basket, pre-fill infos
194     $basket->{creationdate} = ""            unless ( $basket->{creationdate} );
195     $basket->{authorisedby} = $loggedinuser unless ( $basket->{authorisedby} );
196     $debug
197       and warn sprintf
198       "loggedinuser: $loggedinuser; creationdate: %s; authorisedby: %s",
199       $basket->{creationdate}, $basket->{authorisedby};
200
201     my @results = GetOrders( $basketno );
202     my $count = scalar @results;
203     
204         my $gist = $bookseller->{gstrate} || C4::Context->preference("gist") || 0;
205         my $discount = $bookseller->{'discount'} / 100;
206     my $total_rrp;      # RRP Total, its value will be assigned to $total_rrp_gsti or $total_rrp_gste depending of $bookseller->{'listincgst'}
207         my $total_rrp_gsti; # RRP Total, GST included
208         my $total_rrp_gste; # RRP Total, GST excluded
209         my $gist_rrp;
210         
211     my $qty_total;
212     my @books_loop;
213
214     for ( my $i = 0 ; $i < $count ; $i++ ) {
215         my $rrp = $results[$i]->{'listprice'};
216                 my $qty = $results[$i]->{'quantity'} || 0;
217
218         my $budget = GetBudget(  $results[$i]->{'budget_id'} );
219         $rrp = ConvertCurrency( $results[$i]->{'currency'}, $rrp );
220
221         $total_rrp += $qty * $results[$i]->{'rrp'};
222         my $line_total = $qty * $results[$i]->{'ecost'};
223                 # FIXME: what about the "actual cost" field?
224         $qty_total += $qty;
225         my %line = %{ $results[$i] };
226                 ($i%2) and $line{toggle} = 1;
227
228         $line{order_received} = ( $qty eq $results[$i]->{'quantityreceived'} );
229         $line{basketno}       = $basketno;
230         $line{i}              = $i;
231         $line{budget_name}    = $budget->{budget_name};
232         $line{rrp}            = sprintf( "%.2f", $line{'rrp'} );
233         $line{ecost}          = sprintf( "%.2f", $line{'ecost'} );
234         $line{line_total}     = sprintf( "%.2f", $line_total );
235         $line{odd}            = $i % 2;
236         if ($line{uncertainprice}) {
237             $template->param( unclosable => 1 );
238             for my $key (qw/ecost line_total rrp/) {
239                 $line{$key} .= '??';
240             }
241         }
242         if ($line{'title'}){
243             my $volume = $results[$i]->{'volume'};
244             my $seriestitle = $results[$i]->{'seriestitle'};
245             $line{'title'} .= " / $seriestitle" if $seriestitle;
246             $line{'title'} .= " / $volume" if $volume;
247         } else {
248             $line{'title'} = "Deleted bibliographic notice, can't find title.";
249         }
250         push @books_loop, \%line;
251     }
252
253         if ($bookseller->{'listincgst'}) {                        # if prices already includes GST
254                 $total_rrp_gsti = $total_rrp;                         # we know $total_rrp_gsti
255                 $total_rrp_gste = $total_rrp_gsti / ($gist + 1);      # and can reverse compute other values
256                 $gist_rrp       = $total_rrp_gsti - $total_rrp_gste;  #
257         } else {                                                  # if prices does not include GST
258                 $total_rrp_gste = $total_rrp;                         # then we use the common way to compute other values
259                 $gist_rrp = $total_rrp_gste * $gist;                  #
260                 $total_rrp_gsti = $total_rrp_gste + $gist_rrp;        #
261         }
262         # These vars are estimated totals and GST, taking in account the booksellet discount
263         my $total_est_gsti = $total_rrp_gsti - ($total_rrp_gsti * $discount);
264         my $gist_est       = $gist_rrp       - ($gist_rrp * $discount);
265         my $total_est_gste = $total_rrp_gste - ($total_rrp_gste * $discount);
266
267     my $contract = &GetContract($basket->{contractnumber});
268     $template->param(
269         basketno             => $basketno,
270         basketname           => $basket->{'basketname'},
271         basketnote           => $basket->{note},
272         basketbooksellernote => $basket->{booksellernote},
273         basketcontractno     => $basket->{contractnumber},
274         basketcontractname   => $contract->{contractname},
275         creationdate         => C4::Dates->new($basket->{creationdate},'iso')->output,
276         authorisedby         => $basket->{authorisedby},
277         authorisedbyname     => $basket->{authorisedbyname},
278         closedate            => C4::Dates->new($basket->{closedate},'iso')->output,
279         active               => $bookseller->{'active'},
280         booksellerid         => $bookseller->{'id'},
281         name                 => $bookseller->{'name'},
282         entrydate            => C4::Dates->new($results[0]->{'entrydate'},'iso')->output,
283         books_loop           => \@books_loop,
284         count                => $count,
285         gist_rate            => sprintf( "%.2f", $gist * 100 ) . '%',
286         total_rrp_gste       => sprintf( "%.2f", $total_rrp_gste ),
287         total_est_gste       => sprintf( "%.2f", $total_est_gste ),
288         gist_est             => sprintf( "%.2f", $gist_est ),
289         gist_rrp             => sprintf( "%.2f", $gist_rrp ),        
290         total_rrp_gsti       => sprintf( "%.2f", $total_rrp_gsti ),
291         total_est_gsti       => sprintf( "%.2f", $total_est_gsti ),
292         currency             => $bookseller->{'listprice'},
293         qty_total            => $qty_total,
294         GST                  => $gist,
295         basketgroups         => $basketgroups,
296         grouped              => $basket->{basketgroupid},
297     );
298 }
299 output_html_with_http_headers $query, $cookie, $template->output;