#!/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 C4::Database; 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; 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 prepare($query); $sth->execute; my $data=$sth->fetchrow_hashref; print $data->{'barcode'}+1; $sth->finish; $dbh->disconnect; } 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;