updates to acqui - first of several commits

[koha_gimpoz] / acqui / addorder.pl

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index 4919df7..1bd80a1 100755 (executable)
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -115,12 +115,10 @@ if it is an order from an existing suggestion : the id of this suggestion.
 use strict;
 use CGI;
 use C4::Auth;
-use C4::Output;
 use C4::Acquisition;
 use C4::Suggestions;
 use C4::Biblio;
 use C4::Output;
-use C4::Interface::CGI::Output;
 
 
 
@@ -167,6 +165,7 @@ my $gst           = $input->param('GST');
 my $budget        = $input->param('budget');
 my $cost          = $input->param('cost');
 my $sub           = $input->param('sub');
+my $purchaseorder = $input->param('purchaseordernumber');
 my $invoice       = $input->param('invoice');
 my $publishercode = $input->param('publishercode');
 my $suggestionid  = $input->param('suggestionid');
@@ -212,7 +211,7 @@ if ( $quantity ne '0' ) {
             $biblionumber,  $basketno, $booksellerid, $loggedinuser,
             $notes,   $bookfund, $bibitemnum,   $rrp,
             $ecost,   $gst,      $budget,       $cost,
-            $invoice, $sort1,    $sort2
+            $invoice, $sort1,    $sort2,               $purchaseorder
         );
     }
     else { # else, it's a new line
@@ -221,7 +220,7 @@ if ( $quantity ne '0' ) {
             $listprice, $booksellerid, $loggedinuser, $notes,
             $bookfund,  $bibitemnum,   $rrp,          $ecost,
             $gst,       $budget,       $cost,         $sub,
-            $invoice,   $sort1,        $sort2
+            $invoice,   $sort1,        $sort2,         $purchaseorder
         );
     }
 }