From 59921d60b3d1840d768daa45a8f1a6187c828384 Mon Sep 17 00:00:00 2001
From: Juanjo Menent <jmenent@2byte.es>
Date: Fri, 21 Jan 2022 13:38:59 +0100
Subject: [PATCH] Length label control

---
 htdocs/admin/dict.php | 31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

diff --git a/htdocs/admin/dict.php b/htdocs/admin/dict.php
index 5245e60ad67..0b2404050e6 100644
--- a/htdocs/admin/dict.php
+++ b/htdocs/admin/dict.php
@@ -3,7 +3,7 @@
  * Copyright (C) 2004-2018	Laurent Destailleur		<eldy@users.sourceforge.net>
  * Copyright (C) 2004		Benoit Mortier			<benoit.mortier@opensides.be>
  * Copyright (C) 2005-2017	Regis Houssin			<regis.houssin@inodbox.com>
- * Copyright (C) 2010-2016	Juanjo Menent			<jmenent@2byte.es>
+ * Copyright (C) 2010-2022	Juanjo Menent			<jmenent@2byte.es>
  * Copyright (C) 2011-2021	Philippe Grand			<philippe.grand@atoo-net.com>
  * Copyright (C) 2011		Remy Younes				<ryounes@gmail.com>
  * Copyright (C) 2012-2015	Marcos García			<marcosgdf@gmail.com>
@@ -2408,6 +2408,33 @@ function fieldList($fieldlist, $obj = '', $tabname = '', $context = '')
 					$fieldValue = '0';
 				}
 			}
+
+			// Labels Length
+			$maxlength = '';
+			if (in_array($fieldlist[$field], array('libelle', 'label'))) {
+				if ($fieldlist[$field] == 'label' || $fieldlist[$field] == 'libelle') {
+					switch ($tabname) {
+						case MAIN_DB_PREFIX . 'c_accounting_category':
+						case MAIN_DB_PREFIX . 'c_ecotaxe':
+						case MAIN_DB_PREFIX . 'c_email_senderprofile':
+						case MAIN_DB_PREFIX . 'c_forme_juridique':
+						case MAIN_DB_PREFIX . 'c_holiday_types':
+						case MAIN_DB_PREFIX . 'c_payment_term':
+						case MAIN_DB_PREFIX . 'c_transport_mode':
+							$maxlength = ' maxlength="255"';
+							break;
+						case MAIN_DB_PREFIX . 'c_email_templates':
+							$maxlength = ' maxlength="180"';
+							break;
+						case MAIN_DB_PREFIX . 'c_socialnetworks':
+							$maxlength = ' maxlength="150"';
+							break;
+						default:
+							$maxlength = ' maxlength="128"';
+					}
+				}
+			}
+
 			print '<td class="'.$classtd.'">';
 			$transfound = 0;
 			$transkey = '';
@@ -2426,7 +2453,7 @@ function fieldList($fieldlist, $obj = '', $tabname = '', $context = '')
 				}
 			}
 			if (!$transfound) {
-				print '<input type="text" class="flat'.($class ? ' '.$class : '').'" value="'.dol_escape_htmltag($fieldValue).'" name="'.$fieldlist[$field].'">';
+				print '<input type="text" class="flat'.($class ? ' '.$class : '').'"'.($maxlength ? ' '.$maxlength : '').' value="'.dol_escape_htmltag($fieldValue).'" name="'.$fieldlist[$field].'">';
 			} else {
 				print '<input type="hidden" name="'.$fieldlist[$field].'" value="'.$transkey.'">';
 			}