View | Details | Raw Unified | Return to bug 8709
Collapse All | Expand All

(-)a/authorities/detail-biblio-search.pl (-1 / +1 lines)
Lines 93-99 my @fields = $record->fields(); Link Here
93
			my @subf=$field->subfields;
93
			my @subf=$field->subfields;
94
	# loop through each subfield
94
	# loop through each subfield
95
			for my $i (0..$#subf) {
95
			for my $i (0..$#subf) {
96
				$subf[$i][0] = "@" unless $subf[$i][0];
96
				$subf[$i][0] = "@" unless defined $subf[$i][0];
97
# 				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
97
# 				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
98
				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden});
98
				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden});
99
				my %subfield_data;
99
				my %subfield_data;
(-)a/authorities/detail.pl (-1 / +1 lines)
Lines 106-112 sub build_tabs { Link Here
106
                      my @subf=$field->subfields;
106
                      my @subf=$field->subfields;
107
                  # loop through each subfield
107
                  # loop through each subfield
108
                      for my $i (0..$#subf) {
108
                      for my $i (0..$#subf) {
109
                        $subf[$i][0] = "@" unless $subf[$i][0];
109
                        $subf[$i][0] = "@" unless defined $subf[$i][0];
110
                        next
110
                        next
111
                        if (
111
                        if (
112
                            $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{tab}
112
                            $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{tab}
(-)a/catalogue/MARCdetail.pl (-1 / +1 lines)
Lines 177-183 for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { Link Here
177
177
178
            # loop through each subfield
178
            # loop through each subfield
179
            for my $i ( 0 .. $#subf ) {
179
            for my $i ( 0 .. $#subf ) {
180
                $subf[$i][0] = "@" unless $subf[$i][0];
180
                $subf[$i][0] = "@" unless defined $subf[$i][0];
181
                next
181
                next
182
                  if (
182
                  if (
183
                    $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab}
183
                    $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab}
(-)a/opac/opac-authoritiesdetail.pl (-2 / +1 lines)
Lines 156-162 if ($show_marc) { Link Here
156
156
157
# loop through each subfield
157
# loop through each subfield
158
            for my $i ( 0 .. $#subf ) {
158
            for my $i ( 0 .. $#subf ) {
159
                $subf[$i][0] = "@" unless $subf[$i][0];
159
                $subf[$i][0] = "@" unless defined $subf[$i][0];
160
                next if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{hidden} );
160
                next if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{hidden} );
161
# skip useless subfields (for patrons)
161
# skip useless subfields (for patrons)
162
                next if $subf[$i][0] =~ /7|8|9/;
162
                next if $subf[$i][0] =~ /7|8|9/;
163
- 

Return to bug 8709