#!/usr/bin/perl
#script to display info about acquisitions
#written by chris@katipo.co.nz 31/01/2000
use C4::Acquisitions;
use C4::Output;
use CGI;
my $input=new CGI;
print $input->header();
my $id=$input->param('id');
my $bookseller=bookseller($id);
print startpage;
print mktablehdr;
print mktablerow(7,'white',"Id:$bookseller->{'id'}",
"Name:$bookseller->{'name'}","Address
$bookseller->{'address1'}
$bookseller->{'address2'}
$bookseller->{'address3'}
$bookseller->{'address4'}
","Phone:$bookseller->{'phone'}",
"Account:$bookseller->{'accountnumber'}","Other supplier
$bookseller->{'othersupplier'}",
"currency:$bookseller->{'currency'}"
);
print mktablerow(7,'white',"Delivery Days:$bookseller->{'delvierydays'}",
"Follow up:$bookseller->{'followupdays'}"," Follow ups cancel:$bookseller->{'followupscancel'}",
"Speciality:$booksller->{'speciality'}","Fax:$bookseller->{'fax'}",
"Notes:$bookseller->{'notes'}","Email$bookseller->{'email'}");
print mktablerow(2,'white',"url:$bookseller->{'url'}","Rep:$bookseller->{'rep'}");
print mktableft;
print endpage;