+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;
+ }
+}
+my %parameters=
+ ( %$patron
+ , 'orderby' => $orderbyparams
+ , 'resultsperpage' => $resultsperpage
+ , 'type'=> 'intranet');
+my $base_url =
+ 'member.pl?&'
+ . join(
+ '&',
+ map { "$_=$parameters{$_}" } (keys %parameters)
+ );
+
+my @letters = map { {letter => $_} } ( 'A' .. 'Z');
+$template->param( letters => \@letters );
+
+$template->param(
+ paginationbar => pagination_bar(
+ $base_url,
+ int( $count / $resultsperpage ) + ($count % $resultsperpage ? 1 : 0),
+ $startfrom, 'startfrom'
+ ),
+ startfrom => $startfrom,
+ from => ($startfrom-1)*$resultsperpage+1,
+ to => $to,
+ multipage => ($count != $to+1 || $startfrom!=1),
+);
+$template->param(
+ branchloop=>$branches,
+ categoryloop=>\@categories,
+);
+
+