[Koha-bugs] [Bug 6874] File upload in MARC

[bugzilla-daemon at bugs.koha-community.org]

http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=6874

--- Comment #125 from M. Tompsett <mtompset at 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.