[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.78.2.8,1.78.2.9
From: |
Chris Cormack |
Subject: |
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.78.2.8,1.78.2.9 |
Date: |
Thu, 27 May 2004 14:43:16 -0700 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28098
Modified Files:
Tag: rel_2_0
Biblio.pm
Log Message:
Fix for bug 787 subjects not being saved
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.78.2.8
retrieving revision 1.78.2.9
diff -C2 -r1.78.2.8 -r1.78.2.9
*** Biblio.pm 25 Mar 2004 13:22:06 -0000 1.78.2.8
--- Biblio.pm 27 May 2004 21:43:10 -0000 1.78.2.9
***************
*** 1776,1779 ****
--- 1776,1784 ----
my $dbh = C4::Context->dbh;
my $bibitemnum = &OLDnewbiblioitem($dbh,$biblioitem);
+ # fix for bug 787, this should really be in new biblio,
+ # subjects belong there, but somehow they got templated in the biblioitem
section
+ # this will need to be fixed for 2.2
+ 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.78.2.9 2004/05/27 21:43:10 rangi
+ # Fix for bug 787 subjects not being saved
+ #
# Revision 1.78.2.8 2004/03/25 13:22:06 tipaul
# * removing | in MARC datas (| should never be sent. In BNF z3950 server,
the | is added at the beginning of almost every title. It's an historic feature
that means nothing now but has not been deleted)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Biblio.pm,1.78.2.8,1.78.2.9,
Chris Cormack <=