Revision 8cd05ad6
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 58 | 58 |
my $path; |
| 59 | 59 |
|
| 60 | 60 |
if ($token =~ m|^(\d+)-(\d+)-(\d+)$|) {
|
| 61 |
$path = "${main::userspath}/datev-export-${1}-${2}-${3}";
|
|
| 61 |
$path = $::lx_office_conf{paths}->{userspath} . "/datev-export-${1}-${2}-${3}";
|
|
| 62 | 62 |
} |
| 63 | 63 |
|
| 64 | 64 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 84 | 84 |
sub clean_temporary_directories {
|
| 85 | 85 |
$main::lxdebug->enter_sub(); |
| 86 | 86 |
|
| 87 |
foreach my $path (glob "${main::userspath}/datev-export-*") {
|
|
| 87 |
foreach my $path (glob($::lx_office_conf{paths}->{userspath} . "/datev-export-*")) {
|
|
| 88 | 88 |
next unless (-d $path); |
| 89 | 89 |
|
| 90 | 90 |
my $mtime = (stat($path))[9]; |
Auch abrufbar als: Unified diff
Globale Variablen $::userspath, $::templates, $::membersfile nach %::lx_office_conf verschoben