From 13763623e763aa7ecede7475a6aae28f25698a35 Mon Sep 17 00:00:00 2001
From: Nahuel Angelinetti <nahuel.angelinetti@biblibre.com>
Date: Fri, 6 Mar 2009 11:37:48 +0100
Subject: [PATCH] add the possibility to replace, in sysprefs, the code by it's
 valuecode with {{code}} ex : {{995c}}

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 opac/opac-ISBDdetail.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index 463efb896d..e679ed8ffc 100755
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -189,23 +189,31 @@ foreach my $isbdfield ( split /#/, $bloc ) {
           else {
             my @subf = $field->subfields;
             for my $i ( 0 .. $#subf ) {
+            my $valuecode   = $subf[$i][1];
             my $subfieldcode  = $subf[$i][0];
             my $subfieldvalue =
             GetAuthorisedValueDesc( $tag, $subf[$i][0],
               $subf[$i][1], '', $tagslib );
             my $tagsubf = $tag . $subfieldcode;
+
+            $calculated =~ s/                  # replace all {{}} codes by the value code.
+                              \{\{$tagsubf\}\} # catch the {{actualcode}}
+                            /
+                              $valuecode     # replace by the value code
+                           /gx;
+
             $calculated =~
         s/\{(.?.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
         $calculated =~s#/cgi-bin/koha/[^/]+/([^.]*.pl\?.*)$#opac-$1#g;
             }
-        
+
             # field builded, store the result
             if ( $calculated && !$hasputtextbefore )
             {    # put textbefore if not done
             $blocres .= $textbefore;
             $hasputtextbefore = 1;
             }
-        
+
             # remove punctuation at start
             $calculated =~ s/^( |;|:|\.|-)*//g;
             $blocres .= $calculated;
-- 
2.39.5