MT2889 : Fix statistics' itemtype when item-level_itypes is ON

[koha.git] / acqui / updatesupplier.pl

diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl
index 2a10238..b8ea15f 100755 (executable)
--- a/acqui/updatesupplier.pl
+++ b/acqui/updatesupplier.pl
@@ -85,11 +85,14 @@ $data{'gstreg'}=$input->param('gst');
 $data{'listincgst'}=$input->param('list_gst');
 $data{'invoiceincgst'}=$input->param('invoice_gst');
 $data{'discount'}=$input->param('discount');
-if ($data{'id'}){
-    ModBookseller(\%data);
+if($data{'name'}) {
+       if ($data{'id'}){
+           ModBookseller(\%data);
+       } else {
+           $data{id}=AddBookseller(\%data);
+       }
+#redirect to booksellers.pl
+print $input->redirect("booksellers.pl?id=".$data{id});
 } else {
-    $data{id}=AddBookseller(\%data);
+print $input->redirect("supplier.pl?op=enter"); # fail silently.
 }
-
-#redirect to booksellers.pl
-print $input->redirect("booksellers.pl?supplier=".$data{id});