@@ -, +, @@ opac-shareshelf --- opac/opac-shareshelf.pl | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) --- a/opac/opac-shareshelf.pl +++ a/opac/opac-shareshelf.pl @@ -283,8 +283,8 @@ sub stringtokey { sub alphabet_ordinal { my ($char, $alphabet) = @_; - for( 0..$#$alphabet ) { - return $_ if $char eq $alphabet->[$_]; + for my $ord ( 0..$#$alphabet ) { + return $ord if $char eq $alphabet->[$ord]; } return ''; #ignore missing chars } --