3 # Script to move an order from a bookseller to another
5 # Copyright 2011 BibLibre SARL
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
14 # Koha is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License
20 # along with Koha; if not, see <http://www.gnu.org/licenses>
29 use C4
::Bookseller qw
/GetBookSellerFromId GetBookSeller/;
31 use C4
::Dates qw
/format_date_in_iso/;
32 use Date
::Calc qw
/Today/;
35 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
36 { template_name
=> "acqui/transferorder.tt",
39 flagsrequired
=> { acquisition
=> 'order_manage' },
43 my $dbh = C4
::Context
->dbh;
45 my $bookselleridfrom = $input->param('bookselleridfrom');
46 my $ordernumber = $input->param('ordernumber');
47 my $bookselleridto = $input->param('bookselleridto');
48 my $basketno = $input->param('basketno');
49 my $op = $input->param('op');
50 my $query = $input->param('query');
52 my $order = GetOrder
($ordernumber);
53 my $basketfromname = '';
55 my $basket = GetBasket
($order->{basketno
});
56 $basketfromname = $basket->{basketname
};
57 $bookselleridfrom = $basket->{booksellerid
} if $basket;
60 my $booksellerfrom = GetBookSellerFromId
($bookselleridfrom);
61 my $booksellerfromname;
63 $booksellerfromname = $booksellerfrom->{name
};
65 my $booksellerto = GetBookSellerFromId
($bookselleridto);
68 $booksellertoname = $booksellerto->{name
};
72 if( $basketno && $ordernumber) {
73 # Transfer order and exit
74 my $order = GetOrder
( $ordernumber );
75 my $basket = GetBasket
($order->{basketno
});
76 my $booksellerfrom = GetBookSellerFromId
($basket->{booksellerid
});
77 my $bookselleridfrom = $booksellerfrom->{id
};
79 TransferOrder
($ordernumber, $basketno);
81 $template->param(transferred
=> 1)
82 } elsif ( $bookselleridto && $ordernumber) {
83 # Show open baskets for this bookseller
84 my $order = GetOrder
( $ordernumber );
85 my $basketfrom = GetBasket
( $order->{basketno
} );
86 my $booksellerfrom = GetBookSellerFromId
( $basketfrom->{booksellerid
} );
87 $booksellerfromname = $booksellerfrom->{name
};
88 my $baskets = GetBasketsByBookseller
( $bookselleridto );
89 my $basketscount = scalar @
$baskets;
91 for( my $i = 0 ; $i < $basketscount ; $i++ ){
93 %line = %{ $baskets->[$i] };
94 my $createdby = GetMember
(borrowernumber
=> $line{authorisedby
});
95 $line{createdby
} = "$createdby->{surname}, $createdby->{firstname}";
96 push @basketsloop, \
%line unless $line{closedate
};
100 basketsloop
=> \
@basketsloop,
101 basketfromname
=> $basketfrom->{basketname
},
103 } elsif ( $bookselleridfrom && !defined $ordernumber) {
104 # Show pending orders
105 my $pendingorders = SearchOrders
({
106 booksellerid
=> $bookselleridfrom,
109 my $orderscount = scalar @
$pendingorders;
111 for( my $i = 0 ; $i < $orderscount ; $i++ ){
113 %line = %{ $pendingorders->[$i] };
114 push @ordersloop, \
%line;
117 ordersloop
=> \
@ordersloop,
120 # Search for booksellers to transfer from/to
122 if( $op eq "do_search" ) {
123 my @booksellers = GetBookSeller
($query);
127 booksellersloop
=> \
@booksellers,
133 bookselleridfrom
=> $bookselleridfrom,
134 booksellerfromname
=> $booksellerfromname,
135 bookselleridto
=> $bookselleridto,
136 booksellertoname
=> $booksellertoname,
137 ordernumber
=> $ordernumber,
138 basketno
=> $basketno,
139 basketfromname
=> $basketfromname,
142 output_html_with_http_headers
$input, $cookie, $template->output;