#!/usr/bin/perl #script to show display basket of orders #written by chris@katipo.co.nz 24/2/2000 use C4::Acquisitions; use C4::Output; use C4::Search; use CGI; use strict; 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; if ($ordnum eq ''){ $ordnum=newordernum; $data=bibdata($biblio); }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'}> {'discount'}> {'listincgst'}> {'listprice'}> {'gstreg'}> printend ; my ($count2,@currencies)=getcurrencies; for (my $i=0;$i<$count2;$i++){ print "{'currency'}\" value=$currencies[0]->{'rate'}>"; } print <View Basket $ordnum - Order Details
Shopping Basket For: $booksellers[0]->{'name'}

CATALOGUE DETAILS
Title *
Author
Copyright Date
Format * {'itemtype'}>
ISBN {'isbn'}>
Branch
Item Barcode
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" recieve, when items have been purchased locally or gifted. In this case the quantity "ordered" will also be entered into the database as the quantity recieved.
NOTES TO LIBRARY AND PROGRAMMERS
Is it desirable to make the shaded fields ONLY available if the supplier is set to "Gift" or "Local Supplier".
Library can you confirm that you do not actually record the name of the local supplier?

 

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