[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.12,1.115.2.13

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
        Biblio.pm 
Log Message:
patch from Genji (Waylon R.) to update subjects in MARC tables when systempref 
has MARC=OFF

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.12
retrieving revision 1.115.2.13
diff -C2 -r1.115.2.12 -r1.115.2.13
*** Biblio.pm   30 May 2005 11:22:41 -0000      1.115.2.12
--- Biblio.pm   31 May 2005 12:44:26 -0000      1.115.2.13
***************
*** 2067,2071 ****
      my $dbh = C4::Context->dbh;
      my $error = &OLDmodsubject( $dbh, $bibnum, $force, @subject );
!     return ($error);
  }    # sub modsubject
  
--- 2067,2081 ----
      my $dbh = C4::Context->dbh;
      my $error = &OLDmodsubject( $dbh, $bibnum, $force, @subject );
!     if ($error eq ''){
!               # When MARC is off, ensures that the MARC biblio table gets 
updated with new
!               # subjects, of course, it deletes the biblio in marc, and then 
recreates.
!               # This check is to ensure that no MARC data exists to lose.
!               if (C4::Context->preference("MARC") eq '0'){
!                       my $MARCRecord = &MARCkoha2marcBiblio($dbh,$bibnum);
!                       my $bibid = 
&MARCfind_MARCbibid_from_oldbiblionumber($dbh,$bibnum);
!                       &MARCmodbiblio($dbh,$bibid, $MARCRecord);
!               }
!       }
!       return ($error);
  }    # sub modsubject
  
***************
*** 2634,2637 ****
--- 2644,2650 ----
  # $Id$
  # $Log$
+ # Revision 1.115.2.13  2005/05/31 12:44:26  tipaul
+ # patch from Genji (Waylon R.) to update subjects in MARC tables when 
systempref has MARC=OFF
+ #
  # Revision 1.115.2.12  2005/05/30 11:22:41  tipaul
  # fixing a bug : when a field was repeated, the last field was also repeated. 
(Was due to the "empty" field in html between fields : to separate fields, in 
html, an empty field is automatically added. in MARChtml2marc, this empty field 
was not discarded correctly)