25 |
# FIXME - C4::Search uses C4::Reserves2, which uses C4::Search. |
# FIXME - C4::Search uses C4::Reserves2, which uses C4::Search. |
26 |
# So Perl complains that all of the functions here get redefined. |
# So Perl complains that all of the functions here get redefined. |
27 |
use C4::Date; |
use C4::Date; |
28 |
|
use C4::Biblio; |
29 |
|
|
30 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
31 |
|
|
1522 |
$sth->finish; |
$sth->finish; |
1523 |
$sth = $dbh->prepare("Select * from bibliosubject where biblionumber = ?"); |
$sth = $dbh->prepare("Select * from bibliosubject where biblionumber = ?"); |
1524 |
$sth->execute($bibnum); |
$sth->execute($bibnum); |
1525 |
|
# handle subjects : DEPRECATED ? |
1526 |
my @subjects; |
my @subjects; |
1527 |
while (my $dat = $sth->fetchrow_hashref){ |
while (my $dat = $sth->fetchrow_hashref){ |
1528 |
my %line; |
my %line; |
1531 |
} # while |
} # while |
1532 |
$data->{subjects} = \@subjects; |
$data->{subjects} = \@subjects; |
1533 |
$sth->finish; |
$sth->finish; |
1534 |
|
# handle additional authors |
1535 |
$sth = $dbh->prepare("Select * from additionalauthors where biblionumber = ?"); |
$sth = $dbh->prepare("Select * from additionalauthors where biblionumber = ?"); |
1536 |
$sth->execute($bibnum); |
$sth->execute($bibnum); |
1537 |
while (my $dat = $sth->fetchrow_hashref){ |
while (my $dat = $sth->fetchrow_hashref){ |
1540 |
chop $data->{'additionalauthors'}; |
chop $data->{'additionalauthors'}; |
1541 |
chop $data->{'additionalauthors'}; |
chop $data->{'additionalauthors'}; |
1542 |
chop $data->{'additionalauthors'}; |
chop $data->{'additionalauthors'}; |
1543 |
|
# handle ISBN : reintroduce - if there are none |
1544 |
|
$data->{'isbn'} = DisplayISBN($data->{'isbn'}); |
1545 |
$sth->finish; |
$sth->finish; |
1546 |
return($data); |
return($data); |
1547 |
} # sub bibdata |
} # sub bibdata |