ed63c13957
DB changements: - Adds 2 fields: subscription.reneweddate and aqorders.subscriptionid. - Removes 2 unused fields: aqorders.serialid and aqorders.subscription. Main test plan: 1) Create a subscription 2) Create a bookseller and a basket 3) Add a new order 'from a subscription' 4) Search your subscription and check if results are correct 5) Click on the "order" link 6) Check the biblio information are filled in the form 7) Select a budget and fill some price information. 8) retry steps 3 and 4. Verify you cannot order the same subscription. Message:Outstanding order (only one order per subscription is allowed). 9) click on your subscription (already added) and check you have a new table "Acquisition details" with your price information in the "Ordered amount" line. 10) receive this order 11) On your subscription detail page, the "Spent amount" line must be filled with your price information. 12) Re order the same subscription. Now you are allowed to. Prices information have to be filled with the previous information. 13) Retry some orders and click on a maximum of links in order to find a bug :) Signed-off-by: Leila Arkab <koha.aixmarseille@gmail.com> Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Comments on last patch. Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
235 lines
7.4 KiB
Perl
Executable file
235 lines
7.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
#script to recieve orders
|
|
#written by chris@katipo.co.nz 24/2/2000
|
|
|
|
# Copyright 2000-2002 Katipo Communications
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
=head1 NAME
|
|
|
|
orderreceive.pl
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This script shows all order already receive and all pendings orders.
|
|
It permit to write a new order as 'received'.
|
|
|
|
=head1 CGI PARAMETERS
|
|
|
|
=over 4
|
|
|
|
=item booksellerid
|
|
|
|
to know on what supplier this script has to display receive order.
|
|
|
|
=item invoiceid
|
|
|
|
the id of this invoice.
|
|
|
|
=item freight
|
|
|
|
=item biblio
|
|
|
|
The biblionumber of this order.
|
|
|
|
=item datereceived
|
|
|
|
=item catview
|
|
|
|
=item gst
|
|
|
|
=back
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use CGI;
|
|
use C4::Context;
|
|
use C4::Koha; # GetKohaAuthorisedValues GetItemTypes
|
|
use C4::Acquisition;
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Dates qw/format_date/;
|
|
use C4::Bookseller qw/ GetBookSellerFromId /;
|
|
use C4::Budgets qw/ GetBudget /;
|
|
use C4::Members;
|
|
use C4::Branch; # GetBranches
|
|
use C4::Items;
|
|
use C4::Biblio;
|
|
use C4::Suggestions;
|
|
|
|
|
|
my $input = new CGI;
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
my $invoiceid = $input->param('invoiceid');
|
|
my $invoice = GetInvoice($invoiceid);
|
|
my $booksellerid = $invoice->{booksellerid};
|
|
my $freight = $invoice->{shipmentcost};
|
|
my $datereceived = $invoice->{shipmentdate};
|
|
my $ordernumber = $input->param('ordernumber');
|
|
|
|
$datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates->new();
|
|
|
|
my $bookseller = GetBookSellerFromId($booksellerid);
|
|
my $results;
|
|
$results = SearchOrder($ordernumber) if $ordernumber;
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "acqui/orderreceive.tmpl",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => {acquisition => 'order_receive'},
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
unless ( $results and @$results) {
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|
|
exit;
|
|
}
|
|
|
|
# prepare the form for receiving
|
|
my $order = $results->[0];
|
|
|
|
# Check if ACQ framework exists
|
|
my $acq_fw = GetMarcStructure(1, 'ACQ');
|
|
unless($acq_fw) {
|
|
$template->param('NoACQframework' => 1);
|
|
}
|
|
|
|
my $AcqCreateItem = C4::Context->preference('AcqCreateItem');
|
|
if ($AcqCreateItem eq 'receiving') {
|
|
$template->param(
|
|
AcqCreateItemReceiving => 1,
|
|
UniqueItemFields => C4::Context->preference('UniqueItemFields'),
|
|
);
|
|
} elsif ($AcqCreateItem eq 'ordering') {
|
|
my $fw = ($acq_fw) ? 'ACQ' : '';
|
|
my @itemnumbers = GetItemnumbersFromOrder($order->{ordernumber});
|
|
my @items;
|
|
foreach (@itemnumbers) {
|
|
my $item = GetItem($_);
|
|
if($item->{homebranch}) {
|
|
$item->{homebranchname} = GetBranchName($item->{homebranch});
|
|
}
|
|
if($item->{holdingbranch}) {
|
|
$item->{holdingbranchname} = GetBranchName($item->{holdingbranch});
|
|
}
|
|
if(my $code = GetAuthValCode("items.notforloan", $fw)) {
|
|
$item->{notforloan} = GetKohaAuthorisedValueLib($code, $item->{notforloan});
|
|
}
|
|
if(my $code = GetAuthValCode("items.restricted", $fw)) {
|
|
$item->{restricted} = GetKohaAuthorisedValueLib($code, $item->{restricted});
|
|
}
|
|
if(my $code = GetAuthValCode("items.location", $fw)) {
|
|
$item->{location} = GetKohaAuthorisedValueLib($code, $item->{location});
|
|
}
|
|
if(my $code = GetAuthValCode("items.ccode", $fw)) {
|
|
$item->{collection} = GetKohaAuthorisedValueLib($code, $item->{ccode});
|
|
}
|
|
if(my $code = GetAuthValCode("items.materials", $fw)) {
|
|
$item->{materials} = GetKohaAuthorisedValueLib($code, $item->{materials});
|
|
}
|
|
my $itemtype = getitemtypeinfo($item->{itype});
|
|
$item->{itemtype} = $itemtype->{description};
|
|
push @items, $item;
|
|
}
|
|
$template->param(items => \@items);
|
|
}
|
|
|
|
$order->{quantityreceived} = '' if $order->{quantityreceived} == 0;
|
|
$order->{unitprice} = '' if $order->{unitprice} == 0;
|
|
|
|
my $rrp;
|
|
my $ecost;
|
|
my $unitprice;
|
|
if ( $bookseller->{listincgst} ) {
|
|
if ( $bookseller->{invoiceincgst} ) {
|
|
$rrp = $order->{rrp};
|
|
$ecost = $order->{ecost};
|
|
$unitprice = $order->{unitprice};
|
|
} else {
|
|
$rrp = $order->{rrp} / ( 1 + $order->{gstrate} );
|
|
$ecost = $order->{ecost} / ( 1 + $order->{gstrate} );
|
|
$unitprice = $order->{unitprice} / ( 1 + $order->{gstrate} );
|
|
}
|
|
} else {
|
|
if ( $bookseller->{invoiceincgst} ) {
|
|
$rrp = $order->{rrp} * ( 1 + $order->{gstrate} );
|
|
$ecost = $order->{ecost} * ( 1 + $order->{gstrate} );
|
|
$unitprice = $order->{unitprice} * ( 1 + $order->{gstrate} );
|
|
} else {
|
|
$rrp = $order->{rrp};
|
|
$ecost = $order->{ecost};
|
|
$unitprice = $order->{unitprice};
|
|
}
|
|
}
|
|
|
|
my $suggestion = GetSuggestionInfoFromBiblionumber($order->{biblionumber});
|
|
|
|
my $authorisedby = $order->{authorisedby};
|
|
my $member = GetMember( borrowernumber => $authorisedby );
|
|
|
|
my $budget = GetBudget( $order->{budget_id} );
|
|
|
|
$template->param(
|
|
AcqCreateItem => $AcqCreateItem,
|
|
count => 1,
|
|
biblionumber => $order->{'biblionumber'},
|
|
ordernumber => $order->{'ordernumber'},
|
|
biblioitemnumber => $order->{'biblioitemnumber'},
|
|
subscriptionid => $order->{subscriptionid},
|
|
booksellerid => $order->{'booksellerid'},
|
|
freight => $freight,
|
|
name => $bookseller->{'name'},
|
|
date => format_date($order->{entrydate}),
|
|
title => $order->{'title'},
|
|
author => $order->{'author'},
|
|
copyrightdate => $order->{'copyrightdate'},
|
|
isbn => $order->{'isbn'},
|
|
seriestitle => $order->{'seriestitle'},
|
|
bookfund => $budget->{budget_name},
|
|
quantity => $order->{'quantity'},
|
|
quantityreceivedplus1 => $order->{'quantityreceived'} + 1,
|
|
quantityreceived => $order->{'quantityreceived'},
|
|
rrp => sprintf( "%.2f", $rrp ),
|
|
ecost => sprintf( "%.2f", $ecost ),
|
|
unitprice => sprintf( "%.2f", $unitprice),
|
|
memberfirstname => $member->{firstname} || "",
|
|
membersurname => $member->{surname} || "",
|
|
invoiceid => $invoice->{invoiceid},
|
|
invoice => $invoice->{invoicenumber},
|
|
datereceived => $datereceived->output(),
|
|
datereceived_iso => $datereceived->output('iso'),
|
|
notes => $order->{notes},
|
|
suggestionid => $suggestion->{suggestionid},
|
|
surnamesuggestedby => $suggestion->{surnamesuggestedby},
|
|
firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
|
|
);
|
|
|
|
my $op = $input->param('op');
|
|
if ($op and $op eq 'edit'){
|
|
$template->param(edit => 1);
|
|
}
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|