From 1e11be8f47c9f3db5b4ca2715122fb8c5fae1531 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Demians?= Date: Wed, 9 Feb 2011 18:38:30 +0100 Subject: [PATCH] Bug 5727 Warning in log due to XSLT.pm XSLT.pm add few syspref to MARCXML record send to be transformed by XSLT. If one of those syspref doesn't exist, it generated a warning. --- C4/XSLT.pm | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/XSLT.pm b/C4/XSLT.pm index 7844330..f1c5293 100644 --- a/C4/XSLT.pm +++ b/C4/XSLT.pm @@ -129,9 +129,9 @@ sub XSLTParse4Display { my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); my $sysxml = "\n"; foreach my $syspref ( qw/OPACURLOpenInNewWindow DisplayOPACiconsXSLT URLLinkText viewISBD OPACBaseURL/ ) { - $sysxml .= "" . - C4::Context->preference( $syspref ) . - "\n"; + my $sp = C4::Context->preference( $syspref ); + next unless defined($sp); + $sysxml .= "$sp\n"; } $sysxml .= "\n"; $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; -- 1.7.4