Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e436a6b0

Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt

  • ID e436a6b05600897aed8c5420d44bf4e1b39cb74f
  • Vorgänger 5b5a8e41
  • Nachfolger 7e2bf6ca

Webdav: Wenn eine Pfadkomponente Leerzeichen enthielt (z.B. "Storno zu ..."), dann wurden komplett falsche Links erzeugt.

Unterschiede anzeigen:

SL/Common.pm
290 290
  } else {
291 291
    my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);
292 292
    $base_path =~ s|[^/]+$||;
293
    $base_path =~ s|/$||;
293 294

  
294
    foreach my $file (<$path/*>) {
295
      my $fname = $file;
296
      $fname =~ s|.*/||;
297
      $form->{WEBDAV}{$fname} =
298
        ($ENV{"HTTPS"} ? "https://" : "http://") .
299
        $ENV{'SERVER_NAME'} . "/" . $base_path . $file;
295
    if (opendir $dir, $path) {
296
      foreach my $file (readdir $dir) {
297
        next if (($file eq '.') || ($file eq '..'));
298

  
299
        my $fname = $file;
300
        $fname  =~ s|.*/||;
301

  
302
        my $physical_file = "$path/$file";
303

  
304
        $file  = join('/', map { $form->escape($_) } grep { $_ } split m|/+|, "$path/$file");
305
        $file .=  '/' if (-d $physical_file);
306

  
307
        $form->{WEBDAV}->{$fname} = ($ENV{"HTTPS"} ? "https://" : "http://") . $ENV{'SERVER_NAME'} . "/$base_path/$file";
308
      }
309

  
310
      closedir $dir;
300 311
    }
301 312
  }
302 313

  
doc/changelog
117 117

  
118 118
  Bugfixes:
119 119

  
120
  - Webdav: Wenn eine Pfadkomponente Leerzeichen enthielt
121
    (z.B. "Storno zu ..."), dann wurden komplett falsche Links erzeugt.
120 122
  - Bei Einkaufsrechnungen wurde das falsche Datumsfeld zur Berechnung
121 123
    der Steuern herangezogen, sodass f?r 2006 19% benutzt wurde.
122 124
  - Beim Erfassen von Dienstleistungen wurde beim "Erneuern" die

Auch abrufbar als: Unified diff