Revision 6815c0cc
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 340 | 340 |
} |
| 341 | 341 |
|
| 342 | 342 |
sub parse_date {
|
| 343 |
$main::lxdebug->enter_sub(); |
|
| 343 |
$main::lxdebug->enter_sub(2);
|
|
| 344 | 344 |
|
| 345 | 345 |
my ($self, $myconfig, $date, $longformat) = @_; |
| 346 | 346 |
my ($spc, $yy, $mm, $dd); |
| 347 | 347 |
|
| 348 | 348 |
unless ($date) {
|
| 349 |
$main::lxdebug->leave_sub(); |
|
| 349 |
$main::lxdebug->leave_sub(2);
|
|
| 350 | 350 |
return (); |
| 351 | 351 |
} |
| 352 | 352 |
|
| ... | ... | |
| 373 | 373 |
$yy = ($yy < 70) ? $yy + 2000 : $yy; |
| 374 | 374 |
$yy = ($yy >= 70 && $yy <= 99) ? $yy + 1900 : $yy; |
| 375 | 375 |
|
| 376 |
$main::lxdebug->leave_sub(); |
|
| 376 |
$main::lxdebug->leave_sub(2);
|
|
| 377 | 377 |
return ($yy, $mm, $dd); |
| 378 | 378 |
} |
| 379 | 379 |
|
| ... | ... | |
| 385 | 385 |
} |
| 386 | 386 |
|
| 387 | 387 |
sub reformat_date {
|
| 388 |
$main::lxdebug->enter_sub(); |
|
| 388 |
$main::lxdebug->enter_sub(2);
|
|
| 389 | 389 |
|
| 390 | 390 |
my ($self, $myconfig, $date, $output_format, $longformat) = @_; |
| 391 | 391 |
|
| 392 |
$main::lxdebug->leave_sub() and return "" unless ($date); |
|
| 392 |
$main::lxdebug->leave_sub(2) and return "" unless ($date);
|
|
| 393 | 393 |
|
| 394 | 394 |
my ($yy, $mm, $dd) = $self->parse_date($myconfig, $date); |
| 395 | 395 |
|
| ... | ... | |
| 404 | 404 |
$output_format =~ /y+/; |
| 405 | 405 |
substr($output_format, $-[0], $+[0] - $-[0]) = $yy; |
| 406 | 406 |
|
| 407 |
$main::lxdebug->leave_sub(); |
|
| 407 |
$main::lxdebug->leave_sub(2);
|
|
| 408 | 408 |
|
| 409 | 409 |
return $output_format; |
| 410 | 410 |
} |
Auch abrufbar als: Unified diff
SL/Locale Zeitfunktionen auf tracelevel 2 gesetzt.