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