Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Subs renamed

Browse source
This commit is contained in:
toins 2006-07-31 14:10:59 +00:00
parent 9ef8b9f80b
commit 6e5b99c397
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
acqui/addorder.pl
View file

@ -53,8 +53,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
my $ordnum = $input->param('ordnum'); my $ordnum = $input->param('ordnum');
my $basketno = $input->param('basketno'); my $basketno = $input->param('basketno');
my $booksellerid = $input->param('booksellerid'); my $booksellerid = $input->param('booksellerid');
my $existing = my $existing = $input->param('existing'); # existing biblio, (not basket or order)
$input->param('existing'); # existing biblio, (not basket or order)
my $title = $input->param('title'); my $title = $input->param('title');
my $author = $input->param('author'); my $author = $input->param('author');
my $copyrightdate = $input->param('copyrightdate'); my $copyrightdate = $input->param('copyrightdate');
@ -67,8 +66,6 @@ if ( $listprice eq '' ) {
$listprice = 0; $listprice = 0;
} }
my $series = $input->param('series'); my $series = $input->param('series');
# my $supplier=$input->param('supplier');
my $notes = $input->param('notes'); my $notes = $input->param('notes');
my $bookfund = $input->param('bookfund'); my $bookfund = $input->param('bookfund');
my $sort1 = $input->param('sort1'); my $sort1 = $input->param('sort1');
@ -185,7 +182,7 @@ if ( $quantity ne '0' ) {
if ($ordnum) { if ($ordnum) {
# warn "MODORDER $title / $ordnum / $quantity / $bookfund"; # warn "MODORDER $title / $ordnum / $quantity / $bookfund";
modorder( ModOrder(
$title, $ordnum, $quantity, $listprice, $title, $ordnum, $quantity, $listprice,
$bibnum, $basketno, $booksellerid, $loggedinuser, $bibnum, $basketno, $booksellerid, $loggedinuser,
$notes, $bookfund, $bibitemnum, $rrp, $notes, $bookfund, $bibitemnum, $rrp,
@ -194,7 +191,7 @@ if ( $quantity ne '0' ) {
); );
} }
else { else {
( $basketno, $ordnum ) = neworder( ( $basketno, $ordnum ) = NewOrder(
$basketno, $bibnum, $title, $quantity, $basketno, $bibnum, $title, $quantity,
$listprice, $booksellerid, $loggedinuser, $notes, $listprice, $booksellerid, $loggedinuser, $notes,
$bookfund, $bibitemnum, $rrp, $ecost, $bookfund, $bibitemnum, $rrp, $ecost,
@ -217,7 +214,7 @@ if ( $quantity ne '0' ) {
}, },
@barcodes @barcodes
); );
receiveorder( ModReceiveOrder(
$bibnum, $ordnum, $quantity, $user, $cost, $bibnum, $ordnum, $quantity, $user, $cost,
$invoice, 0, $bookfund, $rrp $invoice, 0, $bookfund, $rrp
); );
@ -225,6 +222,6 @@ if ( $quantity ne '0' ) {
} }
else { else {
$bibnum = $input->param('biblio'); $bibnum = $input->param('biblio');
delorder( $bibnum, $ordnum ); DelOrder( $bibnum, $ordnum );
} }
print $input->redirect("basket.pl?basket=$basketno"); print $input->redirect("basket.pl?basket=$basketno");