|
Lines 876-887
sub BuildSummary {
Link Here
|
| 876 |
my ($record,$authid,$authtypecode)=@_; |
876 |
my ($record,$authid,$authtypecode)=@_; |
| 877 |
my $dbh=C4::Context->dbh; |
877 |
my $dbh=C4::Context->dbh; |
| 878 |
my %summary; |
878 |
my %summary; |
|
|
879 |
my $summary_template; |
| 879 |
# handle $authtypecode is NULL or eq "" |
880 |
# handle $authtypecode is NULL or eq "" |
| 880 |
if ($authtypecode) { |
881 |
if ($authtypecode) { |
| 881 |
my $authref = GetAuthType($authtypecode); |
882 |
my $authref = GetAuthType($authtypecode); |
| 882 |
$summary{authtypecode} = $authref->{authtypecode}; |
883 |
$summary{authtypecode} = $authref->{authtypecode}; |
| 883 |
$summary{type} = $authref->{authtypetext}; |
884 |
$summary{type} = $authref->{authtypetext}; |
| 884 |
$summary{summary} = $authref->{summary}; |
885 |
$summary_template = $authref->{summary}; |
| 885 |
} |
886 |
} |
| 886 |
my $marc21subfields = 'abcdfghjklmnopqrstuvxyz68'; |
887 |
my $marc21subfields = 'abcdfghjklmnopqrstuvxyz68'; |
| 887 |
my %marc21controlrefs = ( 'a' => 'earlier', |
888 |
my %marc21controlrefs = ( 'a' => 'earlier', |
|
Lines 914-927
sub BuildSummary {
Link Here
|
| 914 |
# suit the MARC21 version, so for now the "templating" |
915 |
# suit the MARC21 version, so for now the "templating" |
| 915 |
# feature will be enabled only for UNIMARC for backwards |
916 |
# feature will be enabled only for UNIMARC for backwards |
| 916 |
# compatibility. |
917 |
# compatibility. |
| 917 |
if ($summary{summary} and C4::Context->preference('marcflavour') eq 'UNIMARC') { |
918 |
if ($summary_template and C4::Context->preference('marcflavour') eq 'UNIMARC') { |
| 918 |
my @fields = $record->fields(); |
919 |
my @fields = $record->fields(); |
| 919 |
# $reported_tag = '$9'.$result[$counter]; |
920 |
# $reported_tag = '$9'.$result[$counter]; |
| 920 |
my @stringssummary; |
921 |
my @repets; |
| 921 |
foreach my $field (@fields) { |
922 |
foreach my $field (@fields) { |
| 922 |
my $tag = $field->tag(); |
923 |
my $tag = $field->tag(); |
| 923 |
my $tagvalue = $field->as_string(); |
924 |
my $tagvalue = $field->as_string(); |
| 924 |
my $localsummary= $summary{summary}; |
925 |
my $localsummary= $summary_template; |
| 925 |
$localsummary =~ s/\[(.?.?.?.?)$tag\*(.*?)\]/$1$tagvalue$2\[$1$tag$2\]/g; |
926 |
$localsummary =~ s/\[(.?.?.?.?)$tag\*(.*?)\]/$1$tagvalue$2\[$1$tag$2\]/g; |
| 926 |
if ($tag<10) { |
927 |
if ($tag<10) { |
| 927 |
if ($tag eq '001') { |
928 |
if ($tag eq '001') { |
|
Lines 936-948
sub BuildSummary {
Link Here
|
| 936 |
$localsummary =~ s/\[(.?.?.?.?)$tagsubf(.*?)\]/$1$subfieldvalue$2\[$1$tagsubf$2\]/g; |
937 |
$localsummary =~ s/\[(.?.?.?.?)$tagsubf(.*?)\]/$1$subfieldvalue$2\[$1$tagsubf$2\]/g; |
| 937 |
} |
938 |
} |
| 938 |
} |
939 |
} |
| 939 |
push @stringssummary, $localsummary if ($localsummary ne $summary{summary}); |
940 |
if ($localsummary ne $summary_template) { |
|
|
941 |
$localsummary =~ s/\[(.*?)\]//g; |
| 942 |
$localsummary =~ s/\n/<br>/g; |
| 943 |
push @repets, $localsummary; |
| 944 |
} |
| 940 |
} |
945 |
} |
| 941 |
my $resultstring; |
946 |
$summary{repets} = \@repets; |
| 942 |
$resultstring = join(" -- ",@stringssummary); |
|
|
| 943 |
$resultstring =~ s/\[(.*?)\]//g; |
| 944 |
$resultstring =~ s/\n/<br>/g; |
| 945 |
$summary{summary} = $resultstring; |
| 946 |
} |
947 |
} |
| 947 |
my @authorized; |
948 |
my @authorized; |
| 948 |
my @notes; |
949 |
my @notes; |