From 862822283d6d35c3453daf6fee679e6688dde49e Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 28 Apr 2009 22:51:30 +0200 Subject: [PATCH] uncertainprices uncertainprice is set on z3950 or staged file import --- acqui/uncertainprice.pl | 129 ++++++++++++++++++ .../prog/en/modules/acqui/uncertainprice.tmpl | 118 ++++++++++++++++ 2 files changed, 247 insertions(+) create mode 100755 acqui/uncertainprice.pl create mode 100755 koha-tmpl/intranet-tmpl/prog/en/modules/acqui/uncertainprice.tmpl diff --git a/acqui/uncertainprice.pl b/acqui/uncertainprice.pl new file mode 100755 index 0000000000..e897498a91 --- /dev/null +++ b/acqui/uncertainprice.pl @@ -0,0 +1,129 @@ +#!/usr/bin/perl + +#script to show a list of orders with uncertain prices for a bookseller +#the script also allows to edit the prices and uncheck the uncertainprice property of them +#written by john.soros@biblibre.com 01/10/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 + +uncertainprice.pl + +=head1 DESCRIPTION + + This script displays all the orders with uncertain prices for a given bookseller, it also lets the user modify the unitprice and uncertainprice properties of the order + +=head1 CGI PARAMETERS + +=over 4 + +=item $booksellerid + +The bookseller who we want to display the orders of. + +=back + +=cut + + +use strict; +use warnings; + +use C4::Input; +use C4::Auth; +use C4::Output; +use CGI; + +use C4::Bookseller qw/GetBookSellerFromId/; +use C4::Acquisition qw/GetPendingOrders GetOrder ModOrder/; +use C4::Biblio qw/GetBiblioData/; + +my $input=new CGI; + +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "acqui/uncertainprice.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { acquisition => 'order_manage' }, + debug => 1, + }); + +my $booksellerid = $input->param('booksellerid'); +my $op = $input->param('op'); +my $owner = $input->param('owner') || 0 ; # flag to see only "my" orders, or everyone orders +my $bookseller = &GetBookSellerFromId($booksellerid); + +#show all orders that have uncertain price for the bookseller +my $pendingorders = &GetPendingOrders($booksellerid,0,$owner); +my @orders; + +foreach my $order (@{$pendingorders}) { + if ( $order->{'uncertainprice'} ) { + my $bibdata = &GetBiblioData($order->{'biblionumber'}); + $order->{'bibisbn'} = $bibdata->{'isbn'}; + $order->{'bibpublishercode'} = $bibdata->{'publishercode'}; + $order->{'bibpublicationyear'} = $bibdata->{'publicationyear'}; + $order->{'bibtitle'} = $bibdata->{'title'}; + $order->{'bibauthor'} = $bibdata->{'author'}; + my $order_as_from_db=GetOrder($order->{ordernumber}); + $order->{'quantity'} = $order_as_from_db->{'quantity'}; + $order->{'listprice'} = $order_as_from_db->{'listprice'}; + push(@orders, $order); + } +} +if ( $op eq 'validate' ) { + $template->param( validate => 1); + my $count = scalar(@orders); + for (my $i=0; $i < $count; $i++) { + my $order = pop(@orders); + my $ordernumber = $order->{ordernumber}; + my $order_as_from_db=GetOrder($order->{ordernumber}); + $order->{'listprice'} = $input->param('price'.$ordernumber); + $order->{'ecost'}= $input->param('price'.$ordernumber) - (($input->param('price'.$ordernumber) /100) * $bookseller->{'discount'}); + $order->{'rrp'} = $input->param('price'.$ordernumber); + $order->{'quantity'}=$input->param('qty'.$ordernumber); + $order->{'uncertainprice'}=$input->param('uncertainprice'.$ordernumber); + ModOrder($order); + } +} + +$template->param( uncertainpriceorders => \@orders, + booksellername => "".$bookseller->{'name'}, + booksellerid => $bookseller->{'id'}, + booksellerpostal =>$bookseller->{'postal'}, + bookselleraddress1 => $bookseller->{'address1'}, + bookselleraddress2 => $bookseller->{'address2'}, + bookselleraddress3 => $bookseller->{'address3'}, + bookselleraddress4 => $bookseller->{'address4'}, + booksellerphone =>$bookseller->{'phone'}, + booksellerfax => $bookseller->{'fax'}, + booksellerurl => $bookseller->{'url'}, + booksellercontact => $bookseller->{'contact'}, + booksellercontpos => $bookseller->{'contpos'}, + booksellercontphone => $bookseller->{'contphone'}, + booksellercontaltphone => $bookseller->{'contaltphone'}, + booksellercontfax => $bookseller->{'contfax'}, + booksellercontemail => $bookseller->{'contemail'}, + booksellercontnotes => $bookseller->{'contnotes'}, + booksellernotes => $bookseller->{'notes'}, + owner => $owner, + scriptname => "/cgi-bin/koha/acqui/uncertainprice.pl"); +output_html_with_http_headers $input, $cookie, $template->output; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/uncertainprice.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/uncertainprice.tmpl new file mode 100755 index 0000000000..582aba6005 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/uncertainprice.tmpl @@ -0,0 +1,118 @@ + +Koha › Orders with uncertain prices for Vendor <!-- TMPL_VAR name="booksellername" --> + + + + + + + + + + +
+
+
+ + ?booksellerid="> + +

Orders with uncertain prices for vendor "> &op=enter">(edit)

+ + ">View everyone orders + + &owner=1">View only my orders + +

Contact information

+

Postal address: +

+ +

Address 1: +

+ + +

Address 2: +

+ + +

Address 3: +

+ + +

Address 4: +

+ +

Telephone: +

+

Fax: +

+

Web: + ">

+

+
Contact:
+
Name:
+
Position:
+
Telephone:
+ +
Alternate phone:
+ +
e-mail:
+ +
notes:
+ +

+ +

Notes: +

+ +

Orders with uncertain prices

+
" method="post" name="uncertainprices"> + " /> + + + + + + + + + + + + + + + + + + +
order informationbasket nameuncertain pricepricequantity
+ /
,

+ &booksellerid=&basketno="> + edit + + 		+ + + " value="1" checked> + + " value="" + onChange="uncheckbox(this.form, );" /> + + + " value="" + onChange="uncheckbox(this.form, );" /> +
+ +
+ +
+
+
+ + \ No newline at end of file -- 2.39.5