From 6ef37b771c8e6dd0a965d8ea1c925a729f49cc91 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 28 Apr 2009 22:35:08 +0200 Subject: [PATCH] Bookseller.pm changes * search on %% instead of % * deal with gst at bookseller level --- C4/Bookseller.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm index 0244bc349e..c18769a0f9 100644 --- a/C4/Bookseller.pm +++ b/C4/Bookseller.pm @@ -71,7 +71,7 @@ sub GetBookSeller($) { my $dbh = C4::Context->dbh; my $query = "SELECT * FROM aqbooksellers WHERE name LIKE ?"; my $sth =$dbh->prepare($query); - $sth->execute( "$searchstring%" ); + $sth->execute( "%$searchstring%" ); my @results; # count how many baskets this bookseller has. # if it has none, the bookseller can be deleted @@ -218,8 +218,8 @@ in the Koha database. It must contain entries for all of the fields. The entry to modify is determined by C<$bookseller-E{id}>. The easiest way to get all of the necessary fields is to look up a -book seller with C<&booksellers>, modify what's necessary, then call -C<&ModSupplier> with the result. +book seller with C<&GetBookseller>, modify what's necessary, then call +C<&ModBookseller> with the result. =cut @@ -232,8 +232,8 @@ sub ModBookseller { postal=?,phone=?,fax=?,url=?,contact=?,contpos=?, contphone=?,contfax=?,contaltphone=?,contemail=?, contnotes=?,active=?,listprice=?, invoiceprice=?, - gstreg=?, listincgst=?,invoiceincgst=?, - specialty=?,discount=?,invoicedisc=?,nocalc=?, notes=? + gstreg=?,listincgst=?,invoiceincgst=?, + specialty=?,discount=?,invoicedisc=?,nocalc=?,notes=?,gstrate=? WHERE id=? "; my $sth = $dbh->prepare($query); @@ -251,7 +251,8 @@ sub ModBookseller { $data->{'listincgst'}, $data->{'invoiceincgst'}, $data->{'specialty'}, $data->{'discount'}, $data->{'invoicedisc'}, $data->{'nocalc'}, - $data->{'notes'}, $data->{'id'} + $data->{'notes'}, $data->{'gstrate'}, + $data->{'id'} ); $sth->finish; } -- 2.39.5