This just utf8::encode the $key if needed to permit categorycodes with
diacritics.
---
tools/overduerules.pl | 5 +++++
1 files changed, 5 insertions(+), 0 deletions(-)
diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index e390250..d69c396 100755
--- a/tools/overduerules.pl
+++ b/tools/overduerules.pl
@@ -43,6 +43,11 @@ sub blank_row {
for my $rp (@rule_params) {
for my $n (1 .. 3) {
my $key = "${rp}${n}-$category_code";
+
+ if (utf8::is_utf8($key)) {
+ utf8::encode($key);
+ }
+
my $value = $input->param($key);
if ($value) {
return 0;
--
1.6.0.4
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
