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

[paul poulain]

Index: koha/C4/Search.pm
diff -u koha/C4/Search.pm:1.99.2.9 koha/C4/Search.pm:1.99.2.10
--- koha/C4/Search.pm:1.99.2.9  Wed Sep 28 14:35:57 2005
+++ koha/C4/Search.pm   Thu Dec  1 15:31:27 2005
@@ -25,11 +25,12 @@
        # FIXME - C4::Search uses C4::Reserves2, which uses C4::Search.
        # So Perl complains that all of the functions here get redefined.
 use C4::Date;
+use C4::Biblio;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.99.2.9 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.99.2.10 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -1521,6 +1522,7 @@
        $sth->finish;
        $sth   = $dbh->prepare("Select * from bibliosubject where biblionumber 
= ?");
        $sth->execute($bibnum);
+       # handle subjects : DEPRECATED ?
        my @subjects;
        while (my $dat = $sth->fetchrow_hashref){
                my %line;
@@ -1529,6 +1531,7 @@
        } # while
        $data->{subjects} = address@hidden;
        $sth->finish;
+       # handle additional authors
        $sth   = $dbh->prepare("Select * from additionalauthors where 
biblionumber = ?");
        $sth->execute($bibnum);
        while (my $dat = $sth->fetchrow_hashref){
@@ -1537,6 +1540,8 @@
        chop $data->{'additionalauthors'};
        chop $data->{'additionalauthors'};
        chop $data->{'additionalauthors'};
+       # handle ISBN : reintroduce - if there are none
+       $data->{'isbn'} = DisplayISBN($data->{'isbn'});
        $sth->finish;
        return($data);
 } # sub bibdata