eefc774e27
- Display a unique item block at once On orderreceive.pl when AcqCreateItem is 'receiving', and on neworderempty.pl when AcqCreateItem is 'ordering' it displays an item block with item infos to fill, and a '+' button. When user clicks on '+', the block is hidden and a list shows up with the items that will be received. User can then edit or delete items in the list and click 'Save' to receive items. - PrepareItemrecordDisplay is now used for cloning block Previous cloning function was duplicating ids, the side effect is that plugins didn't work when several items were displayed. PrepareItemrecordDisplay regenerate the form with new ids - New system preference UniqueItemFields Contains a space-separated list of sql column names (of items table). This syspref is used in two ways: - Values corresponding to fields in syspref are not duplicated when adding a new item (button 'Add') - When saving the form, a check is made on fields in syspref for detecting duplicate (in DB and in the form) Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> All tests done are noted on the bug report. 2012-03-23: Fixed conflict in updatedatabase. Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
202 lines
6.2 KiB
Perl
Executable file
202 lines
6.2 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 receive
|
|
|
|
=item invoice
|
|
|
|
the number of this invoice.
|
|
|
|
=item freight
|
|
|
|
=item biblio
|
|
|
|
The biblionumber of this order.
|
|
|
|
=item datereceived
|
|
|
|
=item catview
|
|
|
|
=item gst
|
|
|
|
=back
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
#use warnings; FIXME - Bug 2505
|
|
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 $booksellerid = $input->param('booksellerid');
|
|
my $ordernumber = $input->param('ordernumber');
|
|
my $search = $input->param('receive');
|
|
my $invoice = $input->param('invoice');
|
|
my $freight = $input->param('freight');
|
|
my $datereceived = $input->param('datereceived');
|
|
|
|
|
|
$datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates->new();
|
|
|
|
my $bookseller = GetBookSellerFromId($booksellerid);
|
|
my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst'));
|
|
my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
|
|
my $results = SearchOrder($ordernumber,$search);
|
|
|
|
|
|
my $count = scalar @$results;
|
|
my $order = GetOrder($ordernumber);
|
|
|
|
|
|
my $date = @$results[0]->{'entrydate'};
|
|
|
|
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,
|
|
}
|
|
);
|
|
|
|
# prepare the form for receiving
|
|
if ( $count == 1 ) {
|
|
if (C4::Context->preference('AcqCreateItem') eq 'receiving') {
|
|
# Check if ACQ framework exists
|
|
my $marc = GetMarcStructure(1, 'ACQ');
|
|
unless($marc) {
|
|
$template->param('NoACQframework' => 1);
|
|
}
|
|
$template->param(
|
|
AcqCreateItemReceiving => 1,
|
|
UniqueItemFields => C4::Context->preference('UniqueItemFields'),
|
|
);
|
|
}
|
|
|
|
if ( @$results[0]->{'quantityreceived'} == 0 ) {
|
|
@$results[0]->{'quantityreceived'} = '';
|
|
}
|
|
if ( @$results[0]->{'unitprice'} == 0 ) {
|
|
@$results[0]->{'unitprice'} = '';
|
|
}
|
|
|
|
my $suggestion = GetSuggestionInfoFromBiblionumber(@$results[0]->{'biblionumber'});
|
|
|
|
my $authorisedby = @$results[0]->{'authorisedby'};
|
|
my $member = GetMember( borrowernumber => $authorisedby );
|
|
|
|
my $budget = GetBudget( @$results[0]->{'budget_id'} );
|
|
|
|
$template->param(
|
|
count => 1,
|
|
biblionumber => @$results[0]->{'biblionumber'},
|
|
ordernumber => @$results[0]->{'ordernumber'},
|
|
biblioitemnumber => @$results[0]->{'biblioitemnumber'},
|
|
booksellerid => @$results[0]->{'booksellerid'},
|
|
freight => $freight,
|
|
gst => $gst,
|
|
name => $bookseller->{'name'},
|
|
date => format_date($date),
|
|
title => @$results[0]->{'title'},
|
|
author => @$results[0]->{'author'},
|
|
copyrightdate => @$results[0]->{'copyrightdate'},
|
|
isbn => @$results[0]->{'isbn'},
|
|
seriestitle => @$results[0]->{'seriestitle'},
|
|
bookfund => $budget->{budget_name},
|
|
quantity => @$results[0]->{'quantity'},
|
|
quantityreceivedplus1 => @$results[0]->{'quantityreceived'} + 1,
|
|
quantityreceived => @$results[0]->{'quantityreceived'},
|
|
rrp => @$results[0]->{'rrp'},
|
|
ecost => @$results[0]->{'ecost'},
|
|
unitprice => @$results[0]->{'unitprice'},
|
|
memberfirstname => $member->{firstname} || "",
|
|
membersurname => $member->{surname} || "",
|
|
invoice => $invoice,
|
|
datereceived => $datereceived->output(),
|
|
datereceived_iso => $datereceived->output('iso'),
|
|
notes => $order->{notes},
|
|
suggestionid => $suggestion->{suggestionid},
|
|
surnamesuggestedby => $suggestion->{surnamesuggestedby},
|
|
firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
|
|
);
|
|
}
|
|
else {
|
|
my @loop;
|
|
for ( my $i = 0 ; $i < $count ; $i++ ) {
|
|
my %line = %{ @$results[$i] };
|
|
|
|
$line{invoice} = $invoice;
|
|
$line{datereceived} = $datereceived->output();
|
|
$line{freight} = $freight;
|
|
$line{gst} = $gst;
|
|
$line{title} = @$results[$i]->{'title'};
|
|
$line{author} = @$results[$i]->{'author'};
|
|
$line{booksellerid} = $booksellerid;
|
|
push @loop, \%line;
|
|
}
|
|
|
|
$template->param(
|
|
loop => \@loop,
|
|
booksellerid => $booksellerid,
|
|
);
|
|
}
|
|
my $op = $input->param('op');
|
|
if ($op eq 'edit'){
|
|
$template->param(edit => 1);
|
|
}
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|