C4/XSLT Removing unconditionnal comment

[koha.git] / acqui / parcel.pl

diff --git a/acqui/parcel.pl b/acqui/parcel.pl
index 62c77e4..8d60498 100755 (executable)
--- a/acqui/parcel.pl
+++ b/acqui/parcel.pl
@@ -87,6 +87,15 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user(
     }
 );
 
+if($input->param('op') eq "delete" ){
+    if($input->param('biblionumber') and $input->param('ordernumber')){
+       DelOrder($input->param('biblionumber'), $input->param('ordernumber')); 
+       print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?supplierid=$supplierid&datereceived=" . $datereceived->output('iso'));
+       exit;
+    }
+}
+
+
 # If receiving error, report the error (coming from finishreceive.pl).
 if (scalar(@rcv_err)) {
     my $cnt = 0;
@@ -137,7 +146,7 @@ for (my $i = 0 ; $i < $countlines ; $i++) {
     $tototal       += $total;
 }
 
-my $pendingorders = GetPendingOrders($supplierid);
+my $pendingorders = GetPendingOrders($supplierid, "", 1);
 my $countpendings = scalar @$pendingorders;
 
 # pending orders totals