[Koha-cvs] CVS: koha/C4 Biblio.pm,1.118,1.119

[Waylon Robertson]

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

Modified Files:
	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.118
retrieving revision 1.119
diff -C2 -r1.118 -r1.119
*** Biblio.pm	4 May 2005 15:40:01 -0000	1.118
--- Biblio.pm	1 Jun 2005 20:43:58 -0000	1.119
***************
*** 2057,2060 ****
--- 2057,2072 ----
      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
***************
*** 2624,2627 ****
--- 2636,2642 ----
  # $Id$
  # $Log$
+ # Revision 1.119  2005/06/01 20:43:58  genjimoto
+ # patch from Genji (Waylon R.) to update subjects in MARC tables when systempref has MARC=OFF
+ #
  # Revision 1.118  2005/05/04 15:40:01  tipaul
  # synch'ing 2.2 and head