#!/usr/bin/perl #script to show display basket of 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., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA use strict; use CGI; use C4::Context; use C4::Catalogue; use C4::Biblio; use C4::Output; use C4::Search; my $input=new CGI; print $input->header(); my $id=$input->param('id'); my $title=$input->param('title'); my $author=$input->param('author'); my $copyright=$input->param('copyright'); my ($count,@booksellers)=bookseller($id); my $ordnum=$input->param('ordnum'); my $biblio=$input->param('biblio'); my $data; my $new; if ($ordnum eq ''){ $new='yes'; $ordnum=newordernum; if ($biblio) { $data=bibdata($biblio); } if ($data->{'title'} eq ''){ $data->{'title'}=$title; $data->{'author'}=$author; $data->{'copyrightdate'}=$copyright; } }else { $data=getsingleorder($ordnum); $biblio=$data->{'biblionumber'}; } print startpage; print startmenu('acquisitions'); my $basket=$input->param('basket'); print <
printend ; if ($biblio eq ''){ print ""; } print < {'biblioitemnumber'}> {'itemtype'}> {'discount'}> {'listincgst'}> {'listprice'}> {'gstreg'}> printend ; my ($count2,$currencies)=getcurrencies; for (my $i=0;$i<$count2;$i++){ print "[$i]->{'currency'}\" value=$currencies->[0]->{'rate'}>\n"; } if ($new ne 'yes'){ print "\n"; } print <View Basket $ordnum - Order Details
Shopping Basket For: $booksellers[0]->{'name'}

CATALOGUE DETAILS
Title *
Author
Copyright Date
Format
ISBN {'isbn'}>
Series
Branch
Item Barcode preference("autoBarcode") || 0; # See whether barcodes should be automatically allocated. # Defaults to 0, meaning "no". if ($auto_barcode eq '1') { my $dbh = C4::Context->dbh; my $query="Select barcode from items order by barcode desc"; my $sth=$dbh->prepare($query); $sth->execute; my $data=$sth->fetchrow_hashref; print $data->{'barcode'}+1; $sth->finish; } print <
ACCOUNTING DETAILS
Quantity
Bookfund
Suppliers List Price
Replacement Cost
(NZ\$ inc GST)
Budgeted Cost
(NZ\$ ex GST, inc discount)
Budgeted GST
BUDGETED TOTAL
Actual Cost
Invoice Number *
Notes
HELP
  • If ordering more than one copy of an item you will be prompted to choose additional bookfunds, and put in additional barcodes at the next screen

  • Bold fields must be filled in to create a new bibilo and item.

  • Shaded fields can be used to do a "quick" receive, when items have been purchased locally or gifted. In this case the quantity "ordered" will also be entered into the database as the quantity received.

 

printend ; print endmenu('acquisitions'); print endpage;