[Koha-cvs] koha/acqui addorder.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/31 14:10:59

Modified files:
        acqui          : addorder.pl 

Log message:
        Subs renamed

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/addorder.pl?cvsroot=koha&r1=1.29&r2=1.30

Patches:
Index: addorder.pl
===================================================================
RCS file: /sources/koha/koha/acqui/addorder.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- addorder.pl 7 Jul 2006 07:51:02 -0000       1.29
+++ addorder.pl 31 Jul 2006 14:10:59 -0000      1.30
@@ -53,8 +53,7 @@
 my $ordnum       = $input->param('ordnum');
 my $basketno     = $input->param('basketno');
 my $booksellerid = $input->param('booksellerid');
-my $existing     =
-  $input->param('existing');    # existing biblio, (not basket or order)
+my $existing     = $input->param('existing');    # existing biblio, (not 
basket or order)
 my $title         = $input->param('title');
 my $author        = $input->param('author');
 my $copyrightdate = $input->param('copyrightdate');
@@ -67,8 +66,6 @@
     $listprice = 0;
 }
 my $series = $input->param('series');
-
-# my $supplier=$input->param('supplier');
 my $notes         = $input->param('notes');
 my $bookfund      = $input->param('bookfund');
 my $sort1         = $input->param('sort1');
@@ -185,7 +182,7 @@
     if ($ordnum) {
 
         #              warn "MODORDER $title / $ordnum / $quantity / 
$bookfund";
-        modorder(
+        ModOrder(
             $title,   $ordnum,   $quantity,     $listprice,
             $bibnum,  $basketno, $booksellerid, $loggedinuser,
             $notes,   $bookfund, $bibitemnum,   $rrp,
@@ -194,7 +191,7 @@
         );
     }
     else {
-        ( $basketno, $ordnum ) = neworder(
+        ( $basketno, $ordnum ) = NewOrder(
             $basketno,  $bibnum,       $title,        $quantity,
             $listprice, $booksellerid, $loggedinuser, $notes,
             $bookfund,  $bibitemnum,   $rrp,          $ecost,
@@ -217,7 +214,7 @@
             },
             @barcodes
         );
-        receiveorder(
+        ModReceiveOrder(
             $bibnum,  $ordnum, $quantity, $user, $cost,
             $invoice, 0,       $bookfund, $rrp
         );
@@ -225,6 +222,6 @@
 }
 else {
     $bibnum = $input->param('biblio');
-    delorder( $bibnum, $ordnum );
+    DelOrder( $bibnum, $ordnum );
 }
 print $input->redirect("basket.pl?basket=$basketno");