Working

C4/Search.pm

@@ -213,10 +213,11 @@ sub subsearch {
 sub ItemInfo {
   my ($env,$biblionumber)=@_;
   my $dbh = &C4Connect;
-  my $query="Select * from items,biblio,biblioitems 
+  my $query="Select * from items,biblio,biblioitems,branches 
   where (items.biblioitemnumber = biblioitems.biblioitemnumber)
   and biblioitems.biblionumber=biblio.biblionumber
-  and biblio.biblionumber='$biblionumber'";
+  and biblio.biblionumber='$biblionumber' and branches.branchcode=
+  items.holdingbranch";
   my $sth=$dbh->prepare($query);
   $sth->execute;
   my $i=0;
@@ -233,7 +234,7 @@ sub ItemInfo {
     }
     $isth->finish;
 
-$results[$i]="$data->{'title'}\t$data->{'itemnumber'}\t$datedue\t$data->{'isbn'}";
+$results[$i]="$data->{'title'}\t$data->{'itemnumber'}\t$datedue\t$data->{'branchname'}";
      $i++;
   }
   $sth->finish;

detail.pl

@@ -24,10 +24,13 @@ my $count=@items;
 my $i=0;
 print center();
 print mktablehdr;
-print mktablerow(3,'white','Title','Itemnumber','DateDue'); 
+print mktablerow(4,'#cccc99','Title','Item Number','DateDue','Location'); 
 my $colour=1;
 while ($i < $count){
   my @results=split('\t',$items[$i]);
+  if ($results[2] eq ''){
+    $results[2]='Available';
+  }
   if ($colour == 1){                                                                          
     print mktablerow(4,'#ffffcc',@results);                                        
     $colour=0;                                                                                

search.pl

@@ -10,7 +10,7 @@ use C4::Output;
 
 my $input = new CGI;
 print $input->header;
-print $input->dump;
+#print $input->dump;
 my $blah;
 my %search;
 #build hash of users input
@@ -26,7 +26,7 @@ my $itemnumber=$input->param('item');
 $search{'item'}=$itemnumber;
 my $isbn=$input->param('isbn');
 $search{'isbn'}=$isbn;
-my $date-before=$input->param('date-before');
+my $datebefore=$input->param('date-before');
 $search{'date-before'};
 my @results;
 my $offset=$input->param('offset');