Changeset 2342

Timestamp:

04/09/20 18:01:11 (4 years ago)

Author:

nanardon

Message:

Add ascii, {u,l}cfirst modifier, allow to pipe them

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -9 +9 @@
 use LATMOS::Accounts::Log;
 use LATMOS::Accounts::Bases::Attributes;
+use LATMOS::Accounts::Utils;
 use Crypt::Cracklib;
 
@@ -338 +339 @@
                 }
             } else {
-                for ($modifier) {
+                $res = $val;
+                foreach (split('\|' , $modifier)) {
                     /upper/ and do {
-                        $res = uc($val);
-                        last;
+                        $res = uc($res);
+                        next;
+                    };
+                    /ucfirst/ and do {
+                        $res = ucfirst($res);
+                        next;
                     };
                     /lower/ and do {
-                        $res = lc($val);
-                        last;
+                        $res = lc($res);
+                        next;
+                    };
+                    /lcfirst/ and do {
+                        $res = lcfirst($res);
+                        next;
+                    };
+                    /ascii/ and do {
+                        $res = LATMOS::Accounts::Utils::to_ascii($res);
+                        next;
                     };
                     $res = sprintf('%' . ($modifier || 's'), ref $val ? join(',', @$val) : (defined($val) ? $val : ''))