From 0c726309eee5ed9318d3487a0501c1dbd0db64b3 Mon Sep 17 00:00:00 2001
From: genjimoto <genjimoto>
Date: Fri, 3 Jun 2005 03:51:26 +0000
Subject: [PATCH] Search for availablilty feature implemented.

---
 opac/opac-search.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index 2fa016d154..aec973fd66 100755
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -15,7 +15,7 @@ my @spsuggest; # the array for holding suggestions
 my $suggest;   # a flag to be set (if there are suggestions it's 1)
 my $firstbiblionumber; # needed for directly sending user to first item
 # use C4::Search;
-
+my $totalresults;
 
 my $itemtypelist;
 my $brancheslist;
@@ -55,7 +55,7 @@ while (my ($branchname,$branchcode) = $sth->fetchrow) {
 my $query = new CGI;
 my $op = $query->param("op");
 my $type=$query->param('type');
-
+my $avail=$query->param('avail');
 my $itemtypesstring=$query->param("itemtypesstring");
 $itemtypesstring =~s/"//g;
 my @itemtypes = split ( /\|/, $itemtypesstring);
@@ -140,7 +140,9 @@ if ($op eq "do_search") {
         }
         $sqlstring .= '))'
     }
-
+  if ($avail){
+    $sqlstring .= "and biblioitems.biblioitemnumber=items.biblioitemnumber and items.itemnumber !=issues.itemnumber and biblio.biblionumber !=reserves.biblionumber and (items.itemlost IS NULL or items.itemlost = 0) and (items.notforloan IS NULL or items.notforloan =0) and (items.wthdrawn IS NULL or items.wthdrawn =0) ";
+  }
 	my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,
 										\@excluding, \@operator, \@value,
 										$startfrom*$resultsperpage, $resultsperpage,$orderby,$desc_or_asc,$sqlstring);
-- 
2.39.5