From 207416fa43c18ac027510c65a86adeef15ec5ed1 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Wed, 22 Feb 2012 14:42:33 -0500 Subject: [PATCH] Revert "Bug 6875 de-nesting C4::VirtualShelves" This reverts commit 6eb50992e85146dbc021493d290de7294355c646. -Unstable code --- C4/VirtualShelves.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/C4/VirtualShelves.pm b/C4/VirtualShelves.pm index c74ecb3ef8..57b86daba3 100644 --- a/C4/VirtualShelves.pm +++ b/C4/VirtualShelves.pm @@ -26,7 +26,10 @@ use warnings; use Carp; use C4::Context; +use C4::Circulation; use C4::Debug; +use C4::Members; +require C4::Auth; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -463,8 +466,7 @@ sub ShelfPossibleAction { my $sth = $dbh->prepare($query); $sth->execute($shelfnumber); my ( $owner, $category ) = $sth->fetchrow; - require C4::Members; - my $borrower = C4::Members::GetMemberDetails($user); + my $borrower = GetMemberDetails($user); return 0 if not defined($user); return 1 if ( $category >= 3); # open list return 1 if (($category >= 2) and @@ -557,7 +559,7 @@ This function is used in conjunction with the 'Lists' button in masthead.inc. =cut sub RefreshShelvesSummary ($$$) { - require C4::Auth; + my ($sessionID, $loggedinuser, $row_count) = @_; my $session = C4::Auth::get_session($sessionID); my ($total, $totshelves, $barshelves, $pubshelves); -- 2.39.5