Revert "Bug 7143 - Bug for tracking changes to the about page"
[koha.git] / acqui / basketgroup.pl
1 #!/usr/bin/perl
2
3 #script to group (closed) baskets into basket groups for easier order management
4 #written by john.soros@biblibre.com 01/10/2008
5
6 # Copyright 2008 - 2009 BibLibre SARL
7 # Parts Copyright Catalyst 2010
8 #
9 # This file is part of Koha.
10 #
11 # Koha is free software; you can redistribute it and/or modify it
12 # under the terms of the GNU General Public License as published by
13 # the Free Software Foundation; either version 3 of the License, or
14 # (at your option) any later version.
15 #
16 # Koha is distributed in the hope that it will be useful, but
17 # WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
20 #
21 # You should have received a copy of the GNU General Public License
22 # along with Koha; if not, see <http://www.gnu.org/licenses>.
23
24
25 =head1 NAME
26
27 basketgroup.pl
28
29 =head1 DESCRIPTION
30
31  This script lets the user group (closed) baskets into basket groups for easier order management. Note that the grouped baskets have to be from the same bookseller and
32  have to be closed to be printed or exported.
33
34 =head1 CGI PARAMETERS
35
36 =over 4
37
38 =item $booksellerid
39
40 The bookseller who we want to display the baskets (and basketgroups) of.
41
42 =back
43
44 =cut
45
46 use strict;
47 use warnings;
48 use Carp;
49
50 use C4::Auth;
51 use C4::Output;
52 use CGI qw ( -utf8 );
53
54 use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/;
55 use C4::Branch qw/GetBranches/;
56 use C4::Members qw/GetMember/;
57 use Koha::EDI qw/create_edi_order get_edifact_ean/;
58
59 use Koha::Acquisition::Bookseller;
60
61 our $input=new CGI;
62
63 our ($template, $loggedinuser, $cookie)
64     = get_template_and_user({template_name => "acqui/basketgroup.tt",
65                              query => $input,
66                              type => "intranet",
67                              authnotrequired => 0,
68                              flagsrequired => {acquisition => 'group_manage'},
69                              debug => 1,
70                 });
71
72 sub BasketTotal {
73     my $basketno = shift;
74     my $bookseller = shift;
75     my $total = 0;
76     my @orders = GetOrders($basketno);
77     for my $order (@orders){
78         $total = $total + ( $order->{ecost} * $order->{quantity} );
79         if ($bookseller->{invoiceincgst} && ! $bookseller->{listincgst} && ( $bookseller->{gstrate} // C4::Context->preference("gist") )) {
80             my $gst = $bookseller->{gstrate} // C4::Context->preference("gist");
81             $total = $total * ( $gst / 100 +1);
82         }
83     }
84     $total .= " " . ($bookseller->{invoiceprice} // 0);
85     return $total;
86 }
87
88 #displays all basketgroups and all closed baskets (in their respective groups)
89 sub displaybasketgroups {
90     my $basketgroups = shift;
91     my $bookseller = shift;
92     my $baskets = shift;
93     if (scalar @$basketgroups != 0) {
94         foreach my $basketgroup (@$basketgroups){
95             my $i = 0;
96             my $basketsqty = 0;
97             while($i < scalar(@$baskets)){
98                 my $basket = @$baskets[$i];
99                 if($basket->{'basketgroupid'} && $basket->{'basketgroupid'} == $basketgroup->{'id'}){
100                     $basket->{total} = BasketTotal($basket->{basketno}, $bookseller);
101                     push(@{$basketgroup->{'baskets'}}, $basket);
102                     splice(@$baskets, $i, 1);
103                     ++$basketsqty;
104                     --$i;
105                 }
106                 ++$i;
107             }
108             $basketgroup -> {'basketsqty'} = $basketsqty;
109         }
110         $template->param(basketgroups => $basketgroups);
111     }
112     for(my $i=0; $i < scalar @$baskets; ++$i) {
113         if( ! @$baskets[$i]->{'closedate'} ) {
114             splice(@$baskets, $i, 1);
115             --$i;
116         }else{
117             @$baskets[$i]->{total} = BasketTotal(@$baskets[$i]->{basketno}, $bookseller);
118         }
119     }
120     $template->param(baskets => $baskets);
121     $template->param( booksellername => $bookseller ->{'name'});
122 }
123
124 sub printbasketgrouppdf{
125     my ($basketgroupid) = @_;
126     
127     my $pdfformat = C4::Context->preference("OrderPdfFormat");
128     if ($pdfformat eq 'pdfformat::layout3pages' || $pdfformat eq 'pdfformat::layout2pages' || $pdfformat eq 'pdfformat::layout3pagesfr'
129         || $pdfformat eq 'pdfformat::layout2pagesde'){
130         eval {
131         eval "require $pdfformat";
132             import $pdfformat;
133         };
134         if ($@){
135         }
136     }
137     else {
138         print $input->header;  
139         print $input->start_html;  # FIXME Should do a nicer page
140         print "<h1>Invalid PDF Format set</h1>";
141         print "Please go to the systempreferences and set a valid pdfformat";
142         exit;
143     }
144     
145     my $basketgroup = GetBasketgroup($basketgroupid);
146     my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $basketgroup->{booksellerid} });
147     my $baskets = GetBasketsByBasketgroup($basketgroupid);
148     
149     my %orders;
150     for my $basket (@$baskets) {
151         my @ba_orders;
152         my @ords = &GetOrders($basket->{basketno});
153         for my $ord (@ords) {
154
155             next unless ( $ord->{biblionumber} or $ord->{quantity}> 0 );
156             eval {
157                 require C4::Biblio;
158                 import C4::Biblio;
159             };
160             if ($@){
161                 croak $@;
162             }
163             eval {
164                 require C4::Koha;
165                 import C4::Koha;
166             };
167             if ($@){
168                 croak $@;
169             }
170
171             $ord = C4::Acquisition::populate_order_with_prices({ order => $ord, booksellerid => $bookseller->{id}, ordering => 1 });
172             my $bib = GetBiblioData($ord->{biblionumber});
173             my $itemtypes = GetItemTypes();
174
175             #FIXME DELETE ME
176             # 0      1        2        3         4            5         6       7      8        9
177             #isbn, itemtype, author, title, publishercode, quantity, listprice ecost discount gstrate
178
179             # Editor Number
180             my $en;
181             my $edition;
182             my $marcrecord=eval{MARC::Record::new_from_xml( $ord->{marcxml},'UTF-8' )};
183             if ($marcrecord){
184                 if ( C4::Context->preference("marcflavour") eq 'UNIMARC' ) {
185                     $en = $marcrecord->subfield( '345', "b" );
186                     $edition = $marcrecord->subfield( '205', 'a' );
187                 } elsif ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
188                     $en = $marcrecord->subfield( '037', "a" );
189                     $edition = $marcrecord->subfield( '250', 'a' );
190                 }
191             }
192
193             $ord->{itemtype} = ( $ord->{itemtype} and $bib->{itemtype} ) ? $itemtypes->{$bib->{itemtype}}->{description} : undef;
194             $ord->{en} = $en ? $en : undef;
195             $ord->{edition} = $edition ? $edition : undef;
196
197             push(@ba_orders, $ord);
198         }
199         $orders{$basket->{basketno}} = \@ba_orders;
200     }
201     print $input->header(
202         -type       => 'application/pdf',
203         -attachment => ( $basketgroup->{name} || $basketgroupid ) . '.pdf'
204     );
205     my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $bookseller->{gstrate} // C4::Context->preference("gist")) || die "pdf generation failed";
206     print $pdf;
207
208 }
209
210 sub generate_edifact_orders {
211     my $basketgroupid = shift;
212     my $baskets       = GetBasketsByBasketgroup($basketgroupid);
213     my $ean           = get_edifact_ean();
214
215     for my $basket ( @{$baskets} ) {
216         create_edi_order( { ean => $ean, basketno => $basket->{basketno}, } );
217     }
218     return;
219 }
220
221 my $op = $input->param('op') || 'display';
222 # possible values of $op :
223 # - add : adds a new basketgroup, or edit an open basketgroup, or display a closed basketgroup
224 # - mod_basket : modify an individual basket of the basketgroup
225 # - closeandprint : close and print an closed basketgroup in pdf. called by clicking on "Close and print" button in closed basketgroups list
226 # - print : print a closed basketgroup. called by clicking on "Print" button in closed basketgroups list
227 # - ediprint : generate edi order messages for the baskets in the group
228 # - export : export in CSV a closed basketgroup. called by clicking on "Export" button in closed basketgroups list
229 # - delete : delete an open basketgroup. called by clicking on "Delete" button in open basketgroups list
230 # - reopen : reopen a closed basketgroup. called by clicking on "Reopen" button in closed basketgroup list
231 # - attachbasket : save a modified basketgroup, or creates a new basketgroup when a basket is closed. called from basket page
232 # - display : display the list of all basketgroups for a vendor
233 my $booksellerid = $input->param('booksellerid');
234 $template->param(booksellerid => $booksellerid);
235
236 if ( $op eq "add" ) {
237 #
238 # if no param('basketgroupid') is not defined, adds a new basketgroup
239 # else, edit (if it is open) or display (if it is close) the basketgroup basketgroupid
240 # the template will know if basketgroup must be displayed or edited, depending on the value of closed key
241 #
242     my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid });
243     my $basketgroupid = $input->param('basketgroupid');
244     my $billingplace;
245     my $deliveryplace;
246     my $freedeliveryplace;
247     if ( $basketgroupid ) {
248         # Get the selected baskets in the basketgroup to display them
249         my $selecteds = GetBasketsByBasketgroup($basketgroupid);
250         foreach my $basket(@{$selecteds}){
251             $basket->{total} = BasketTotal($basket->{basketno}, $bookseller);
252         }
253         $template->param(basketgroupid => $basketgroupid,
254                          selectedbaskets => $selecteds);
255
256         # Get general informations about the basket group to prefill the form
257         my $basketgroup = GetBasketgroup($basketgroupid);
258         $template->param(
259             name            => $basketgroup->{name},
260             deliverycomment => $basketgroup->{deliverycomment},
261             freedeliveryplace => $basketgroup->{freedeliveryplace},
262         );
263         $billingplace  = $basketgroup->{billingplace};
264         $deliveryplace = $basketgroup->{deliveryplace};
265         $freedeliveryplace = $basketgroup->{freedeliveryplace};
266         $template->param( closedbg => ($basketgroup ->{'closed'}) ? 1 : 0);
267     } else {
268         $template->param( closedbg => 0);
269     }
270     # determine default billing and delivery places depending on librarian homebranch and existing basketgroup data
271     my $borrower = GetMember( ( 'borrowernumber' => $loggedinuser ) );
272     $billingplace  = $billingplace  || $borrower->{'branchcode'};
273     $deliveryplace = $deliveryplace || $borrower->{'branchcode'};
274
275     my $branches = C4::Branch::GetBranchesLoop( $billingplace );
276     $template->param( billingplaceloop => $branches );
277     $branches = C4::Branch::GetBranchesLoop( $deliveryplace );
278     $template->param( deliveryplaceloop => $branches );
279     $template->param( booksellerid => $booksellerid );
280
281     # the template will display a unique basketgroup
282     $template->param(grouping => 1);
283     my $basketgroups = &GetBasketgroups($booksellerid);
284     my $baskets = &GetBasketsByBookseller($booksellerid);
285     displaybasketgroups($basketgroups, $bookseller, $baskets);
286 } elsif ($op eq 'mod_basket') {
287 #
288 # edit an individual basket contained in this basketgroup
289 #
290   my $basketno=$input->param('basketno');
291   my $basketgroupid=$input->param('basketgroupid');
292   ModBasket( { basketno => $basketno,
293                          basketgroupid => $basketgroupid } );
294   print $input->redirect("basket.pl?basketno=" . $basketno);
295 } elsif ( $op eq 'closeandprint') {
296 #
297 # close an open basketgroup and generates a pdf
298 #
299     my $basketgroupid = $input->param('basketgroupid');
300     CloseBasketgroup($basketgroupid);
301     printbasketgrouppdf($basketgroupid);
302     exit;
303 }elsif ($op eq 'print'){
304 #
305 # print a closed basketgroup
306 #
307     my $basketgroupid = $input->param('basketgroupid');
308     printbasketgrouppdf($basketgroupid);
309     exit;
310 }elsif ( $op eq "export" ) {
311 #
312 # export a closed basketgroup in csv
313 #
314     my $basketgroupid = $input->param('basketgroupid');
315     print $input->header(
316         -type       => 'text/csv',
317         -attachment => 'basketgroup' . $basketgroupid . '.csv',
318     );
319     print GetBasketGroupAsCSV( $basketgroupid, $input );
320     exit;
321 }elsif( $op eq "delete"){
322 #
323 # delete an closed basketgroup
324 #
325     my $basketgroupid = $input->param('basketgroupid');
326     DelBasketgroup($basketgroupid);
327     print $input->redirect('/cgi-bin/koha/acqui/basketgroup.pl?booksellerid=' . $booksellerid.'&amp;listclosed=1');
328 }elsif ( $op eq 'reopen'){
329 #
330 # reopen a closed basketgroup
331 #
332     my $basketgroupid   = $input->param('basketgroupid');
333     my $booksellerid    = $input->param('booksellerid');
334     ReOpenBasketgroup($basketgroupid);
335     my $redirectpath = ((defined $input->param('mode'))&& ($input->param('mode') eq 'singlebg')) ?'/cgi-bin/koha/acqui/basketgroup.pl?op=add&amp;basketgroupid='.$basketgroupid.'&amp;booksellerid='.$booksellerid : '/cgi-bin/koha/acqui/basketgroup.pl?booksellerid=' .$booksellerid.'&amp;listclosed=1';
336     print $input->redirect($redirectpath);
337 } elsif ( $op eq 'attachbasket') {
338 #
339 # save a modified basketgroup, or creates a new basketgroup when a basket is closed. called from basket page
340 #
341     # Getting parameters
342     my $basketgroup       = {};
343     my @baskets           = $input->multi_param('basket');
344     my $basketgroupid     = $input->param('basketgroupid');
345     my $basketgroupname   = $input->param('basketgroupname');
346     my $booksellerid      = $input->param('booksellerid');
347     my $billingplace      = $input->param('billingplace');
348     my $deliveryplace     = $input->param('deliveryplace');
349     my $freedeliveryplace = $input->param('freedeliveryplace');
350     my $deliverycomment   = $input->param('deliverycomment');
351     my $closedbg          = $input->param('closedbg') ? 1 : 0;
352     if ($basketgroupid) {
353     # If we have a basketgroupid we edit the basketgroup
354         $basketgroup = {
355               name              => $basketgroupname,
356               id                => $basketgroupid,
357               basketlist        => \@baskets,
358               billingplace      => $billingplace,
359               deliveryplace     => $deliveryplace,
360               freedeliveryplace => $freedeliveryplace,
361               deliverycomment   => $deliverycomment,
362               closed            => $closedbg,
363         };
364         ModBasketgroup($basketgroup);
365         if($closedbg){
366 # FIXME
367         }
368     }else{
369     # we create a new basketgroup (with a closed basket)
370         $basketgroup = {
371             name              => $basketgroupname,
372             booksellerid      => $booksellerid,
373             basketlist        => \@baskets,
374             billingplace      => $billingplace,
375             deliveryplace     => $deliveryplace,
376             freedeliveryplace => $freedeliveryplace,
377             deliverycomment   => $deliverycomment,
378             closed            => $closedbg,
379         };
380         $basketgroupid = NewBasketgroup($basketgroup);
381     }
382     my $redirectpath = ((defined $input->param('mode')) && ($input->param('mode') eq 'singlebg')) ?'/cgi-bin/koha/acqui/basketgroup.pl?op=add&amp;basketgroupid='.$basketgroupid.'&amp;booksellerid='.$booksellerid : '/cgi-bin/koha/acqui/basketgroup.pl?booksellerid=' . $booksellerid;
383     $redirectpath .=  "&amp;listclosed=1" if $closedbg ;
384     print $input->redirect($redirectpath );
385     
386 } elsif ( $op eq 'ediprint') {
387     my $basketgroupid = $input->param('basketgroupid');
388     generate_edifact_orders( $basketgroupid );
389     exit;
390 }else{
391 # no param : display the list of all basketgroups for a given vendor
392     my $basketgroups = &GetBasketgroups($booksellerid);
393     my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid });
394     my $baskets = &GetBasketsByBookseller($booksellerid);
395
396     displaybasketgroups($basketgroups, $bookseller, $baskets);
397 }
398 $template->param(listclosed => ((defined $input->param('listclosed')) && ($input->param('listclosed') eq '1'))? 1:0 );
399 #prolly won't use all these, maybe just use print, the rest can be done inside validate
400 output_html_with_http_headers $input, $cookie, $template->output;