[Koha-cvs] CVS: koha/C4 Biblio.pm,1.88,1.89

[Chris Cormack]

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

Modified Files:
        Biblio.pm 
Log Message:
Fix for bug 787


Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -C2 -r1.88 -r1.89
*** Biblio.pm   18 May 2004 15:23:49 -0000      1.88
--- Biblio.pm   27 May 2004 21:47:21 -0000      1.89
***************
*** 1794,1797 ****
--- 1794,1802 ----
        my $dbh   = C4::Context->dbh;
        my $bibitemnum = &OLDnewbiblioitem($dbh,$biblioitem);
+     ################################################################
+     ## Fix template and shift this to newbiblio
+         my @subjects=split(/\n/,$biblioitem->{'subjectheadings'});
+         modsubject($biblioitem->{'biblionumber'},1,@subjects);
+     ################################################################
        my $MARCbiblio= MARCkoha2marcBiblio($dbh,0,$bibitemnum); # the 0 means 
"do NOT retrieve biblio, only biblioitem, in the MARC record
        my $bibid = 
&MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblioitem->{biblionumber});
***************
*** 2195,2198 ****
--- 2200,2206 ----
  # $Id$
  # $Log$
+ # Revision 1.89  2004/05/27 21:47:21  rangi
+ # Fix for bug 787
+ #
  # Revision 1.88  2004/05/18 15:23:49  tipaul
  # framework management : 1 MARC framework for each itemtype