koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.3,1.115.2.4


From: Paul POULAIN
Subject: [Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.3,1.115.2.4
Date: Thu, 17 Feb 2005 04:44:28 -0800

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32366/C4

Modified Files:
      Tag: rel_2_2
        Biblio.pm 
Log Message:
bug in acquisition : the title was also stored as subtitle.

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.3
retrieving revision 1.115.2.4
diff -C2 -r1.115.2.3 -r1.115.2.4
*** Biblio.pm   10 Feb 2005 13:14:36 -0000      1.115.2.3
--- Biblio.pm   17 Feb 2005 12:44:25 -0000      1.115.2.4
***************
*** 957,961 ****
      $sth2->execute($biblionumber);
      while ( my $row = $sth2->fetchrow_hashref ) {
!         &MARCkoha2marcOnefield( $sth, $record, "bibliosubtitle.title",
              $row->{'subtitle'},'' );
      }
--- 957,961 ----
      $sth2->execute($biblionumber);
      while ( my $row = $sth2->fetchrow_hashref ) {
!         &MARCkoha2marcOnefield( $sth, $record, "bibliosubtitle.subtitle",
              $row->{'subtitle'},'' );
      }
***************
*** 1235,1239 ****
      }
      ( $tagfield, $tagsubfield ) =
!       MARCfind_marc_from_kohafield( $dbh, 
"bibliosubtitle.title",$frameworkcode );
      my @subtitlefields = $record->field($tagfield);
      foreach my $subtitlefield (@subtitlefields) {
--- 1235,1239 ----
      }
      ( $tagfield, $tagsubfield ) =
!       MARCfind_marc_from_kohafield( $dbh, 
"bibliosubtitle.subtitle",$frameworkcode );
      my @subtitlefields = $record->field($tagfield);
      foreach my $subtitlefield (@subtitlefields) {
***************
*** 1729,1733 ****
        $dbh->prepare(
          "insert into bibliosubtitle set biblionumber = ?, subtitle = ?");
!     $sth->execute( $bibnum, $subtitle );
      $sth->finish;
  }
--- 1729,1733 ----
        $dbh->prepare(
          "insert into bibliosubtitle set biblionumber = ?, subtitle = ?");
!     $sth->execute( $bibnum, $subtitle ) if $subtitle;
      $sth->finish;
  }
***************
*** 2637,2640 ****
--- 2637,2643 ----
  # $Id$
  # $Log$
+ # Revision 1.115.2.4  2005/02/17 12:44:25  tipaul
+ # bug in acquisition : the title was also stored as subtitle.
+ #
  # Revision 1.115.2.3  2005/02/10 13:14:36  tipaul
  # * multiple main authors are now correctly handled in simple (non-MARC) view




reply via email to

[Prev in Thread] Current Thread [Next in Thread]