+my %categories_dislay;
+my ($template, $loggedinuser, $cookie);
+ ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "serials/member-search.tt",
+ query => $cgi,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { serials => 'routing' },
+ });
+
+foreach my $category (@categories){
+ my $hash={
+ category_description=>$$category{description},
+ category_type=>$$category{category_type}
+ };
+ $categories_dislay{$$category{categorycode}} = $hash;
+}
+$template->param(
+ "AddPatronLists_".C4::Context->preference("AddPatronLists")=> "1",
+ );
+if (C4::Context->preference("AddPatronLists")=~/code/){
+ $categories[0]->{'first'}=1;
+}
+
+my $member=$cgi->param('member');
+my $orderby=$cgi->param('orderby');
+$orderby = "surname,firstname" unless $orderby;
+if (defined $member) {
+ $member =~ s/,//g; #remove any commas from search string
+ $member =~ s/\*/%/g;
+}
+
+my ($count,$results);
+
+if ( C4::Context->preference("IndependentBranches") ) {
+ if ( C4::Context->userenv
+ && !C4::Context->IsSuperLibrarian()
+ && C4::Context->userenv->{'branch'} )