/[koha]/koha/C4/Search.pm
ViewVC logotype

Diff of /koha/C4/Search.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.99.2.9 by hdl, Wed Sep 28 14:35:57 2005 UTC revision 1.99.2.10 by tipaul, Thu Dec 1 15:31:27 2005 UTC
# Line 25  use C4::Reserves2; Line 25  use C4::Reserves2;
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    
# Line 1521  sub bibdata { Line 1522  sub bibdata {
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;
# Line 1529  sub bibdata { Line 1531  sub bibdata {
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){
# Line 1537  sub bibdata { Line 1540  sub bibdata {
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

Legend:
Removed from v.1.99.2.9  
changed lines
  Added in v.1.99.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26