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

{'biblionumber'}> {'ordernumber'}> {'biblioitemnumber'}> {'booksellerid'}> EOP ; if ($catview ne 'yes'){ print ""; } else { print "{'ordernumber'}&id=$results[0]->{'booksellerid'}>

"; } print <$results[0]->{'ordernumber'} - Receive Order
Shopping Basket For: $booksellers[0]->{'name'}
Order placed: $date

CATALOGUE DETAILS
Title *
Author
Copyright Date
Format
ISBN
Series
Branch
Item Barcode *	prepare($query); $sth->execute; my $data=$sth->fetchrow_hashref; print $data->{'barcode'}+1; $sth->finish; $dbh->disconnect; } print <
Volume Info (for serials) *

ACCOUNTING DETAILS
Bookfund *
Quantity Ordered	{'quantity'}>
Quantity Received *	{'quantityreceived'}>
Replacement Cost
Budgeted Cost
Actual Cost *
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'}&biblio=$results[$i]->{'biblionumber'}&invoice=$invoice&freight=$freight&gst=$gst>$results[$i]->{'title'}	$results[$i]->{'author'}

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