[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} = \@subjects;
 	$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