[Koha-patches] [PATCH] add the possibility to replace, in sysprefs, the code by it's valuecode with {{code}}
Nahuel Angelinetti
nahuel.angelinetti at biblibre.com
Mon Oct 13 11:49:54 CEST 2008
---
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 bbb0427..60ad80e 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.4.3
More information about the Koha-patches
mailing list