Changeset 2342 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 04/09/20 18:01:11 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm
r2327 r2342 9 9 use LATMOS::Accounts::Log; 10 10 use LATMOS::Accounts::Bases::Attributes; 11 use LATMOS::Accounts::Utils; 11 12 use Crypt::Cracklib; 12 13 … … 338 339 } 339 340 } else { 340 for ($modifier) { 341 $res = $val; 342 foreach (split('\|' , $modifier)) { 341 343 /upper/ and do { 342 $res = uc($val); 343 last; 344 $res = uc($res); 345 next; 346 }; 347 /ucfirst/ and do { 348 $res = ucfirst($res); 349 next; 344 350 }; 345 351 /lower/ and do { 346 $res = lc($val); 347 last; 352 $res = lc($res); 353 next; 354 }; 355 /lcfirst/ and do { 356 $res = lcfirst($res); 357 next; 358 }; 359 /ascii/ and do { 360 $res = LATMOS::Accounts::Utils::to_ascii($res); 361 next; 348 362 }; 349 363 $res = sprintf('%' . ($modifier || 's'), ref $val ? join(',', @$val) : (defined($val) ? $val : ''))
Note: See TracChangeset
for help on using the changeset viewer.