gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

corrected patch for bug 2951 

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
This commit is contained in:
Mason James 2009-02-13 12:15:57 +13:00 committed by Henri-Damien LAURENT
parent 7d5e21daf9
commit 18e9bdb2aa
1 changed files with 36 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
C4/Biblio.pm
View File

@ -1242,44 +1242,48 @@ Assumes web resources (not uncommon in MARC21 to omit resource type ind)
=cut
sub GetMarcUrls {
my ($record, $marcflavour) = @_;
my ( $record, $marcflavour ) = @_;
my @marcurls;
for my $field ($record->field('856')) {
for my $field ( $record->field('856') ) {
my $marcurl;
my $url = $field->subfield('u');
my @notes;
for my $note ( $field->subfield('z')) {
push @notes , {note => $note};
}
if($marcflavour eq 'MARC21') {
my $s3 = $field->subfield('3');
my $link = $field->subfield('y');
unless($url =~ /^\w+:/) {
if($field->indicator(1) eq '7') {
$url = $field->subfield('2') . "://" . $url;
} elsif ($field->indicator(1) eq '1') {
$url = 'ftp://' . $url;
} else {
# properly, this should be if ind1=4,
# however we will assume http protocol since we're building a link.
$url = 'http://' . $url;
}
}
# TODO handle ind 2 (relationship)
$marcurl = { MARCURL => $url,
notes => \@notes,
};
$marcurl->{'linktext'} = $link || $s3 || C4::Context->preference('URLLinkText') || $url ;
$marcurl->{'part'} = $s3 if($link);
$marcurl->{'toc'} = 1 if($s3 =~ /^[Tt]able/) ;
} else {
$marcurl->{'linktext'} = $field->subfield('2') || C4::Context->preference('URLLinkText') || $url;
$marcurl->{'MARCURL'} = $url ;
for my $note ( $field->subfield('z') ) {
push @notes, { note => $note };
}
my @urls = $field->subfield('u');
foreach my $url (@urls) {
if ( $marcflavour eq 'MARC21' ) {
my $s3 = $field->subfield('3');
my $link = $field->subfield('y');
unless ( $url =~ /^\w+:/ ) {
if ( $field->indicator(1) eq '7' ) {
$url = $field->subfield('2') . "://" . $url;
} elsif ( $field->indicator(1) eq '1' ) {
$url = 'ftp://' . $url;
} else {
# properly, this should be if ind1=4,
# however we will assume http protocol since we're building a link.
$url = 'http://' . $url;
}
}
# TODO handle ind 2 (relationship)
$marcurl = {
MARCURL => $url,
notes => \@notes,
};
$marcurl->{'linktext'} = $link || $s3 || C4::Context->preference('URLLinkText') || $url;
$marcurl->{'part'} = $s3 if ($link);
$marcurl->{'toc'} = 1 if ( $s3 =~ /^table/i );
} else {
$marcurl->{'linktext'} = $field->subfield('z') || C4::Context->preference('URLLinkText') || $url;
$marcurl->{'MARCURL'} = $url;
}
push @marcurls, $marcurl;
}
push @marcurls, $marcurl;
}
return \@marcurls;
} #end GetMarcUrls
}
=head2 GetMarcSeries