From 493e2b85c6b6ba3b13230d4f229badd17016cdbd Mon Sep 17 00:00:00 2001 From: Paul POULAIN Date: Fri, 5 Oct 2007 02:50:02 -0500 Subject: [PATCH] Adding IndependantBranches Filter + adding some ordering on member list display. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Members.pm | 38 ++++++++++++++----- .../prog/en/modules/members/member.tmpl | 8 ++-- 2 files changed, 33 insertions(+), 13 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 8ba07a4ed9..b2f57c98c0 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -122,7 +122,7 @@ push @EXPORT, qw( =item SearchMember - ($count, $borrowers) = &SearchMember($searchstring, $type,$category_type); + ($count, $borrowers) = &SearchMember($searchstring, $type,$category_type,$filter,$showallbranches); Looks up patrons (borrowers) by name. @@ -137,6 +137,10 @@ C<$searchstring> is a space-separated list of search terms. Each term must match the beginning a borrower's surname, first name, or other name. +C<$filter> is assumed to be a list of elements to filter results on + +C<$showallbranches> is used in IndependantBranches Context to display all branches results. + C<&SearchMember> returns a two-element list. C<$borrowers> is a reference-to-array; each element is a reference-to-hash, whose keys are the fields of the C table in the Koha database. @@ -148,7 +152,7 @@ C<$count> is the number of elements in C<$borrowers>. #used by member enquiries from the intranet #called by member.pl sub SearchMember { - my ($searchstring, $orderby, $type,$category_type ) = @_; + my ($searchstring, $orderby, $type,$category_type,$filter,$showallbranches ) = @_; my $dbh = C4::Context->dbh; my $query = ""; my $count; @@ -158,10 +162,18 @@ sub SearchMember { if ( $type eq "simple" ) # simple search for one letter only { $query = - "SELECT * FROM borrowers - LEFT JOIN categories ON borrowers.categorycode=categories.categorycode ". - ($category_type?" AND category_type = ".$dbh->quote($category_type):""). - " WHERE surname LIKE ? OR cardnumber like ? ORDER BY $orderby"; + "SELECT * + FROM borrowers + LEFT JOIN categories ON borrowers.categorycode=categories.categorycode ". + ($category_type?" AND category_type = ".$dbh->quote($category_type):""); + $query .= + " WHERE (surname LIKE ? OR cardnumber like ?) "; + if (C4::Context->preference("IndependantBranches") && !$showallbranches){ + if (C4::Context->userenv && C4::Context->userenv->{flags}!=1 && C4::Context->userenv->{'branch'}){ + $query.=" AND borrowers.branchcode =".$dbh->quote(C4::Context->userenv->{'branch'}) unless (C4::Context->userenv->{'branch'} eq "insecure"); + } + } + $query.=" ORDER BY $orderby"; @bind = ("$searchstring%","$searchstring"); } else # advanced search looking in surname, firstname and othernames @@ -170,9 +182,15 @@ sub SearchMember { $count = @data; $query = "SELECT * FROM borrowers LEFT JOIN categories ON borrowers.categorycode=categories.categorycode - WHERE ((surname LIKE ? OR surname LIKE ? - OR firstname LIKE ? OR firstname LIKE ? - OR othernames LIKE ? OR othernames LIKE ?) + WHERE "; + if (C4::Context->preference("IndependantBranches") && !$showallbranches){ + if (C4::Context->userenv && C4::Context->userenv->{flags}!=1 && C4::Context->userenv->{'branch'}){ + $query.=" borrowers.branchcode =".$dbh->quote(C4::Context->userenv->{'branch'})." AND " unless (C4::Context->userenv->{'branch'} eq "insecure"); + } + } + $query.="((surname LIKE ? OR surname LIKE ? + OR firstname LIKE ? OR firstname LIKE ? + OR othernames LIKE ? OR othernames LIKE ?) ". ($category_type?" AND category_type = ".$dbh->quote($category_type):""); @bind = ( @@ -198,7 +216,7 @@ sub SearchMember { my $sth = $dbh->prepare($query); - # warn "Q $orderby : $query"; +# warn "Q $orderby : $query"; $sth->execute(@bind); my @results; my $data = $sth->fetchall_arrayref({}); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/member.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/members/member.tmpl index e58e51387d..ee99887c0e 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/member.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/member.tmpl @@ -58,9 +58,10 @@
- - - + + + + @@ -80,6 +81,7 @@ + -- 2.39.5
CardNameCat&orderby=cardnumber">Card&orderby=surname">Name&orderby=borrowers.categorycode">Cat&orderby=branchcode">Branch OD/Issues Fines Notes ()