[Koha-cvs] koha/cataloguing additem.pl

[paul poulain]

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;