528f1b2b80
Not related to MARC : * removed HLT- empty link when no basket for a supplier (should be useful to copy this into rel-1-2 i think) * fixed some "use of uninitialized value" related to MARC * changed use Acquisition to use Catalogue, new package for MARC management For instance, nothing is done to MARC DB, but structure is modified (see Biblio.pm for details), and everything seems to work : it's still possible to use acqui, and it fills old-DB pretty good. WARNING : if you work on main trunk, please note Acquisition.pm is NO MORE USED in /acqui/ system. Every sub in Acquisition.pm has been moved to Biblio.pm or Catalogue.pm.
94 lines
2.9 KiB
Perl
Executable file
94 lines
2.9 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#script to add an order into the system
|
|
#written 29/2/00 by chris@katipo.co.nz
|
|
|
|
use strict;
|
|
use CGI;
|
|
use C4::Output;
|
|
use C4::Catalogue;
|
|
use C4::Biblio;
|
|
#use Date::Manip;
|
|
|
|
my $input = new CGI;
|
|
#print $input->header;
|
|
#print startpage();
|
|
#print startmenu('acquisitions');
|
|
#print $input->dump;
|
|
my $existing=$input->param('existing');
|
|
my $title=$input->param('title');
|
|
$title=~ s/\'/\\\'/g;
|
|
my $author=$input->param('author');
|
|
$author=~ s/\'/\\\'/g;
|
|
my $copyright=$input->param('copyright');
|
|
my $isbn=$input->param('ISBN');
|
|
my $itemtype=$input->param('format');
|
|
my $ordnum=$input->param('ordnum');
|
|
my $basketno=$input->param('basket');
|
|
my $quantity=$input->param('quantity');
|
|
my $listprice=$input->param('list_price');
|
|
my $series=$input->param('Series');
|
|
if ($listprice eq ''){
|
|
$listprice=0;
|
|
}
|
|
my $supplier=$input->param('supplier');
|
|
my $notes=$input->param('notes');
|
|
my $bookfund=$input->param('bookfund');
|
|
my $who=$input->remote_user;
|
|
my $bibnum;
|
|
my $bibitemnum;
|
|
my $rrp=$input->param('rrp');
|
|
my $ecost=$input->param('ecost');
|
|
my $gst=$input->param('GST');
|
|
my $orderexists=$input->param('orderexists');
|
|
|
|
#check to see if biblio exists
|
|
if ($quantity ne '0'){
|
|
|
|
if ($existing eq 'no'){
|
|
#if it doesnt create it
|
|
$bibnum = &newbiblio({ title => $title?$title:"",
|
|
author => $author?$author:"",
|
|
copyright => $copyright?$copyright:"",
|
|
series => $series?$series:"",
|
|
});
|
|
$bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
|
|
itemtype => $itemtype?$itemtype:"",
|
|
isbn => $isbn?$isbn:""
|
|
});
|
|
if ($title) {
|
|
newsubtitle($bibnum,$title);
|
|
}
|
|
#unuseful (already added 4 line before
|
|
# modbiblio({ biblionumber => $bibnum,
|
|
# title => $title?$title:"",
|
|
# author => $author?$author:"",
|
|
# copyrightdate => $copyright?$copyright:"",
|
|
# series => $series?$series:"" });
|
|
} else {
|
|
$bibnum=$input->param('biblio');
|
|
$bibitemnum=$input->param('bibitemnum');
|
|
my $oldtype=$input->param('oldtype');
|
|
if ($bibitemnum eq '' || $itemtype ne $oldtype){
|
|
$bibitemnum= &newbiblioitem({ biblionumber => $bibnum,
|
|
itemtype => $itemtype?$itemtype:"",
|
|
isbn => $isbn?$isbn:"" });
|
|
}
|
|
&modbiblio({
|
|
biblionumber => $bibnum,
|
|
title => $title?$title:"",
|
|
author => $author?$author:"",
|
|
copyrightdate => $copyright?$copyright:"",
|
|
series => $series?$series:"" });
|
|
}
|
|
if ($orderexists ne '') {
|
|
modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$supplier,$who,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst);
|
|
}else {
|
|
neworder($bibnum,$title,$ordnum,$basketno,$quantity,$listprice,$supplier,$who,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst);
|
|
}
|
|
} else {
|
|
$bibnum=$input->param('biblio');
|
|
delorder($bibnum,$ordnum);
|
|
}
|
|
|
|
print $input->redirect("newbasket.pl?id=$supplier&basket=$basketno");
|