Revision 7e2bf6ca
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
|
|
||
|
my ($path, $number);
|
||
|
|
||
|
$form->{WEBDAV} = {};
|
||
|
$form->{WEBDAV} = [];
|
||
|
|
||
|
if ($form->{type} eq "sales_quotation") {
|
||
|
($path, $number) = ("angebote", $form->{quonumber});
|
||
| ... | ... | |
|
$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|.*/||;
|
||
|
|
||
|
my $physical_file = "$path/$file";
|
||
|
my $is_directory = -d "$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;
|
||
Auch abrufbar als: Unified diff
Webdav: Die Links werden nicht mehr wortwörtlich angezeigt, sondern der Typ (Datei oder Verzeichnis) wird ausgegeben und als Link hinterlegt.