https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=15438 --- Comment #32 from Colin Campbell <colin.campbell@ptfs-europe.com> --- (In reply to Marcel de Rooy from comment #31)

+ foreach my $key ( keys %{$href} ) { + if ( $key =~ m/[^A-Z_]/ ) { + delete $href->{$key}; + }

Don't understand this. You are deleting the uppercase keys ? SHouldn't you do the reverse ?

No that deletes lowercase [^A-Z] is a negated character class (includes lowercase and non alpha) -- You are receiving this mail because: You are watching all bug changes.