http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=6874 --- Comment #125 from M. Tompsett <mtompset@hotmail.com> --- Comment on attachment 21432 --> http://bugs.koha-community.org/bugzilla3/attachment.cgi?id=21432 [SIGNED-OFF] Bug 6874: File upload in MARC Review of attachment 21432: --> (http://bugs.koha-community.org/bugzilla3/page.cgi?id=splinter.html&bug=6874&attachment=21432) ----------------------------------------------------------------- ::: C4/Biblio.pm @@ +37,4 @@
use C4::Charset; use C4::Linker; use C4::OAI::Sets; +use C4::UploadedFiles;
This is C4::Biblio Change 1. @@ +1908,4 @@
=head2 GetMarcUrls
+ $marcurls = GetMarcUrls($record,$marcflavour,$frameworkcode);
This is C4::Biblio Change 2. @@ +1919,5 @@
+ my ( $record, $marcflavour, $frameworkcode ) = @_; + + my $tagslib = &GetMarcStructure(1, $frameworkcode); + my $urltag = '856'; + my $urlsubtag = 'u';
This block is C4::Biblio Change 3. @@ +1924,3 @@
my @marcurls; + for my $field ( $record->field($urltag) ) {
This is C4::Biblio Change 4. @@ +1927,5 @@
my @notes; for my $note ( $field->subfield('z') ) { push @notes, { note => $note }; } + my @urls = $field->subfield($urlsubtag);
This is C4::Biblio Change 5. @@ +1956,3 @@
$marcurl->{'part'} = $s3 if ($link); $marcurl->{'toc'} = 1 if ( defined($s3) && $s3 =~ /^[Tt]able/ ); } else {
This begins C4::Biblio Change 6. @@ +1956,5 @@
$marcurl->{'part'} = $s3 if ($link); $marcurl->{'toc'} = 1 if ( defined($s3) && $s3 =~ /^[Tt]able/ ); } else { + if ($tagslib->{ $urltag }->{ $urlsubtag }->{value_builder} eq "upload.pl" + and $url =~ /id=([0-9a-f]+)/) {
Inside this IF is C4::Biblio Change 6a. @@ +1963,5 @@
+ $marcurl->{'linktext'} = $field->subfield('2') + || C4::Context->preference('URLLinkText') + || $file->{filename}; + $marcurl->{'MARCURL'} = $url; + } else {
Inside this ELSE is C4::Biblio Change 6b. -- You are receiving this mail because: You are watching all bug changes.