Revision 8e206587
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 36 | 36 |
|
| 37 | 37 |
use Data::Dumper; |
| 38 | 38 |
use SL::AM; |
| 39 |
use SL::Common; |
|
| 39 | 40 |
use SL::DBUtils; |
| 40 | 41 |
|
| 41 | 42 |
sub invoice_details {
|
| ... | ... | |
| 1038 | 1039 |
# save printed, emailed and queued |
| 1039 | 1040 |
$form->save_status($dbh); |
| 1040 | 1041 |
|
| 1041 |
if ($form->{webdav}) {
|
|
| 1042 |
&webdav_folder($myconfig, $form); |
|
| 1043 |
} |
|
| 1042 |
Common::webdav_folder($form) if ($main::webdav); |
|
| 1044 | 1043 |
|
| 1045 | 1044 |
my $rc = $dbh->commit; |
| 1046 | 1045 |
$dbh->disconnect; |
| ... | ... | |
| 1658 | 1657 |
} |
| 1659 | 1658 |
$sth->finish; |
| 1660 | 1659 |
|
| 1661 |
if ($form->{webdav}) {
|
|
| 1662 |
&webdav_folder($myconfig, $form); |
|
| 1663 |
} |
|
| 1660 |
Common::webdav_folder($form) if ($main::webdav); |
|
| 1664 | 1661 |
} |
| 1665 | 1662 |
|
| 1666 | 1663 |
my $rc = $dbh->commit; |
| ... | ... | |
| 2185 | 2182 |
$main::lxdebug->leave_sub(); |
| 2186 | 2183 |
} |
| 2187 | 2184 |
|
| 2188 |
sub webdav_folder {
|
|
| 2189 |
$main::lxdebug->enter_sub(); |
|
| 2190 |
|
|
| 2191 |
my ($myconfig, $form) = @_; |
|
| 2192 |
|
|
| 2193 |
SWITCH: {
|
|
| 2194 |
$path = "webdav/rechnungen/" . $form->{invnumber}, last SWITCH
|
|
| 2195 |
if ($form->{vc} eq "customer");
|
|
| 2196 |
$path = "webdav/einkaufsrechnungen/" . $form->{invnumber}, last SWITCH
|
|
| 2197 |
if ($form->{vc} eq "vendor");
|
|
| 2198 |
} |
|
| 2199 |
|
|
| 2200 |
if (!-d $path) {
|
|
| 2201 |
mkdir($path, 0770) or die "can't make directory $!\n"; |
|
| 2202 |
} else {
|
|
| 2203 |
if ($form->{id}) {
|
|
| 2204 |
@files = <$path/*>; |
|
| 2205 |
foreach $file (@files) {
|
|
| 2206 |
$file =~ /\/([^\/]*)$/; |
|
| 2207 |
$fname = $1; |
|
| 2208 |
$ENV{'SCRIPT_NAME'} =~ /\/([^\/]*)\//;
|
|
| 2209 |
$lxerp = $1; |
|
| 2210 |
$link = "http://" . $ENV{'SERVER_NAME'} . "/" . $lxerp . "/" . $file;
|
|
| 2211 |
$form->{WEBDAV}{$fname} = $link;
|
|
| 2212 |
} |
|
| 2213 |
} |
|
| 2214 |
} |
|
| 2215 |
|
|
| 2216 |
$main::lxdebug->leave_sub(); |
|
| 2217 |
} |
|
| 2218 |
|
|
| 2219 | 2185 |
1; |
| 2220 | 2186 |
|
Auch abrufbar als: Unified diff
Bugfixes und Code-Reorganisierung beim "Webdav"-Feature. Beim Anlegen von Verzeichnissen werden auch eventuell fehlende Elternverzeichnisse angelegt. Bei jedem Neuaufbau der Maske wird die Liste der vorhandenen Dateien aktualisiert, nicht nur beim Speichern & Laden.