[replace previous] fix for 3612 (bookseller improvements)

[koha.git] / acqui / supplier.pl

diff --git a/acqui/supplier.pl b/acqui/supplier.pl
index b3ed949..3934da3 100755 (executable)
--- a/acqui/supplier.pl
+++ b/acqui/supplier.pl
@@ -88,11 +88,10 @@ if ($op eq "display") {
                contnotes     => $booksellers[0]->{'contnotes'},
                notes         => $booksellers[0]->{'notes'},
                active        => $booksellers[0]->{'active'},
-               specialty     => $booksellers[0]->{'specialty'},
                gstreg        => $booksellers[0]->{'gstreg'},
                listincgst    => $booksellers[0]->{'listincgst'},
                invoiceincgst => $booksellers[0]->{'invoiceincgst'},
-               gstrate                 => $booksellers[0]->{'gstrate'},
+               gstrate       => $booksellers[0]->{'gstrate'}*100,
                discount      => $booksellers[0]->{'discount'},
                invoiceprice  => $booksellers[0]->{'invoiceprice'},
                listprice     => $booksellers[0]->{'listprice'},
@@ -143,12 +142,11 @@ elsif ($op eq 'delete') {
                contemail            => $booksellers[0]->{'contemail'},
                contnotes            => $booksellers[0]->{'contnotes'},
                notes                => $booksellers[0]->{'notes'},
-               active               => $booksellers[0]->{'active'},
-               specialty            => $booksellers[0]->{'specialty'},
+               active               => $id?$booksellers[0]->{'active'}:1, # set active ON by default for supplier add (id empty for add)
                gstreg               => $booksellers[0]->{'gstreg'},
                listincgst           => $booksellers[0]->{'listincgst'},
                invoiceincgst        => $booksellers[0]->{'invoiceincgst'},
-               gstrate                 => $booksellers[0]->{'gstrate'},
+               gstrate              => $booksellers[0]->{'gstrate'}*100,
                discount             => $booksellers[0]->{'discount'},
                loop_pricescurrency  => \@loop_pricescurrency,
                loop_invoicecurrency => \@loop_invoicecurrency,