[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\">"; #"