|
Lines 429-435
sub BuildItemsData{
Link Here
|
| 429 |
my %this_row; |
429 |
my %this_row; |
| 430 |
foreach my $field (grep {$_->tag() eq $itemtagfield} $itemmarc->fields()) { |
430 |
foreach my $field (grep {$_->tag() eq $itemtagfield} $itemmarc->fields()) { |
| 431 |
# loop through each subfield |
431 |
# loop through each subfield |
| 432 |
if (my $itembranchcode=$field->subfield($branchtagsubfield) && C4::Context->preference("IndependantBranches")) { |
432 |
my $itembranchcode=$field->subfield($branchtagsubfield); |
|
|
433 |
if ($itembranchcode && C4::Context->preference("IndependantBranches")) { |
| 433 |
#verifying rights |
434 |
#verifying rights |
| 434 |
my $userenv = C4::Context->userenv(); |
435 |
my $userenv = C4::Context->userenv(); |
| 435 |
unless (($userenv->{'flags'} == 1) or (($userenv->{'branch'} eq $itembranchcode))){ |
436 |
unless (($userenv->{'flags'} == 1) or (($userenv->{'branch'} eq $itembranchcode))){ |
| 436 |
- |
|
|