[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/cataloguing additem.pl
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/cataloguing additem.pl |
Date: |
Mon, 02 Jul 2007 09:50:03 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: paul poulain <tipaul> 07/07/02 09:50:03
Modified files:
cataloguing : additem.pl
Log message:
unimarc bugfix : the encoding is in field 100 in UNIMARC. when
TransformHTMLtoXML on an item, you must not automatically add a 100 field in
items, otherwise there will be 2 100 fields in the biblio, which is wrong
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/additem.pl?cvsroot=koha&r1=1.17&r2=1.18
Patches:
Index: additem.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/additem.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- additem.pl 22 May 2007 08:50:47 -0000 1.17
+++ additem.pl 2 Jul 2007 09:50:03 -0000 1.18
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: additem.pl,v 1.17 2007/05/22 08:50:47 hdl Exp $
+# $Id: additem.pl,v 1.18 2007/07/02 09:50:03 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -83,7 +83,7 @@
# build indicator hash.
my @ind_tag = $input->param('ind_tag');
my @indicator = $input->param('indicator');
- my $xml =
TransformHtmlToXml(address@hidden,address@hidden,address@hidden,address@hidden,address@hidden);
+ my $xml =
TransformHtmlToXml(address@hidden,address@hidden,address@hidden,address@hidden,address@hidden,
'ITEM');
my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
# if autoBarcode is ON, calculate barcode...
if (C4::Context->preference('autoBarcode')) {
@@ -144,7 +144,7 @@
my @ind_tag = $input->param('ind_tag');
my @indicator = $input->param('indicator');
# my $itemnumber = $input->param('itemnumber');
- my $xml =
TransformHtmlToXml(address@hidden,address@hidden,address@hidden,address@hidden,address@hidden);
+ my $xml =
TransformHtmlToXml(address@hidden,address@hidden,address@hidden,address@hidden,address@hidden,'ITEM');
my $itemrecord=MARC::Record::new_from_xml($xml, 'UTF-8');
# MARC::Record builded => now, record in DB
# warn "R: ".$record->as_formatted;
- [Koha-cvs] koha/cataloguing additem.pl,
paul poulain <=