From b3375469e38a28635cd68b0bce0b2e3d6415e283 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 10 Apr 2002 09:55:17 +0000
Subject: [PATCH] Fixing the subject search i broke ;)

---
 C4/Search.pm | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 9fd7276265..a99ff36276 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -670,7 +670,7 @@ while (my $data=$sth->fetchrow_hashref){
   my $dewey;
   my $subclass;
   my $true=0;
-  if (($dewey, $subclass) = $sti->fetchrow){
+  if (($dewey, $subclass) = $sti->fetchrow || $type eq 'subject'){
     $true=1;
   }
   $dewey=~s/\.*0*$//;
@@ -792,7 +792,20 @@ sub ItemInfo {
 #    print "$results[$i] <br>";
     $i++;
   }
-  $sth->finish;
+ $sth->finish;
+  my $query2="Select * from aqorders where biblionumber=$biblionumber";
+  my $sth2=$dbh->prepare($query2);         
+  $sth2->execute;                                        
+  my $data;
+  my $ocount;
+  if ($data=$sth2->fetchrow_hashref){                   
+    $ocount=$data->{'quantity'} - $data->{'quantityreceived'};                                                  
+    if ($ocount > 0){
+      $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$ocount\tOn Order\t\t$data->{'itemnumber'}\t$data->{'itemtype'}\t\t$data->{'biblioitemnumber'}\t$data->{'volumeddesc'}";
+    }
+  } 
+  $sth2->finish;
+
   $dbh->disconnect;
   return(@results);
 }
@@ -854,9 +867,13 @@ sub itemdata {
 sub bibdata {
   my ($bibnum,$type)=@_;
   my $dbh=C4Connect;
-  my $query="Select *,biblio.notes  from biblio,biblioitems,bibliosubtitle where biblio.biblionumber=$bibnum
-  and biblioitems.biblionumber=$bibnum and 
-(bibliosubtitle.biblionumber=$bibnum)"; 
+  my $query="Select *,biblio.notes  
+  from biblio,biblioitems 
+  left join bibliosubtitle on                                                
+  biblio.biblionumber=bibliosubtitle.biblionumber
+  
+  where biblio.biblionumber=$bibnum
+  and biblioitems.biblionumber=$bibnum"; 
 #  print $query;
   my $sth=$dbh->prepare($query);
   $sth->execute;
-- 
2.39.5