Lines 51-57
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
Link Here
|
51 |
MARC::File::XML->default_record_format('UNIMARC'); |
51 |
MARC::File::XML->default_record_format('UNIMARC'); |
52 |
} |
52 |
} |
53 |
|
53 |
|
54 |
our($tagslib,$authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950); |
54 |
our($tagslib,$authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950,$itemtag,$itemsubfield); |
55 |
|
55 |
|
56 |
=head1 FUNCTIONS |
56 |
=head1 FUNCTIONS |
57 |
|
57 |
|
Lines 500-506
sub build_tabs {
Link Here
|
500 |
my @tab_data; # all tags to display |
500 |
my @tab_data; # all tags to display |
501 |
|
501 |
|
502 |
my $max_num_tab=-1; |
502 |
my $max_num_tab=-1; |
503 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber" ); |
|
|
504 |
foreach my $used ( @$usedTagsLib ){ |
503 |
foreach my $used ( @$usedTagsLib ){ |
505 |
|
504 |
|
506 |
push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}}; |
505 |
push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}}; |
Lines 772-777
$template->param(
Link Here
|
772 |
$tagslib = &GetMarcStructure( 1, $frameworkcode ); |
771 |
$tagslib = &GetMarcStructure( 1, $frameworkcode ); |
773 |
$usedTagsLib = &GetUsedMarcStructure( $frameworkcode ); |
772 |
$usedTagsLib = &GetUsedMarcStructure( $frameworkcode ); |
774 |
$mandatory_z3950 = GetMandatoryFieldZ3950($frameworkcode); |
773 |
$mandatory_z3950 = GetMandatoryFieldZ3950($frameworkcode); |
|
|
774 |
( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber" ); |
775 |
# -- Global |
775 |
# -- Global |
776 |
|
776 |
|
777 |
my $record = -1; |
777 |
my $record = -1; |
Lines 981-986
if ( $record ne '-1' ) {
Link Here
|
981 |
$template->param( |
981 |
$template->param( |
982 |
popup => $mode, |
982 |
popup => $mode, |
983 |
frameworkcode => $frameworkcode, |
983 |
frameworkcode => $frameworkcode, |
|
|
984 |
framework_has_items => $tagslib->{$itemtag} ? 1 : 0, |
984 |
itemtype => $frameworkcode, |
985 |
itemtype => $frameworkcode, |
985 |
borrowernumber => $loggedinuser, |
986 |
borrowernumber => $loggedinuser, |
986 |
tab => scalar $input->param('tab') |
987 |
tab => scalar $input->param('tab') |