From 4382020899388b4a2832398a27b961cd56976710 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 20 Feb 2014 12:54:32 +0100 Subject: [PATCH] Bug 11799: Housekeeping: Remove _biblionumber_sth from VirtualShelves.pm Content-Type: text/plain; charset=utf-8 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. --- C4/VirtualShelves.pm | 11 ----------- 1 files changed, 0 insertions(+), 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.7.6