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