[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/15 16:19:57

Modified files:
	cataloguing    : addbiblio.pl 

Log message:
	automatically setting notes field to a textarea (marc21 : 5xx, unimarc, 3xx)

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

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/addbiblio.pl,v
retrieving revision 1.14.2.10
retrieving revision 1.14.2.11
diff -u -b -r1.14.2.10 -r1.14.2.11
--- addbiblio.pl	2 Nov 2006 16:18:07 -0000	1.14.2.10
+++ addbiblio.pl	15 Nov 2006 16:19:57 -0000	1.14.2.11
@@ -1,6 +1,6 @@
 #!/usr/bin/perl 
 
-# $Id: addbiblio.pl,v 1.14.2.10 2006/11/02 16:18:07 tipaul Exp $
+# $Id: addbiblio.pl,v 1.14.2.11 2006/11/15 16:19:57 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -263,7 +263,7 @@
 		$subfield_data{marc_value}="<input onblur=\"this.style.backgroundColor='#ffffff';\" onfocus=\"this.style.backgroundColor='#ffff00'; \" tabindex=\"1\" type=\"text\" name=\"field_value\" value=\"$value\" size=\"70\" maxlength=\"255\" >";
 	# it's a standard field
 	} else {
-		if (length($value) >100) {
+		if (length($value) >100 or ($tag >=300 and $tag <400 && C4::Context->preference("marcflavour") eq "UNIMARC") or ($tag >=500 and $tag <600 && C4::Context->preference("marcflavour") eq "MARC21")) {
 			$subfield_data{marc_value}="<textarea tabindex=\"1\" name=\"field_value\" cols=\"70\" rows=\"5\" >$value</textarea>";
 		} else {
 			$subfield_data{marc_value}="<input onblur=\"this.style.backgroundColor='#ffffff';\" onfocus=\"this.style.backgroundColor='#ffff00'; \" tabindex=\"1\" type=\"text\" name=\"field_value\" value=\"$value\" size=\"70\">"; #"