From 13d93ef115b22b0d953eb6bf36ce38bdc0f9a856 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Fri, 11 Oct 2002 13:06:52 +0000
Subject: [PATCH] Added a FIXME comment.

---
 C4/Search.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 90b53f7581..de2d605b79 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -992,6 +992,12 @@ sub CatSearch  {
       }
   }
   if ($type eq 'subject'){
+    # FIXME - Subject search is badly broken. The query defined by
+    # $query returns a single item (the subject), but later code
+    # expects a ref-to-hash with all sorts of stuff in it.
+    # Also, the count of items (biblios?) with the given subject is
+    # wrong.
+
     my @key=split(' ',$search->{'subject'});
     my $count=@key;
     my $i=1;
@@ -1114,7 +1120,8 @@ while (my $data=$sth->fetchrow_hashref){
     $subclass=$bibitemdata->{'subclass'};
     $publishercode=$bibitemdata->{'publishercode'};
   }
-  print STDERR "$dewey $subclass $publishercode\n";
+#  print STDERR "$dewey $subclass $publishercode\n";
+  # FIXME - The Dewey code is a string, not a number.
   $dewey=~s/\.*0*$//;
   ($dewey == 0) && ($dewey='');
   ($dewey) && ($dewey.=" $subclass");
-- 
2.39.5