- Timestamp:
- 02/23/16 18:08:11 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrFormsA.pm
r1722 r1723 301 301 sub attr_DATE { 302 302 my ($self, $value, $name, $id) = @_; 303 304 warn "-- $name $value";305 303 306 304 if (my $time = str2time($value)) { … … 309 307 $value = $dt->dmy('/') 310 308 } 311 warn $value;312 309 313 310 return sprintf( … … 339 336 $value = $dt->dmy('/') . ' ' . $dt->hms(':') 340 337 } 341 342 warn $value;343 338 344 339 return sprintf(
Note: See TracChangeset
for help on using the changeset viewer.