[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)