[Koha-cvs] koha/C4 Search.pm [rel_2_2]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Joshua Ferraro <kados>  06/07/07 20:37:28

Modified files:
        C4             : Search.pm 

Log message:
        fix to itemissues sub to show item statuses

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.99.2.11&r2=1.99.2.12

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.99.2.11
retrieving revision 1.99.2.12
diff -u -b -r1.99.2.11 -r1.99.2.12
--- Search.pm   14 Dec 2005 15:58:42 -0000      1.99.2.11
+++ Search.pm   7 Jul 2006 20:37:28 -0000       1.99.2.12
@@ -30,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.99.2.11 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.99.2.12 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -1704,7 +1704,7 @@
     # gotten, the user might get a blank page. It would be much better
     # to at least print an error message. The easiest way to do this
     # is to set $SIG{__DIE__}.
-    my $sth   = $dbh->prepare("Select * from items where
+    my $sth   = $dbh->prepare("Select *,items.notforloan as itemnotforloan 
from items where
 items.biblioitemnumber = ?")
       || die $dbh->errstr;
     my $i     = 0;
@@ -1721,7 +1721,7 @@
         # fetchrow_hashref() can fail for any number of reasons (e.g.,
         # database server crash), not just because no items match the
         # search criteria.
-        my $sth2   = $dbh->prepare("select * from issues,borrowers
+        my $sth2   = $dbh->prepare("select *, items.notforloan as 
itemnotforloan from items,issues,borrowers
 where itemnumber = ?
 and returndate is NULL
 and issues.borrowernumber = borrowers.borrowernumber");
@@ -1757,6 +1757,17 @@
         } # for
 
         $sth2->finish;
+       # get notforloan complete status if applicable
+       my $sthnflstatus = $dbh->prepare('select authorised_value from 
marc_subfield_structure where kohafield="items.notforloan"');
+       $sthnflstatus->execute;
+       my ($authorised_valuecode) = $sthnflstatus->fetchrow;
+       if ($authorised_valuecode) {
+               $sthnflstatus = $dbh->prepare("select lib from 
authorised_values where category=? and authorised_value=?");
+               
$sthnflstatus->execute($authorised_valuecode,$data->{itemnotforloan});
+               my ($lib) = $sthnflstatus->fetchrow;
+               $data->{notforloantext} = $lib;
+               warn "NOT FOR LOAN".$lib.$data->{itemnotforloan};
+       }
         $results[$i] = $data;
         $i++;
     }