projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2605ba7
)
Nachträglicher Fix zu Bug 1332: Webdav Links in Szenarien wo lxoffice im web root...
author
Sven Schöling
<s.schoeling@linet-services.de>
Wed, 18 May 2011 13:25:04 +0000
(15:25 +0200)
committer
Sven Schöling
<s.schoeling@linet-services.de>
Wed, 18 May 2011 13:25:04 +0000
(15:25 +0200)
SL/Common.pm
patch
|
blob
|
history
diff --git
a/SL/Common.pm
b/SL/Common.pm
index
dae7532
..
c0bca01
100644
(file)
--- a/
SL/Common.pm
+++ b/
SL/Common.pm
@@
-372,9
+372,8
@@
sub webdav_folder {
mkdir_with_parents($path);
} else {
mkdir_with_parents($path);
} else {
- my $base_path =
substr($ENV{'SCRIPT_NAME'}, 1)
;
+ my $base_path =
$ENV{'SCRIPT_NAME'}
;
$base_path =~ s|[^/]+$||;
$base_path =~ s|[^/]+$||;
- $base_path =~ s|/$||;
# wo kommt der wert für dir her? es wird doch gar nichts übergeben? fix für strict my $dir jb 21.2.
if (opendir my $dir, $path) {
foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {
# wo kommt der wert für dir her? es wird doch gar nichts übergeben? fix für strict my $dir jb 21.2.
if (opendir my $dir, $path) {
foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {
@@
-390,7
+389,7
@@
sub webdav_folder {
push @{ $form->{WEBDAV} }, {
'name' => $fname,
push @{ $form->{WEBDAV} }, {
'name' => $fname,
- 'link' =>
"$base_path/$file"
,
+ 'link' =>
$base_path . $file
,
'type' => $is_directory ? $main::locale->text('Directory') : $main::locale->text('File'),
};
}
'type' => $is_directory ? $main::locale->text('Directory') : $main::locale->text('File'),
};
}