Bug 13321: Rename variables

[koha.git] / C4 / Bookseller.pm

diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm
index 44b9389..8a5f43e 100644 (file)
--- a/C4/Bookseller.pm
+++ b/C4/Bookseller.pm
@@ -136,7 +136,7 @@ sub AddBookseller {
                 name,      address1,      address2,     address3, address4,
                 postal,    phone,         accountnumber,fax,      url,
                 active,    listprice,     invoiceprice, gstreg,
-                listincgst,invoiceincgst, gstrate,      discount, notes,
+                listincgst,invoiceincgst, tax_rate,      discount, notes,
                 deliverytime
             )
         VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
@@ -151,7 +151,7 @@ sub AddBookseller {
         $data->{'active'},       $data->{'listprice'},
         $data->{'invoiceprice'}, $data->{'gstreg'},
         $data->{'listincgst'},   $data->{'invoiceincgst'},
-        $data->{'gstrate'},      $data->{'discount'},
+        $data->{'tax_rate'},      $data->{'discount'},
         $data->{notes},          $data->{deliverytime},
     );
 
@@ -194,7 +194,7 @@ sub ModBookseller {
             postal=?,phone=?,accountnumber=?,fax=?,url=?,
             active=?,listprice=?, invoiceprice=?,
             gstreg=?,listincgst=?,invoiceincgst=?,
-            discount=?,notes=?,gstrate=?,deliverytime=?
+            discount=?,notes=?,tax_rate=?,deliverytime=?
         WHERE id=?';
     my $sth = $dbh->prepare($query);
     my $cnt = $sth->execute(
@@ -207,7 +207,7 @@ sub ModBookseller {
         $data->{'invoiceprice'}, $data->{'gstreg'},
         $data->{'listincgst'},   $data->{'invoiceincgst'},
         $data->{'discount'},     $data->{'notes'},
-        $data->{'gstrate'},      $data->{deliverytime},
+        $data->{'tax_rate'},      $data->{deliverytime},
         $data->{'id'}
     );
     $contacts ||= $data->{'contacts'};