Revision d4ea1fa8
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 372 | 372 |
mkdir_with_parents($path); |
| 373 | 373 |
|
| 374 | 374 |
} else {
|
| 375 |
my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);
|
|
| 375 |
my $base_path = $ENV{'SCRIPT_NAME'};
|
|
| 376 | 376 |
$base_path =~ s|[^/]+$||; |
| 377 |
$base_path =~ s|/$||; |
|
| 378 | 377 |
# wo kommt der wert für dir her? es wird doch gar nichts übergeben? fix für strict my $dir jb 21.2. |
| 379 | 378 |
if (opendir my $dir, $path) {
|
| 380 | 379 |
foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {
|
| ... | ... | |
| 390 | 389 |
|
| 391 | 390 |
push @{ $form->{WEBDAV} }, {
|
| 392 | 391 |
'name' => $fname, |
| 393 |
'link' => "$base_path/$file",
|
|
| 392 |
'link' => $base_path . $file,
|
|
| 394 | 393 |
'type' => $is_directory ? $main::locale->text('Directory') : $main::locale->text('File'),
|
| 395 | 394 |
}; |
| 396 | 395 |
} |
Auch abrufbar als: Unified diff
Nachträglicher Fix zu Bug 1332: Webdav Links in Szenarien wo lxoffice im web root installiert ist.