View | Details | Raw Unified | Return to bug 6875
Collapse All | Expand All

(-)a/C4/VirtualShelves.pm (-6 / +3 lines)
Lines 26-35 use warnings; Link Here
26
26
27
use Carp;
27
use Carp;
28
use C4::Context;
28
use C4::Context;
29
use C4::Circulation;
30
use C4::Debug;
29
use C4::Debug;
31
use C4::Members;
32
require C4::Auth;
33
30
34
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
35
32
Lines 466-472 sub ShelfPossibleAction { Link Here
466
    my $sth = $dbh->prepare($query);
463
    my $sth = $dbh->prepare($query);
467
    $sth->execute($shelfnumber);
464
    $sth->execute($shelfnumber);
468
    my ( $owner, $category ) = $sth->fetchrow;
465
    my ( $owner, $category ) = $sth->fetchrow;
469
	my $borrower = GetMemberDetails($user);
466
    require C4::Members;
467
	my $borrower = C4::Members::GetMemberDetails($user);
470
	return 0 if not defined($user);
468
	return 0 if not defined($user);
471
	return 1 if ( $category >= 3);							# open list
469
	return 1 if ( $category >= 3);							# open list
472
    return 1 if (($category >= 2) and
470
    return 1 if (($category >= 2) and
Lines 559-565 This function is used in conjunction with the 'Lists' button in masthead.inc. Link Here
559
=cut
557
=cut
560
558
561
sub RefreshShelvesSummary ($$$) {
559
sub RefreshShelvesSummary ($$$) {
562
	
560
	require C4::Auth;
563
	my ($sessionID, $loggedinuser, $row_count) = @_;
561
	my ($sessionID, $loggedinuser, $row_count) = @_;
564
	my $session = C4::Auth::get_session($sessionID);
562
	my $session = C4::Auth::get_session($sessionID);
565
	my ($total, $totshelves, $barshelves, $pubshelves);
563
	my ($total, $totshelves, $barshelves, $pubshelves);
566
- 

Return to bug 6875