View | Details | Raw Unified | Return to bug 9032
Collapse All | Expand All

(-)a/opac/opac-shareshelf.pl (-3 / +2 lines)
Lines 283-290 sub stringtokey { Link Here
283
283
284
sub alphabet_ordinal {
284
sub alphabet_ordinal {
285
    my ($char, $alphabet) = @_;
285
    my ($char, $alphabet) = @_;
286
    for( 0..$#$alphabet ) {
286
    for my $ord ( 0..$#$alphabet ) {
287
        return $_ if $char eq $alphabet->[$_];
287
        return $ord if $char eq $alphabet->[$ord];
288
    }
288
    }
289
    return ''; #ignore missing chars
289
    return ''; #ignore missing chars
290
}
290
}
291
- 

Return to bug 9032