|
Lines 2895-2905
sub EmbedItemsInMarcBiblio {
Link Here
|
| 2895 |
my $dbh = C4::Context->dbh; |
2895 |
my $dbh = C4::Context->dbh; |
| 2896 |
my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?"); |
2896 |
my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?"); |
| 2897 |
$sth->execute($biblionumber); |
2897 |
$sth->execute($biblionumber); |
| 2898 |
my @item_fields; |
|
|
| 2899 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber", $frameworkcode ); |
2898 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber", $frameworkcode ); |
| 2900 |
my @items; |
2899 |
|
|
|
2900 |
my @item_fields; # Array holding the actual MARC data for items to be included. |
| 2901 |
my @items; # Array holding items which are both in the list ($itenumbers) |
| 2902 |
# and on this biblionumber. |
| 2903 |
|
| 2904 |
# Flag indicating if there is potential hiding. |
| 2901 |
my $opachiddenitems = $opac |
2905 |
my $opachiddenitems = $opac |
| 2902 |
&& ( C4::Context->preference('OpacHiddenItems') !~ /^\s*$/ ); |
2906 |
&& ( C4::Context->preference('OpacHiddenItems') !~ /^\s*$/ ); |
|
|
2907 |
|
| 2903 |
require C4::Items; |
2908 |
require C4::Items; |
| 2904 |
while ( my ($itemnumber) = $sth->fetchrow_array ) { |
2909 |
while ( my ($itemnumber) = $sth->fetchrow_array ) { |
| 2905 |
next if @$itemnumbers and not grep { $_ == $itemnumber } @$itemnumbers; |
2910 |
next if @$itemnumbers and not grep { $_ == $itemnumber } @$itemnumbers; |
| 2906 |
- |
|
|