@ -69,6 +69,12 @@ if ( ! $biblionumber ) {
exit ;
}
my $ record = GetMarcBiblio ( $ biblionumber , 1 ) ;
if ( ! $ record ) {
print $ query - > redirect ( "/cgi-bin/koha/errors/404.pl" ) ;
exit ;
}
my @ all_items = GetItemsInfo ( $ biblionumber ) ;
my @ items2hide ;
if ( scalar @ all_items >= 1 ) {
@ -80,17 +86,18 @@ if (scalar @all_items >= 1) {
}
}
my $ itemtype = & GetFrameworkCode ( $ biblionumber ) ;
my $ tagslib = & GetMarcStructure ( 0 , $ itemtype ) ;
my ( $ tag_itemnumber , $ subtag_itemnumber ) = & GetMarcFromKohaField ( 'items.itemnumber' , $ itemtype ) ;
my $ framework = & GetFrameworkCode ( $ biblionumber ) ;
my $ tagslib = & GetMarcStructure ( 0 , $ framework ) ;
my ( $ tag_itemnumber , $ subtag_itemnumber ) = & GetMarcFromKohaField ( 'items.itemnumber' , $ framework ) ;
my $ biblio = GetBiblioData ( $ biblionumber ) ;
$ biblionumber = $ biblio - > { biblionumber } ;
my $ record = GetMarcBiblio ( $ biblionumber , 1 ) ;
if ( ! $ record ) {
print $ query - > redirect ( "/cgi-bin/koha/errors/404.pl" ) ;
exit ;
}
my $ record_processor = Koha::RecordProcessor - > new ( { filters = > 'ViewPolicy' } ) ;
my $ record_processor = Koha::RecordProcessor - > new ( {
filters = > 'ViewPolicy' ,
options = > {
interface = > 'opac' ,
frameworkcode = > $ framework
}
} ) ;
$ record_processor - > process ( $ record ) ;
# open template
@ -104,7 +111,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
) ;
my ( $ bt_tag , $ bt_subtag ) = GetMarcFromKohaField ( 'biblio.title' , $ itemtype ) ;
my ( $ bt_tag , $ bt_subtag ) = GetMarcFromKohaField ( 'biblio.title' , $ framework ) ;
$ template - > param (
bibliotitle = > $ biblio - > { title } ,
) if $ tagslib - > { $ bt_tag } - > { $ bt_subtag } - > { hidden } <= 0 && # <=0 OPAC visible.
@ -291,7 +298,7 @@ foreach my $field (@fields) {
push @ item_loop , $ item if $ item ;
}
my ( $ holdingbrtagf , $ holdingbrtagsubf ) =
& GetMarcFromKohaField ( "items.holdingbranch" , $ itemtype ) ;
& GetMarcFromKohaField ( "items.holdingbranch" , $ framework ) ;
@ item_loop =
sort { ( $ a - > { $ holdingbrtagsubf } || '' ) cmp ( $ b - > { $ holdingbrtagsubf } || '' ) } @ item_loop ;