[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(\@tags,\@subfields,\@values,\@indicator,\@ind_tag);
         $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);