#!/usr/bin/perl #script to recieve orders #written by chris@katipo.co.nz 24/2/2000 use C4::Acquisitions; use C4::Output; use CGI; use strict; my $input=new CGI; print $input->header(); my $id=$input->param('id'); my ($count,@booksellers)=bookseller($id); print startpage; print startmenu('acquisitions'); my $search=$input->param('recieve'); my $invoice=$input->param('invoice'); my $freight=$input->param('freight'); my $gst=$input->param('gst'); my ($count,@results)=ordersearch($search); print $count; if ($count == 1){ print <

{'biblionumber'}> {'ordernumber'}> {'biblioitemnumber'}> $results[0]->{'ordernumber'} - Recieve Order
Shopping Basket For: Whitcoulls New Zealand

CATALOGUE DETAILS
Title *
Author
Copyright
Format *
ISBN
Branch
Item Barcode *

ACCOUNTING DETAILS
Bookfund *
Quantity Ordered	{'quantity'}>
Quantity Recieved *	{'quantityreceived'}>
Replacement Cost
Budgeted Cost
Actual Cost *	{'unitprice'}>
Invoice Number	$invoice
Notes

EOP ; } else { print ""; print < EOP ; for (my $i=0;$i<$count;$i++){ print ""; } print "

ISBN	TITLE	AUTHOR
$results[$i]->{'isbn'}	{'ordernumber'}&invoice=$invoice&freight=$freight&gst=$gst>$results[$i]->{'title'}	$results[$i]->{'author'}

"; } print endmenu('acquisitions'); print endpage;