From: Bernd Blessmann <bibi@online.de>
Date: Thu, 10 May 2012 19:37:41 +0000 (+0200)
Subject: CVars: Options für textfield und text mit den configs setzen.
X-Git-Tag: release-3.0.0beta1~337^2
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/a7e924f559065d898ed12d8c44cbfa727a5b3b77?ds=sidebyside;hp=-c

CVars: Options für textfield und text mit den configs setzen.

Sonst gehen diese in den Belegen nach einem Erneuern verloren.
Zum Nachvollziehen: CVar von Typ Textfeld bei Waren anlegen und
in Belegen editierbar machen. Dann Beleg erstellen, Ware eingeben,
2. Zeile ansehen. Erneuern und nochmals 2. Zeile ansehen. Vor diesem
commit schrumpfte das Textfeld.
---

a7e924f559065d898ed12d8c44cbfa727a5b3b77
diff --git a/SL/CVar.pm b/SL/CVar.pm
index c0b3f43f0..cb1cd658f 100644
--- a/SL/CVar.pm
+++ b/SL/CVar.pm
@@ -42,6 +42,15 @@ SQL
       } elsif ($config->{type} eq 'number') {
         $config->{precision} = $1 if ($config->{options} =~ m/precision=(\d+)/i);
 
+      } elsif ($config->{type} eq 'textfield') {
+        $config->{width}  = 30;
+        $config->{height} =  5;
+        $config->{width}  = $1 if ($config->{options} =~ m/width=(\d+)/i);
+        $config->{height} = $1 if ($config->{options} =~ m/height=(\d+)/i);
+
+      } elsif ($config->{type} eq 'text') {
+        $config->{maxlength} = $1 if ($config->{options} =~ m/maxlength=(\d+)/i);
+
       }
 
       $self->_unpack_flags($config);