937e0d73df
- basket.pl: updating display, formatting dates, - neworderempty: updating display, removing useless code, using ACQ framework if it exist. The ACQ framework will be used for creating items record during acquisitions. If it does not exist, default is used instead (which has many more informations, lot of them being irrelevant during acquisition, like the barcode) - new order from imported batch: rewrite of the workflow. Now uses neworderempty and changing status of import_record to 'imported' - s/copyrightdate/publicationyear/ as it's what libraries uses when ordering - fixing some warnings -
124 lines
4 KiB
Perl
Executable file
124 lines
4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#script to add basket and edit header options (name, notes and contractnumber)
|
|
#written by john.soros@biblibre.com 15/09/2008
|
|
|
|
# Copyright 2008 - 2009 BibLibre SARL
|
|
#
|
|
# 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., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
=head1 NAME
|
|
|
|
basketheader.pl
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This script is used to edit the basket's "header", or add a new basket, the header contains the supplier ID,
|
|
notes to the supplier, local notes, and the contractnumber, which identifies the basket to a specific contract.
|
|
|
|
=head1 CGI PARAMETERS
|
|
|
|
=over 4
|
|
|
|
=item supplierid
|
|
|
|
C<$supplierid> is the id of the supplier we add the basket to.
|
|
|
|
=item basketid
|
|
|
|
If it exists, C<$basketno> is the basket we edit
|
|
|
|
=back
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
use C4::Context;
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Acquisition qw/GetBasket NewBasket GetContracts ModBasketHeader/;
|
|
use C4::Bookseller qw/GetBookSellerFromId/;
|
|
|
|
|
|
my $input = new CGI;
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "acqui/basketheader.tmpl",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { acquisition => 'order_manage' },
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
#parameters:
|
|
my $booksellerid;
|
|
$booksellerid = $input->param('booksellerid');
|
|
my $basketno = $input->param('basketno');
|
|
my $basket;
|
|
my $op = $input ->param('op');
|
|
my $is_an_edit= $input ->param('is_an_edit');
|
|
|
|
if ( $op eq 'add_form' ) {
|
|
my @contractloop;
|
|
if ( $basketno ) {
|
|
#this is an edit
|
|
$basket = GetBasket($basketno);
|
|
if (! $booksellerid) {
|
|
$booksellerid=$basket->{'booksellerid'};
|
|
}
|
|
@contractloop = &GetContracts($booksellerid, 1);
|
|
for (@contractloop) {
|
|
if ( $basket->{'contractnumber'} eq $_->{'contractnumber'} ) {
|
|
$_->{'selected'} = 1;
|
|
}
|
|
}
|
|
$template->param( is_an_edit => 1);
|
|
} else {
|
|
#new basket
|
|
my $basket;
|
|
push(@contractloop, &GetContracts($booksellerid, 1));
|
|
}
|
|
my $bookseller = GetBookSellerFromId($booksellerid);
|
|
my $count = scalar @contractloop;
|
|
if ( $count > 0) {
|
|
$template->param(contractloop => \@contractloop,
|
|
basketcontractnumber => $basket->{'contractnumber'});
|
|
}
|
|
$template->param( add_form => 1,
|
|
basketname => $basket->{'basketname'},
|
|
basketnote => $basket->{'note'},
|
|
basketbooksellernote => $basket->{'booksellernote'},
|
|
booksellername => $bookseller->{'name'},
|
|
booksellerid => $booksellerid,
|
|
basketno => $basketno
|
|
);
|
|
#End Edit
|
|
} elsif ( $op eq 'add_validate' ) {
|
|
#we are confirming the changes, save the basket
|
|
$template->param(add_validate => 1);
|
|
if ( $is_an_edit ) {
|
|
ModBasketHeader($input->param('basketno'),$input->param('basketname'),$input->param('basketnote'),$input->param('basketbooksellernote'),$input->param('basketcontractnumber'));
|
|
$template->param( basketno => $basketno );
|
|
} else { #New basket
|
|
my $basketno = NewBasket($booksellerid, $loggedinuser, $input->param('basketname'), $input->param('basketnote'), $input->param('basketbooksellernote'), $input->param('basketcontractnumber'));
|
|
$template->param( basketno => $basketno );
|
|
}
|
|
}
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|