From f3befd0c3a2cabacb25e0c308ed23c7621b92f57 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Wed, 11 Aug 2010 09:25:32 +0200 Subject: [PATCH] Bug 5003: Can not search for organisation by name Content-Type: text/plain; charset="utf-8" --- .../prog/en/modules/members/guarantor_search.tmpl | 1 + .../prog/en/modules/members/memberentrygen.tmpl | 4 ++-- members/guarantor_search.pl | 13 ++++++++++--- members/memberentry.pl | 1 + 4 files changed, 14 insertions(+), 5 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/guarantor_search.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/members/guarantor_search.tmpl index 7fa5099..13fb052 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/guarantor_search.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/guarantor_search.tmpl @@ -48,6 +48,7 @@

Search for guarantor

+ " /> " class="focus" /> Ordered by + ');" /> - + ');" /> diff --git a/members/guarantor_search.pl b/members/guarantor_search.pl index d25d71f..79bb9ba 100755 --- a/members/guarantor_search.pl +++ b/members/guarantor_search.pl @@ -46,6 +46,7 @@ my $theme = $input->param('theme') || "default"; my $member=$input->param('member'); my $orderby=$input->param('orderby'); +my $category_type=$input->param('category_type'); $orderby = "surname,firstname" unless $orderby; $member =~ s/,//g; #remove any commas from search string $member =~ s/\*/%/g; @@ -55,6 +56,11 @@ if ($member eq ''){ $template->param(results=>1); } +my $search_category = 'A'; +if ($category_type eq 'P'){ + $search_category = 'I'; +} + my ($count,$results); my @resultsdata; my $background = 0; @@ -62,16 +68,17 @@ my $background = 0; if ($member ne ''){ if(length($member) == 1) { - ($count,$results)=SearchMember($member,$orderby,"simple",'A'); + ($count,$results)=SearchMember($member,$orderby,"simple",$search_category); } else { - ($count,$results)=SearchMember($member,$orderby,"advanced",'A'); + ($count,$results)=SearchMember($member,$orderby,"advanced",$search_category); } for (my $i=0; $i < $count; $i++){ #find out stats my ($od,$issue,$fines)=GetMemberIssuesAndFines($results->[$i]{'borrowerid'}); my $guarantorinfo=uc($results->[$i]{'surname'})." , ".ucfirst($results->[$i]{'firstname'}); + if my %row = ( background => $background, count => $i+1, @@ -101,7 +108,7 @@ if ($member ne ''){ $template->param( member => $member, numresults => $count, - + category_type => $category_type, resultsloop => \@resultsdata ); output_html_with_http_headers $input, $cookie, $template->output; diff --git a/members/memberentry.pl b/members/memberentry.pl index 6ec6d8e..bb14c10 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -648,6 +648,7 @@ $template->param( dateformat => C4::Dates->new()->visual(), C4::Context->preference('dateformat') => 1, check_categorytype =>$check_categorytype,#to recover the category type with checkcategorytype function + category_type =>$category_type, modify => $modify, nok => $nok,#flag to konw if an error CGIbranch => $CGIbranch, -- 1.6.3.3