use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
my $category = $cgi->param('category') || undef;
my $member = $cgi->param('member') || '';
my $orderby = $cgi->param('orderby') || undef;
+my $not_attributes = $cgi->param('not_attributes') || undef;
my @categories=C4::Category->all;
my %categories_display;
+my $no_categories;
foreach my $category (@categories) {
my $hash={
$categories_display{$$category{categorycode}} = $hash;
}
+
my ($template, $loggedinuser, $cookie) = get_template_and_user({
- template_name => "patroncards/members-search.tmpl",
+ template_name => "patroncards/members-search.tt",
query => $cgi,
type => "intranet",
authnotrequired => 0,
flagsrequired => {borrowers => 1},
debug => 1,});
+if(scalar(@categories) < 1){ $no_categories = 1; }
+if($no_categories && C4::Context->preference("AddPatronLists")=~/code/){
+ $template->param(no_categories => 1);
+} else {
+ $template->param(
+ categories=>\@categories,
+ category => $category
+ );
+}
+
$orderby = "surname,firstname" unless $orderby;
$member =~ s/,//g; #remove any commas from search string
$member =~ s/\*/%/g;
if ($member || $category) {
- my $results = $category ? Search({''=>$member, categorycode=>$category}, $orderby)
- : Search($member, $orderby);
+ my $results = $category ? Search({''=>$member, categorycode=>$category}, $orderby, undef, undef, undef, undef, $not_attributes )
+ : Search($member, $orderby, undef, undef, undef, undef, $not_attributes);
my $count = $results ? @$results : 0;
my @resultsdata = ();