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

(-)a/catalogue/MARCdetail.pl (-18 / +10 lines)
Lines 184-213 for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { Link Here
184
            # loop through each subfield
184
            # loop through each subfield
185
            for my $i ( 0 .. $#subf ) {
185
            for my $i ( 0 .. $#subf ) {
186
                $subf[$i][0] = "@" unless defined $subf[$i][0];
186
                $subf[$i][0] = "@" unless defined $subf[$i][0];
187
                my $sf = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] };
187
                next
188
                next
188
                    if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab} // q{} ) ne
189
                    if ( $sf->{tab} // q{} ) ne $tabloop;    # Note: defaulting to '0' changes behavior!
189
                    $tabloop;    # Note: defaulting to '0' changes behavior!
190
                next
190
                next
191
                    if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/ );
191
                    if ( $sf->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/ );
192
                my %subfield_data;
192
                my %subfield_data;
193
                $subfield_data{short_desc} = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib};
193
                $subfield_data{short_desc} = $sf->{lib};
194
                $subfield_data{long_desc} =
194
                $subfield_data{long_desc}  = $sf->{lib};
195
                    $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib};
195
                $subfield_data{link}       = $sf->{link};
196
                $subfield_data{link} =
196
197
                    $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{link};
197
                if ( $sf->{isurl} ) {
198
199
                #                 warn "tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}."lien koha? : "$subfield_data{link};
200
                if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{isurl} ) {
201
                    $subfield_data{marc_value} = $subf[$i][1];
198
                    $subfield_data{marc_value} = $subf[$i][1];
202
                    $subfield_data{is_url}     = 1;
199
                    $subfield_data{is_url}     = 1;
203
                } elsif ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{kohafield}
200
                } elsif ( $sf->{kohafield} && $sf->{kohafield} eq "biblioitems.isbn" ) {
204
                    && $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{kohafield} eq "biblioitems.isbn" )
205
                {
206
207
                    #                    warn " tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}. "ISBN : ".$subf[$i][1]."PosttraitementISBN :".DisplayISBN($subf[$i][1]);
208
                    $subfield_data{marc_value} = $subf[$i][1];
201
                    $subfield_data{marc_value} = $subf[$i][1];
209
                } else {
202
                } else {
210
                    if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{authtypecode} ) {
203
                    if ( $sf->{authtypecode} ) {
211
                        $subfield_data{authority} = $fields[$x_i]->subfield(9);
204
                        $subfield_data{authority} = $fields[$x_i]->subfield(9);
212
                    }
205
                    }
213
                    $subfield_data{marc_value} = GetAuthorisedValueDesc(
206
                    $subfield_data{marc_value} = GetAuthorisedValueDesc(
214
- 

Return to bug 40559