If a function returns nothing and is called in list context, Perl discards the
value resulting in a mixup of the arguments for the param function here.
This problem in opac-detail.pl is already solved in 3.2.
---
opac/opac-detail.pl | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index 5940fb0..b35f9c0 100755
--- a/opac/opac-detail.pl
+++ b/opac/opac-detail.pl
@@ -186,8 +186,8 @@ my $marcurlsarray = GetMarcUrls
($record,$marcflavour);
my $subtitle = GetRecordValue('subtitle', $record,
GetFrameworkCode($biblionumber));
$template->param(
- normalized_oclc =>
GetNormalizedOCLCNumber($record,$marcflavour),
- normalized_upc => GetNormalizedUPC
($record,$marcflavour),
+ normalized_oclc => scalar
GetNormalizedOCLCNumber($record,$marcflavour),
+ normalized_upc => scalar GetNormalizedUPC
($record,$marcflavour),
normalized_isbn => $normalized_isbn,
MARCNOTES => $marcnotesarray,
MARCSUBJCTS => $marcsubjctsarray,
--
1.6.0.6
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
