[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.10,1.115.2.11

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
        Biblio.pm 
Log Message:
* removing my for variables already declared
* updating biblio.unititle  field as well as other fields in biblio table

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.10
retrieving revision 1.115.2.11
diff -C2 -r1.115.2.10 -r1.115.2.11
*** Biblio.pm   25 May 2005 09:30:50 -0000      1.115.2.10
--- Biblio.pm   25 May 2005 15:48:43 -0000      1.115.2.11
***************
*** 929,933 ****
              $row->{'author'},'' );
      }
!     my $sth2 =
        $dbh->prepare(" SELECT subject FROM bibliosubject WHERE 
biblionumber=?");
      $sth2->execute($biblionumber);
--- 929,933 ----
              $row->{'author'},'' );
      }
!     $sth2 =
        $dbh->prepare(" SELECT subject FROM bibliosubject WHERE 
biblionumber=?");
      $sth2->execute($biblionumber);
***************
*** 936,940 ****
              $row->{'subject'},'' );
      }
!     my $sth2 =
        $dbh->prepare(
          " SELECT subtitle FROM bibliosubtitle WHERE biblionumber=?");
--- 936,940 ----
              $row->{'subject'},'' );
      }
!     $sth2 =
        $dbh->prepare(
          " SELECT subtitle FROM bibliosubtitle WHERE biblionumber=?");
***************
*** 1100,1104 ****
        }
  # modify publicationyear to keep only the 1st year found
!       my $temp = $result->{'publicationyear'};
        $temp =~ m/c(\d\d\d\d)/; # search cYYYY first
        if ($1>0) {
--- 1100,1104 ----
        }
  # modify publicationyear to keep only the 1st year found
!       $temp = $result->{'publicationyear'};
        $temp =~ m/c(\d\d\d\d)/; # search cYYYY first
        if ($1>0) {
***************
*** 1353,1357 ****
  
      # add itemnumber to MARC::Record before adding the item.
!     my $sth =
        $dbh->prepare(
  "select tagfield,tagsubfield from marc_subfield_structure where 
frameworkcode=? and kohafield=?"
--- 1353,1357 ----
  
      # add itemnumber to MARC::Record before adding the item.
!     $sth =
        $dbh->prepare(
  "select tagfield,tagsubfield from marc_subfield_structure where 
frameworkcode=? and kohafield=?"
***************
*** 1463,1467 ****
      $sth =
        $dbh->prepare(
! "insert into biblio set biblionumber  = ?, title = ?, author = ?, 
copyrightdate = ?, serial = ?, seriestitle = ?, notes = ?, abstract = ?"
      );
      $sth->execute(
--- 1463,1467 ----
      $sth =
        $dbh->prepare(
! "insert into biblio set biblionumber  = ?, title = ?, author = ?, 
copyrightdate = ?, serial = ?, seriestitle = ?, notes = ?, abstract = ?, 
unititle = ?"
      );
      $sth->execute(
***************
*** 1469,1473 ****
          $biblio->{'author'}, $biblio->{'copyrightdate'},
          $biblio->{'serial'},             $biblio->{'seriestitle'},
!         $biblio->{'notes'},  $biblio->{'abstract'}
      );
  
--- 1469,1474 ----
          $biblio->{'author'}, $biblio->{'copyrightdate'},
          $biblio->{'serial'},             $biblio->{'seriestitle'},
!         $biblio->{'notes'},  $biblio->{'abstract'},
!               $biblio->{'unititle'},
      );
  
***************
*** 2631,2634 ****
--- 2632,2639 ----
  # $Id$
  # $Log$
+ # Revision 1.115.2.11  2005/05/25 15:48:43  tipaul
+ # * removing my for variables already declared
+ # * updating biblio.unititle  field as well as other fields in biblio table
+ #
  # Revision 1.115.2.10  2005/05/25 09:30:50  hdl
  # Adding NEWmodbiblioframework feature