[MT3191] various perl errors in script (merge conflict)

[koha.git] / members / members-home.pl

diff --git a/members/members-home.pl b/members/members-home.pl
index e641feb..e497f4a 100755 (executable)
--- a/members/members-home.pl
+++ b/members/members-home.pl
@@ -59,5 +59,7 @@ $template->param(
 $template->param( 
         "AddPatronLists_".C4::Context->preference("AddPatronLists")=> "1",
             );
+my @letters = map { {letter => $_} } ( 'A' .. 'Z');
+$template->param( letters => \@letters );
 
 output_html_with_http_headers $query, $cookie, $template->output;