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

(-)a/opac/opac-MARCdetail.pl (-6 / +5 lines)
Lines 142-149 for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { Link Here
142
            for my $i ( 0 .. $#subf ) {
142
            for my $i ( 0 .. $#subf ) {
143
                $subf[$i][0] = "@" unless $subf[$i][0];
143
                $subf[$i][0] = "@" unless $subf[$i][0];
144
                my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] };
144
                my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] };
145
                next if ( $sf_def->{tab} ne $tabloop );
145
                next if ( ($sf_def->{tab}||'') ne $tabloop );
146
                next if ( $sf_def->{hidden} > 0 ); 
146
                next if ( ($sf_def->{hidden}||0) > 0 );
147
                my %subfield_data;
147
                my %subfield_data;
148
                $subfield_data{marc_lib} = ($sf_def->{lib} eq $previous) ?  '--' : $sf_def->{lib};
148
                $subfield_data{marc_lib} = ($sf_def->{lib} eq $previous) ?  '--' : $sf_def->{lib};
149
                $previous = $sf_def->{lib};
149
                $previous = $sf_def->{lib};
Lines 215-222 foreach my $field (@fields) { Link Here
215
    # loop through each subfield
215
    # loop through each subfield
216
    for my $i ( 0 .. $#subf ) {
216
    for my $i ( 0 .. $#subf ) {
217
        my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] };
217
        my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] };
218
        next if ( $sf_def->{tab} ne 10 );
218
        next if ( ($sf_def->{tab}||'') ne 10 );
219
		next if ( $sf_def->{hidden} > 0 );
219
        next if ( ($sf_def->{hidden}||0) > 0 );
220
        $witness{ $subf[$i][0] } = $sf_def->{lib};
220
        $witness{ $subf[$i][0] } = $sf_def->{lib};
221
221
222
        if ( $sf_def->{isurl} ) {
222
        if ( $sf_def->{isurl} ) {
Lines 237-243 foreach my $field (@fields) { Link Here
237
my ( $holdingbrtagf, $holdingbrtagsubf ) =
237
my ( $holdingbrtagf, $holdingbrtagsubf ) =
238
  &GetMarcFromKohaField( "items.holdingbranch", $itemtype );
238
  &GetMarcFromKohaField( "items.holdingbranch", $itemtype );
239
@big_array =
239
@big_array =
240
  sort { $a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf} } @big_array;
240
  sort { ($a->{$holdingbrtagsubf}||'') cmp ($b->{$holdingbrtagsubf}||'') } @big_array;
241
241
242
#fill big_row with missing datas
242
#fill big_row with missing datas
243
foreach my $subfield_code ( keys(%witness) ) {
243
foreach my $subfield_code ( keys(%witness) ) {
244
- 

Return to bug 6829