From 1396435cc4cb6cf6a9713e4b39203b1039c3ec61 Mon Sep 17 00:00:00 2001 From: miker Date: Sun, 16 Dec 2007 19:48:16 +0000 Subject: [PATCH] fixing search object layout git-svn-id: svn://svn.open-ils.org/ILS/trunk@8225 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Search/Biblio.pm | 20 ++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index 8942a6dcee..a935ac5de7 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -547,15 +547,17 @@ sub cat_search_z_style_wrapper { my $result = { service => 'native-evergreen-catalog', records => [] }; my $searchhash = { limit => $$args{limit}, offset => $$args{offset}, org_unit => $ou->id }; - $$searchhash{searches}{title} = $$args{search}{title}; - $$searchhash{searches}{author} = $$args{search}{author}; - $$searchhash{searches}{subject} = $$args{search}{subject}; - $$searchhash{searches}{keyword} = $$args{search}{keyword}; - $$searchhash{searches}{keyword} .= ' '.$$args{search}{tcn}; - $$searchhash{searches}{keyword} .= ' '.$$args{search}{isbn}; - $$searchhash{searches}{keyword} .= ' '.$$args{search}{publisher}; - $$searchhash{searches}{keyword} .= ' '.$$args{search}{pubdate}; - $$searchhash{searches}{keyword} .= ' '.$$args{search}{item_type}; + $$searchhash{searches}{title}{term} = $$args{search}{title} if $$args{search}{title}; + $$searchhash{searches}{author}{term} = $$args{search}{author} if $$args{search}{author}; + $$searchhash{searches}{subject}{term} = $$args{search}{subject} if $$args{search}{subject}; + $$searchhash{searches}{keyword}{term} = $$args{search}{keyword} if $$args{search}{keyword}; + + $$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{tcn} if $$args{search}{tcn}; + $$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{isbn} if $$args{search}{isbn}; + $$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{issn} if $$args{search}{issn}; + $$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{publisher} if $$args{search}{publisher}; + $$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{pubdate} if $$args{search}{pubdate}; + $$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{item_type} if $$args{search}{item_type}; my $list = $self->the_quest_for_knowledge( $client, $searchhash ); -- 2.43.2