From 4510951cfc7d34f464ab2aafa6d06adfedde09fb Mon Sep 17 00:00:00 2001 From: tipaul Date: Thu, 23 Dec 2004 09:48:11 +0000 Subject: [PATCH] Minor changes in summary "exploding" (the 3 digits AFTER the subfield were not on the right place). --- C4/AuthoritiesMarc.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index 13324b4ce4..1e538e268f 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -132,7 +132,7 @@ sub authoritysearch { my $subfieldcode = $subf[$i][0]; my $subfieldvalue = $subf[$i][1]; my $tagsubf = $tag.$subfieldcode; - $summary =~ s/\[(.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue\[$1$tagsubf$2]$2$3/g; + $summary =~ s/\[(.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue$2\[$1$tagsubf$2]/g; } } } @@ -837,6 +837,9 @@ Paul POULAIN paul.poulain@free.fr # $Id$ # $Log$ +# Revision 1.9 2004/12/23 09:48:11 tipaul +# Minor changes in summary "exploding" (the 3 digits AFTER the subfield were not on the right place). +# # Revision 1.8 2004/11/05 10:11:39 tipaul # export auth_count_usage (bugfix) # -- 2.39.5