(MT2690) fix search by letter

This patch fix searching by name that "begins" by one letter, using now the quicksearch arg.
And improve a bit the template, now it won't list all the alphabet...

koha-tmpl/intranet-tmpl/prog/en/modules/members/member.tmpl

@@ -19,32 +19,9 @@
 
 						<div class="browse">
 							Browse by last name:
-							<a href="/cgi-bin/koha/members/member.pl?surname=a">A</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=b">B</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=c">C</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=d">D</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=e">E</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=f">F</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=g">G</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=h">H</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=i">I</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=j">J</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=k">K</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=l">L</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=m">M</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=n">N</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=o">O</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=p">P</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=q">Q</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=r">R</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=s">S</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=t">T</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=u">U</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=v">V</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=w">W</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=x">X</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=y">Y</a>
-							<a href="/cgi-bin/koha/members/member.pl?surname=z">Z</a>
+							<!-- TMPL_LOOP name="letters" -->
+								<a href="/cgi-bin/koha/members/member.pl?quicksearch=1&surname=<!-- TMPL_VAR NAME="letter" -->"><!-- TMPL_VAR NAME="letter" --></a>
+							<!-- /TMPL_LOOP -->
 						</div>
 
 

members/member.pl

@@ -37,24 +37,14 @@ my $quicksearch = $input->param('quicksearch');
 my $startfrom = $input->param('startfrom')||1;
 my $resultsperpage = $input->param('resultsperpage')||C4::Context->preference("PatronsPerPage")||20;
 
-my ($template, $loggedinuser, $cookie);
-if($quicksearch){
-    ($template, $loggedinuser, $cookie)
-    = get_template_and_user({template_name => "members/member-quicksearch-results.tmpl",
-                 query => $input,
-                 type => "intranet",
-                 authnotrequired => 0,
-                 flagsrequired => {borrowers => 1},
-                 });
-} else {
-    ($template, $loggedinuser, $cookie)
+my ($template, $loggedinuser, $cookie)
     = get_template_and_user({template_name => "members/member.tmpl",
                  query => $input,
                  type => "intranet",
                  authnotrequired => 0,
                  flagsrequired => {borrowers => 1},
                  });
-}
+
 my $theme = $input->param('theme') || "default";
 
 my $patron = $input->Vars;
@@ -151,6 +141,9 @@ my $base_url =
     map { "$_=$parameters{$_}" } (keys %parameters)
   );
 
+my @letters = map { {letter => $_} } ( 'A' .. 'Z');
+$template->param( letters => \@letters );
+
 $template->param(
     paginationbar => pagination_bar(
         $base_url,  int( $count / $resultsperpage ) + 1,