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 |
- |
|
|