Revision 8e206587
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 35 | 35 |
package OE; |
| 36 | 36 |
|
| 37 | 37 |
use SL::AM; |
| 38 |
use SL::Common; |
|
| 38 | 39 |
use SL::DBUtils; |
| 39 | 40 |
|
| 40 | 41 |
sub transactions {
|
| ... | ... | |
| 481 | 482 |
|
| 482 | 483 |
$form->{ordtotal} = $amount;
|
| 483 | 484 |
|
| 484 |
if ($form->{webdav}) {
|
|
| 485 |
&webdav_folder($myconfig, $form); |
|
| 486 |
} |
|
| 487 |
|
|
| 488 | 485 |
# add shipto |
| 489 | 486 |
$form->{name} = $form->{ $form->{vc} };
|
| 490 | 487 |
$form->{name} =~ s/--$form->{"$form->{vc}_id"}//;
|
| ... | ... | |
| 517 | 514 |
my $rc = $dbh->commit; |
| 518 | 515 |
$dbh->disconnect; |
| 519 | 516 |
|
| 517 |
Common::webdav_folder($form) if ($main::webdav); |
|
| 518 |
|
|
| 520 | 519 |
$main::lxdebug->leave_sub(); |
| 521 | 520 |
|
| 522 | 521 |
return $rc; |
| ... | ... | |
| 916 | 915 |
$form->get_exchangerate($dbh, $form->{currency}, $form->{transdate},
|
| 917 | 916 |
($form->{vc} eq 'customer') ? "buy" : "sell");
|
| 918 | 917 |
|
| 919 |
if ($form->{webdav}) {
|
|
| 920 |
&webdav_folder($myconfig, $form); |
|
| 921 |
} |
|
| 918 |
Common::webdav_folder($form) if ($main::webdav); |
|
| 922 | 919 |
|
| 923 | 920 |
# get tax zones |
| 924 | 921 |
$query = qq|SELECT id, description |
| ... | ... | |
| 1641 | 1638 |
return $rc; |
| 1642 | 1639 |
} |
| 1643 | 1640 |
|
| 1644 |
sub webdav_folder {
|
|
| 1645 |
$main::lxdebug->enter_sub(); |
|
| 1646 |
|
|
| 1647 |
my ($myconfig, $form) = @_; |
|
| 1648 |
|
|
| 1649 |
SWITCH: {
|
|
| 1650 |
$path = "webdav/angebote/" . $form->{quonumber}, last SWITCH
|
|
| 1651 |
if ($form->{type} eq "sales_quotation");
|
|
| 1652 |
$path = "webdav/bestellungen/" . $form->{ordnumber}, last SWITCH
|
|
| 1653 |
if ($form->{type} eq "sales_order");
|
|
| 1654 |
$path = "webdav/anfragen/" . $form->{quonumber}, last SWITCH
|
|
| 1655 |
if ($form->{type} eq "request_quotation");
|
|
| 1656 |
$path = "webdav/lieferantenbestellungen/" . $form->{ordnumber}, last SWITCH
|
|
| 1657 |
if ($form->{type} eq "purchase_order");
|
|
| 1658 |
} |
|
| 1659 |
|
|
| 1660 |
if (!-d $path) {
|
|
| 1661 |
mkdir($path, 0770) or die "can't make directory $!\n"; |
|
| 1662 |
} else {
|
|
| 1663 |
if ($form->{id}) {
|
|
| 1664 |
@files = <$path/*>; |
|
| 1665 |
foreach $file (@files) {
|
|
| 1666 |
$file =~ /\/([^\/]*)$/; |
|
| 1667 |
$fname = $1; |
|
| 1668 |
$ENV{'SCRIPT_NAME'} =~ /\/([^\/]*)\//;
|
|
| 1669 |
$lxerp = $1; |
|
| 1670 |
$link = "http://" . $ENV{'SERVER_NAME'} . "/" . $lxerp . "/" . $file;
|
|
| 1671 |
$form->{WEBDAV}{$fname} = $link;
|
|
| 1672 |
} |
|
| 1673 |
} |
|
| 1674 |
} |
|
| 1675 |
|
|
| 1676 |
$main::lxdebug->leave_sub(); |
|
| 1677 |
} |
|
| 1678 | 1641 |
1; |
| 1679 | 1642 |
|
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.