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);
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
=cut
sub RefreshShelvesSummary ($$$) {
-
+ require C4::Auth;
my ($sessionID, $loggedinuser, $row_count) = @_;
my $session = C4::Auth::get_session($sessionID);
my ($total, $totshelves, $barshelves, $pubshelves);