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

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/12/04 04:58:06

Modified files:
        C4             : Search.pm 

Log message:
        fix for bug 1186: 
        Detail page doesn't show authorized value for lost/damaged/notforloan 
statuses
        
        Owen, can you update the template in cvs and close out the bug?

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.99.2.11.2.33&r2=1.99.2.11.2.34

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.99.2.11.2.33
retrieving revision 1.99.2.11.2.34
diff -u -b -r1.99.2.11.2.33 -r1.99.2.11.2.34
--- Search.pm   21 Nov 2006 15:37:40 -0000      1.99.2.11.2.33
+++ Search.pm   4 Dec 2006 04:58:05 -0000       1.99.2.11.2.34
@@ -40,7 +40,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.2.33 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.99.2.11.2.34 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -1287,7 +1287,8 @@
                        }
                }
                $isth->finish;
-       #get branch information.....
+
+               # get branch information.....
                my $bsth=$dbh->prepare("SELECT * FROM branches WHERE branchcode 
= ?");
                $bsth->execute($data->{'holdingbranch'});
                if (my $bdata=$bsth->fetchrow_hashref){
@@ -1297,6 +1298,7 @@
                $data->{'datelastseen'}=$date;
                $data->{'datedue'}=$datedue;
                $data->{'count_reserves'} = $count_reserves;
+
        # get notforloan complete status if applicable
                my $sthnflstatus = $dbh->prepare('select authorised_value from 
marc_subfield_structure where kohafield="items.notforloan"');
                $sthnflstatus->execute;
@@ -1306,12 +1308,26 @@
                        $sthnflstatus = $dbh->prepare("select lib from 
authorised_values where category=? and authorised_value=?");
                        
$sthnflstatus->execute($authorised_valuecode,$data->{notforloan});
                        my ($lib) = $sthnflstatus->fetchrow;
-               #       warn "lib: $lib from 
$authorised_valuecode,$data->{notforloan}";
-                       $data->{notforloan} = $lib;
+                       #warn "lib: $lib from 
$authorised_valuecode,$data->{notforloan}";
+                       $data->{notforloantext} = $lib;
                }
 
-# my stack procedures
+               # get itemlost auth value if applicable
 
+           $sthnflstatus = $dbh->prepare('select authorised_value from 
marc_subfield_structure where kohafield="items.itemlost"');
+        $sthnflstatus->execute;
+        $authorised_valuecode = $sthnflstatus->fetchrow;
+        if ($authorised_valuecode) {
+            #warn "authorised valuecode: $authorised_valuecode";
+                       warn "itemlost: ".$data->{itemlost};
+            $sthnflstatus = $dbh->prepare("select lib from authorised_values 
where category=? and authorised_value=?");
+            $sthnflstatus->execute($authorised_valuecode,$data->{itemlost});
+            my ($lib) = $sthnflstatus->fetchrow;
+            warn "lib: $lib from $authorised_valuecode,$data->{itemlost}";
+            $data->{itemlosttext} = $lib;
+        }
+
+               # my stack procedures
                my $stackstatus = $dbh->prepare('select authorised_value from 
marc_subfield_structure where kohafield="items.stack"');
                $stackstatus->execute;
                
@@ -1323,6 +1339,7 @@
                        my ($lib) = $stackstatus->fetchrow;
                        $data->{stack} = $lib;
                }
+
                $results[$i]=$data;
                $i++;
        }