Revision 8e206587
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 35 | 35 |
package IR; |
| 36 | 36 |
|
| 37 | 37 |
use SL::AM; |
| 38 |
use SL::Common; |
|
| 38 | 39 |
use SL::DBUtils; |
| 39 | 40 |
|
| 40 | 41 |
sub post_invoice {
|
| ... | ... | |
| 665 | 666 |
WHERE amount = 0|; |
| 666 | 667 |
$dbh->do($query) || $form->dberror($query); |
| 667 | 668 |
|
| 668 |
if ($form->{webdav}) {
|
|
| 669 |
&webdav_folder($myconfig, $form); |
|
| 670 |
} |
|
| 669 |
Common::webdav_folder($form) if ($main::webdav); |
|
| 671 | 670 |
|
| 672 | 671 |
my $rc = $dbh->commit; |
| 673 | 672 |
$dbh->disconnect; |
| ... | ... | |
| 963 | 962 |
} |
| 964 | 963 |
$sth->finish; |
| 965 | 964 |
|
| 966 |
if ($form->{webdav}) {
|
|
| 967 |
&webdav_folder($myconfig, $form); |
|
| 968 |
} |
|
| 969 |
|
|
| 965 |
Common::webdav_folder($form) if ($main::webdav); |
|
| 970 | 966 |
} |
| 971 | 967 |
|
| 972 | 968 |
my $rc = $dbh->commit; |
| ... | ... | |
| 1288 | 1284 |
$main::lxdebug->leave_sub(); |
| 1289 | 1285 |
} |
| 1290 | 1286 |
|
| 1291 |
sub webdav_folder {
|
|
| 1292 |
$main::lxdebug->enter_sub(); |
|
| 1293 |
|
|
| 1294 |
my ($myconfig, $form) = @_; |
|
| 1295 |
|
|
| 1296 |
SWITCH: {
|
|
| 1297 |
$path = "webdav/rechnungen/" . $form->{invnumber}, last SWITCH
|
|
| 1298 |
if ($form->{vc} eq "customer");
|
|
| 1299 |
$path = "webdav/einkaufsrechnungen/" . $form->{invnumber}, last SWITCH
|
|
| 1300 |
if ($form->{vc} eq "vendor");
|
|
| 1301 |
} |
|
| 1302 |
|
|
| 1303 |
if (!-d $path) {
|
|
| 1304 |
mkdir($path, 0770) or die "can't make directory $!\n"; |
|
| 1305 |
} else {
|
|
| 1306 |
if ($form->{id}) {
|
|
| 1307 |
@files = <$path/*>; |
|
| 1308 |
foreach $file (@files) {
|
|
| 1309 |
|
|
| 1310 |
$file =~ /\/([^\/]*)$/; |
|
| 1311 |
$fname = $1; |
|
| 1312 |
$ENV{'SCRIPT_NAME'} =~ /\/([^\/]*)\//;
|
|
| 1313 |
$lxerp = $1; |
|
| 1314 |
$link = "http://" . $ENV{'SERVER_NAME'} . "/" . $lxerp . "/" . $file;
|
|
| 1315 |
$form->{WEBDAV}{$fname} = $link;
|
|
| 1316 |
} |
|
| 1317 |
} |
|
| 1318 |
} |
|
| 1319 |
|
|
| 1320 |
$main::lxdebug->leave_sub(); |
|
| 1321 |
} |
|
| 1322 |
|
|
| 1323 | 1287 |
sub post_payment {
|
| 1324 | 1288 |
$main::lxdebug->enter_sub(); |
| 1325 | 1289 |
|
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.