@@ -, +, @@ --- .../prog/en/includes/patron-search.inc | 5 ++- members/member.pl | 34 ++++++++++---------- members/members-home.pl | 14 +++++++- 3 files changed, 33 insertions(+), 20 deletions(-) --- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-search.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-search.inc @@ -114,8 +114,9 @@ YAHOO.util.Event.onContentReady("header_search", function() { --- a/members/member.pl +++ a/members/member.pl @@ -49,11 +49,21 @@ my $theme = $input->param('theme') || "default"; my $patron = $input->Vars; foreach (keys %$patron){ - delete $$patron{$_} unless($$patron{$_}); + delete $$patron{$_} unless($$patron{$_}); } - my @categories=C4::Category->all; -my $branches=(defined $$patron{branchcode}?GetBranchesLoop($$patron{branchcode}):GetBranchesLoop()); + +my $branches = GetBranches; +my @branchloop; + +foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) { + my $selected = 1 if $branches->{$_}->{branchcode} eq $$patron{branchcode}; + my %row = ( value => $_, + selected => $selected, + branchname => $branches->{$_}->{branchname}, + ); + push @branchloop, \%row; +} my %categories_dislay; @@ -119,11 +129,6 @@ foreach my $borrower(@$results[$from..$to-1]){ push(@resultsdata, \%row); } -if ($$patron{branchcode}){ - foreach my $branch (grep{$_->{value} eq $$patron{branchcode}}@$branches){ - $$branch{selected}=1; - } -} if ($$patron{categorycode}){ foreach my $category (grep{$_->{categorycode} eq $$patron{categorycode}}@categories){ $$category{selected}=1; @@ -142,9 +147,9 @@ my $base_url = ); my @letters = map { {letter => $_} } ( 'A' .. 'Z'); -$template->param( letters => \@letters ); $template->param( + letters => \@letters, paginationbar => pagination_bar( $base_url, int( $count / $resultsperpage ) + ($count % $resultsperpage ? 1 : 0), @@ -154,15 +159,10 @@ $template->param( from => ($startfrom-1)*$resultsperpage+1, to => $to, multipage => ($count != $to+1 || $startfrom!=1), -); -$template->param( - branchloop=>$branches, + advsearch => ($$patron{categorycode} || $$patron{branchcode}), + branchloop=>\@branchloop, categories=>\@categories, -); - - -$template->param( - searching => "1", + searching => "1", actionname =>basename($0), %$patron, numresults => $count, --- a/members/members-home.pl +++ a/members/members-home.pl @@ -51,9 +51,21 @@ if($quicksearch){ debug => 1, }); } + +my $branches = GetBranches; +my @branchloop; +foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) { + my $selected = 1 if $branches->{$_}->{branchcode} eq $branch; + my %row = ( value => $_, + selected => $selected, + branchname => $branches->{$_}->{branchname}, + ); + push @branchloop, \%row; +} + my @categories=C4::Category->all; $template->param( - branchloop=>(defined $branch?GetBranchesLoop($branch):GetBranchesLoop()), + branchloop=>\@branchloop, categories=>\@categories, ); $template->param( --