From b6f8a4a580dcad43f6a3b4dee0ca05842fcfd199 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Thu, 11 Jul 2002 05:48:01 +0000
Subject: [PATCH] Cleaned up contents of location information

---
 C4/Search.pm | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 9d71d46eeb..f18d20aeb6 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -110,11 +110,37 @@ sub catalogsearch {
       my $subject2=$data->{'subject'};
       $subject2=~ s/ /%20/g;
       $data->{'itemcount'}=$counts->{'total'};
+      my $totalitemcounts=0;
       foreach my $key (keys %$counts){
         if ($key ne 'total'){
-          $data->{'location'}.="$key $counts->{$key} ";
+          #$data->{'location'}.="$key $counts->{$key} ";
+	  $totalitemcounts+=$counts->{$key};
+          $data->{'locationhash'}->{$key}=$counts->{$key};
          }
       }
+      my $locationtext='';
+      my $notavailabletext='';
+      foreach (sort keys %{$data->{'locationhash'}}) {
+	  if ($_ eq 'notavailable') {
+	      $notavailabletext="Not available";
+	      my $c=$data->{'locationhash'}->{$_};
+	      if ($totalitemcounts>1) {
+		  $notavailabletext.=" ($c)";
+	      }
+	  } else {
+	      $locationtext.="$_";
+	      my $c=$data->{'locationhash'}->{$_};
+	      if ($totalitemcounts>1) {
+		  $locationtext.=" ($c), ";
+	      }
+	  }
+      }
+      if ($notavailabletext) {
+	  $locationtext.=$notavailabletext;
+      } else {
+	  $locationtext=~s/, $//;
+      }
+      $data->{'location'}=$locationtext;
       $data->{'subject2'}=$subject2;
     }
   }
@@ -761,7 +787,7 @@ sub ItemInfo {
     and (wthdrawn <> 1 or wthdrawn is NULL)";
   }
   $query .= " order by items.dateaccessioned desc";
-    warn $query;
+    #warn $query;
   my $sth=$dbh->prepare($query);
   $sth->execute;
   my $i=0;
-- 
2.39.5