projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Das nächste Release ist 2.4.3.
[kivitendo-erp.git]
/
SL
/
Common.pm
diff --git
a/SL/Common.pm
b/SL/Common.pm
index
c67c58c
..
5ac63c6
100644
(file)
--- a/
SL/Common.pm
+++ b/
SL/Common.pm
@@
-260,7
+260,7
@@
sub webdav_folder {
my ($path, $number);
my ($path, $number);
- $form->{WEBDAV} =
{}
;
+ $form->{WEBDAV} =
[]
;
if ($form->{type} eq "sales_quotation") {
($path, $number) = ("angebote", $form->{quonumber});
if ($form->{type} eq "sales_quotation") {
($path, $number) = ("angebote", $form->{quonumber});
@@
-293,18
+293,22
@@
sub webdav_folder {
$base_path =~ s|/$||;
if (opendir $dir, $path) {
$base_path =~ s|/$||;
if (opendir $dir, $path) {
- foreach my $file (readdir $dir) {
+ foreach my $file (
sort { lc $a cmp lc $b }
readdir $dir) {
next if (($file eq '.') || ($file eq '..'));
my $fname = $file;
$fname =~ s|.*/||;
next if (($file eq '.') || ($file eq '..'));
my $fname = $file;
$fname =~ s|.*/||;
- my $
physical_file =
"$path/$file";
+ my $
is_directory = -d
"$path/$file";
$file = join('/', map { $form->escape($_) } grep { $_ } split m|/+|, "$path/$file");
$file = join('/', map { $form->escape($_) } grep { $_ } split m|/+|, "$path/$file");
- $file .= '/' if (
-d $physical_file
);
+ $file .= '/' if (
$is_directory
);
- $form->{WEBDAV}->{$fname} = ($ENV{"HTTPS"} ? "https://" : "http://") . $ENV{'SERVER_NAME'} . "/$base_path/$file";
+ push @{ $form->{WEBDAV} }, {
+ 'name' => $fname,
+ 'link' => ($ENV{"HTTPS"} ? "https://" : "http://") . $ENV{'SERVER_NAME'} . "/$base_path/$file",
+ 'type' => $is_directory ? $main::locale->text('Directory') : $main::locale->text('File'),
+ };
}
closedir $dir;
}
closedir $dir;