From b98c3aa57345ef52b6dfacdb7465bdb506de378a Mon Sep 17 00:00:00 2001 From: rangi Date: Thu, 27 May 2004 21:47:21 +0000 Subject: [PATCH] Fix for bug 787 --- C4/Biblio.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index e54028e569..41bbc18edd 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1793,6 +1793,11 @@ sub newbiblioitem { my ($biblioitem) = @_; 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}); &MARCaddbiblio($dbh,$MARCbiblio,$biblioitem->{biblionumber},$bibid); @@ -2194,6 +2199,9 @@ Paul POULAIN paul.poulain@free.fr # $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 # -- 2.39.5