http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=6874
--- Comment #125 from M. Tompsett <[email protected]> --- 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. _______________________________________________ Koha-bugs mailing list [email protected] http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-bugs website : http://www.koha-community.org/ git : http://git.koha-community.org/ bugs : http://bugs.koha-community.org/
