Revision e436a6b0
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
|
} else {
|
||
|
my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);
|
||
|
$base_path =~ s|[^/]+$||;
|
||
|
$base_path =~ s|/$||;
|
||
|
|
||
|
foreach my $file (<$path/*>) {
|
||
|
my $fname = $file;
|
||
|
$fname =~ s|.*/||;
|
||
|
$form->{WEBDAV}{$fname} =
|
||
|
($ENV{"HTTPS"} ? "https://" : "http://") .
|
||
|
$ENV{'SERVER_NAME'} . "/" . $base_path . $file;
|
||
|
if (opendir $dir, $path) {
|
||
|
foreach my $file (readdir $dir) {
|
||
|
next if (($file eq '.') || ($file eq '..'));
|
||
|
|
||
|
my $fname = $file;
|
||
|
$fname =~ s|.*/||;
|
||
|
|
||
|
my $physical_file = "$path/$file";
|
||
|
|
||
|
$file = join('/', map { $form->escape($_) } grep { $_ } split m|/+|, "$path/$file");
|
||
|
$file .= '/' if (-d $physical_file);
|
||
|
|
||
|
$form->{WEBDAV}->{$fname} = ($ENV{"HTTPS"} ? "https://" : "http://") . $ENV{'SERVER_NAME'} . "/$base_path/$file";
|
||
|
}
|
||
|
|
||
|
closedir $dir;
|
||
|
}
|
||
|
}
|
||
|
|
||
| doc/changelog | ||
|---|---|---|
|
|
||
|
Bugfixes:
|
||
|
|
||
|
- Webdav: Wenn eine Pfadkomponente Leerzeichen enthielt
|
||
|
(z.B. "Storno zu ..."), dann wurden komplett falsche Links erzeugt.
|
||
|
- Bei Einkaufsrechnungen wurde das falsche Datumsfeld zur Berechnung
|
||
|
der Steuern herangezogen, sodass f?r 2006 19% benutzt wurde.
|
||
|
- Beim Erfassen von Dienstleistungen wurde beim "Erneuern" die
|
||
Auch abrufbar als: Unified diff
Webdav: Wenn eine Pfadkomponente Leerzeichen enthielt (z.B. "Storno zu ..."), dann wurden komplett falsche Links erzeugt.