[$ # figure out the next and previous letters my $letter = get_setting("user_af_current_letter") || 0; my $letter_prev = chr(ord(lc($letter)) - 1); my $letter_next = chr(ord(lc($letter)) + 1); if ($letter eq "a") { $letter_prev = "0"; } if ($letter eq "z") { $letter_next = "0"; } if ($letter eq "0") { $letter_prev = "z"; $letter_next = "a"; } to_browser(qq{ << }); # loop through each letter. foreach my $letter_nav ( "0", "a" .. "z" ) { my $letter_nav_uc = uc($letter_nav); if ($letter_nav eq "0" and $letter_nav ne $letter) { to_browser(qq{ #}); } elsif ($letter_nav eq "0" and $letter_nav eq $letter) { to_browser(qq{ # }); } elsif ($letter_nav eq $letter) { to_browser(qq{ $letter_nav_uc}); } else { to_browser(qq{ $letter_nav_uc}); } } to_browser(qq{ >> }); $OUT = send_to_browser; $]