From 8d8ecf8312a72a7c5d5aa132dc926bdbc0349659 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 20 Feb 2014 12:54:32 +0100 Subject: [PATCH] [Signed-off]Bug 11799: Housekeeping: Remove _biblionumber_sth from VirtualShelves.pm MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This routine is no longer used. Test plan: Do a grep on the name. (Bonus points:) Verify if you can perform some actions on lists. No more occurences of _biblionumber_sth found Signed-off-by: Marc VĂ©ron --- C4/VirtualShelves.pm | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/C4/VirtualShelves.pm b/C4/VirtualShelves.pm index 38fa0e8..7ab875e 100644 --- a/C4/VirtualShelves.pm +++ b/C4/VirtualShelves.pm @@ -666,17 +666,6 @@ sub _shelf_count { return $total; } -sub _biblionumber_sth { #only used in obsolete sub below - my ($shelf) = @_; - my $query = 'select biblionumber from virtualshelfcontents where shelfnumber = ?'; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare($query) - or die $dbh->errstr; - $sth->execute( $shelf ) - or die $sth->errstr; - $sth; -} - sub _CheckShelfName { my ($name, $cat, $owner, $number)= @_; -- 1.7.10.4