From 5a6d8e7f7c098d5f8a9f72167be586a1e1c3af6b Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 28 Apr 2009 22:23:13 +0200 Subject: [PATCH] basket header management --- acqui/basketheader.pl | 124 +++++++++++++ .../prog/en/modules/acqui/basketheader.tmpl | 168 ++++++++++++++++++ 2 files changed, 292 insertions(+) create mode 100755 acqui/basketheader.pl create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/acqui/basketheader.tmpl diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl new file mode 100755 index 0000000000..56f2483ad3 --- /dev/null +++ b/acqui/basketheader.pl @@ -0,0 +1,124 @@ +#!/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; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/basketheader.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/basketheader.tmpl new file mode 100644 index 0000000000..87528c9967 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/basketheader.tmpl @@ -0,0 +1,168 @@ + +Koha › +<!-- TMPL_IF NAME="add_form" --> + <!-- TMPL_IF NAME="basketno" -->Edit basket '<!-- TMPL_VAR NAME="basketname" -->' + <!-- TMPL_ELSE -->add a basket to <!-- TMPL_VAR name="booksellername" --> + <!-- /TMPL_IF --> +<!-- /TMPL_IF --> + + + + + + + + + + + + + +
+
+ +
+ +
+ + + +

Edit basket

+

Add a basket to

+ +
" method="post"> + " /> +
+
    + +
  1. + " /> + +
    2. + +
  2. +   + " /> +
    3. +
  3. +   + +
    4. +
  4. +   + +
    5. + +
  5. + +
    6. + +
+
+
+ + +
+
+ + +

Data recorded

+ "> + +
+
+
+ +
+
+ + -- 2.39.5