From 0c76ef36aea1ec2609779ba7996cf4b6948de348 Mon Sep 17 00:00:00 2001 From: Paul POULAIN Date: Thu, 13 Dec 2007 12:20:41 +0100 Subject: [PATCH] Addind a reported_tag entry. the reported tag contains all subfields to report from the authority into the biblio. NOTE : It is a feature usefull only for OpenCataloger, but OpenCataloger needs it. Signed-off-by: Joshua Ferraro --- C4/AuthoritiesMarc.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index e440f1da50..43c663fb55 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -292,10 +292,18 @@ sub SearchAuthorities { my $sth = $dbh->prepare($query_auth_tag); $sth->execute($authtypecode); my $auth_tag_to_report = $sth->fetchrow; + my $reported_tag; + my $mainentry = $authrecord->field($auth_tag_to_report); + if ($mainentry) { + foreach ($mainentry->subfields()) { + $reported_tag .='$'.$_->[0].$_->[1]; + } + } my %newline; $newline{summary} = $summary; $newline{authid} = $authid; $newline{even} = $counter % 2; + $newline{reported_tag} = $reported_tag; $counter++; push @finalresult, \%newline; }## while counter -- 2.39.5