[Koha-patches] [PATCH] add the possibility to replace, in sysprefs, the code by it's valuecode with {{code}} ex : {{995c}}
henridamien.laurent at biblibre.com
henridamien.laurent at biblibre.com
Fri Mar 6 11:37:48 CET 2009
From: Nahuel Angelinetti <nahuel.angelinetti at biblibre.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent at biblibre.com>
---
opac/opac-ISBDdetail.pl | 12 ++++++++++--
1 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index bb3b570..2a57604 100755
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -170,23 +170,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;
--
1.5.6.3
More information about the Koha-patches
mailing list