[Koha-cvs] koha/cataloguing addbiblio.pl [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/11/02 16:18:07

Modified files:
        cataloguing    : addbiblio.pl 

Log message:
        setting short & long desc

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/addbiblio.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.14.2.9&r2=1.14.2.10

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/addbiblio.pl,v
retrieving revision 1.14.2.9
retrieving revision 1.14.2.10
diff -u -b -r1.14.2.9 -r1.14.2.10
--- addbiblio.pl        13 Oct 2006 10:25:55 -0000      1.14.2.9
+++ addbiblio.pl        2 Nov 2006 16:18:07 -0000       1.14.2.10
@@ -1,6 +1,6 @@
 #!/usr/bin/perl 
 
-# $Id: addbiblio.pl,v 1.14.2.9 2006/10/13 10:25:55 toins Exp $
+# $Id: addbiblio.pl,v 1.14.2.10 2006/11/02 16:18:07 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -229,7 +229,7 @@
        my %subfield_data;
        $subfield_data{tag}=$tag;
        $subfield_data{subfield}=$subfield;
-       $subfield_data{marc_lib}="<span 
id=\"error$i\">".$tagslib->{$tag}->{$subfield}->{lib}."</span>";
+       $subfield_data{marc_lib}="<span id=\"error$i\" 
title=\"".$tagslib->{$tag}->{$subfield}->{lib}."\">".substr($tagslib->{$tag}->{$subfield}->{lib},0,15)."</span>";
        $subfield_data{marc_lib_plain}=$tagslib->{$tag}->{$subfield}->{lib};
        $subfield_data{tag_mandatory}=$tagslib->{$tag}->{mandatory};
        $subfield_data{mandatory}=$tagslib->{$tag}->{$subfield}->{mandatory};
@@ -502,6 +502,8 @@
     } else {
         my $xml = 
MARChtml2xml(address@hidden,address@hidden,address@hidden,address@hidden,address@hidden);
         
$record=MARC::Record->new_from_xml($xml,C4::Context->preference('TemplateEncoding'),C4::Context->preference('marcflavour'));
+        warn "MARC :".$record->as_formatted;
+#         die;
     }
        # check for a duplicate
        my ($duplicatebiblionumber,$duplicatebibid,$duplicatetitle) = 
FindDuplicate($record) if ($op eq "addbiblio") && (!$is_a_modif);