From 4d2cfa610e0adf22a2bd1dce2647aad15683a2b9 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 16 Sep 2011 21:58:30 +0200 Subject: [PATCH] Bug 6875 de-nesting C4::VirtualShelves * C4::Circulation is unused, removing it * C4::Members used only in ShelfPossibleAction, switching from use to require * C4::Auth used only in RefreshShelvesSummary, a sub called only in opac-addbybiblionumber.pl script, moving the require inside the sub Signed-off-by: Jared Camins-Esakov --- C4/VirtualShelves.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/C4/VirtualShelves.pm b/C4/VirtualShelves.pm index 57b86daba3..c74ecb3ef8 100644 --- a/C4/VirtualShelves.pm +++ b/C4/VirtualShelves.pm @@ -26,10 +26,7 @@ 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); @@ -466,7 +463,8 @@ sub ShelfPossibleAction { my $sth = $dbh->prepare($query); $sth->execute($shelfnumber); my ( $owner, $category ) = $sth->fetchrow; - my $borrower = GetMemberDetails($user); + require C4::Members; + my $borrower = C4::Members::GetMemberDetails($user); return 0 if not defined($user); return 1 if ( $category >= 3); # open list return 1 if (($category >= 2) and @@ -559,7 +557,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