From 0cc86b0eb4ce64601b28035ed76ad2836218c360 Mon Sep 17 00:00:00 2001 From: root Date: Thu, 25 Jul 2013 09:37:34 +0200 Subject: [PATCH] Bug 10630: DelBookseller's always returns undef in C4::Bookseller.pm This patch makes DelBookseller returns the number of supplier it has deleted or undef if nothing has been deleted. It also fixes a test which doesn't pass before in t/db_dependent/Bookseller.t To test: prove t/db_dependent/Bookseller.t t/db_dependent/Bookseller.t .. 1/54 All tests successful. Files=1, Tests=54, 1 wallclock secs ( 0.02 usr 0.00 sys + 0.48 cusr 0.02 csys = 0.52 CPU) Result: PASS Signed-off-by: Chris Cormack --- C4/Bookseller.pm | 3 +-- t/db_dependent/Bookseller.t | 5 ++--- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm index 3e1454f..c53919f 100644 --- a/C4/Bookseller.pm +++ b/C4/Bookseller.pm @@ -269,8 +269,7 @@ sub DelBookseller { my $id = shift; my $dbh = C4::Context->dbh; my $sth = $dbh->prepare('DELETE FROM aqbooksellers WHERE id=?'); - $sth->execute($id); - return; + return $sth->execute($id); } 1; diff --git a/t/db_dependent/Bookseller.t b/t/db_dependent/Bookseller.t index 71307f1..fdac9c2 100644 --- a/t/db_dependent/Bookseller.t +++ b/t/db_dependent/Bookseller.t @@ -2,7 +2,7 @@ use Modern::Perl; -use Test::More tests => 53; +use Test::More tests => 54; use C4::Context; use Koha::DateUtils; use DateTime::Duration; @@ -104,8 +104,7 @@ is( scalar( C4::Bookseller::GetBookSeller('') ), #Test DelBookseller my $del = C4::Bookseller::DelBookseller($id_supplier1); -#FIXME: DelBookSeller always returns undef (if it works or not) -#is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " ); +is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " ); is( C4::Bookseller::GetBookSellerFromId($id_supplier1), undef, "Supplier1 has been deleted - id_supplier1 doesnt exist anymore" ); -- 1.8.1.2