Revision 8cd05ad6
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 655 | 655 |
sub delete {
|
| 656 | 656 |
$main::lxdebug->enter_sub(); |
| 657 | 657 |
|
| 658 |
my ($self, $myconfig, $form, $spool) = @_;
|
|
| 658 |
my ($self, $myconfig, $form) = @_; |
|
| 659 | 659 |
|
| 660 | 660 |
# connect to database |
| 661 | 661 |
my $dbh = $form->dbconnect_noauto($myconfig); |
| ... | ... | |
| 705 | 705 |
$dbh->disconnect; |
| 706 | 706 |
|
| 707 | 707 |
if ($rc) {
|
| 708 |
my $spool = $::lx_office_conf{paths}->{spool};
|
|
| 708 | 709 |
foreach $spoolfile (@spoolfiles) {
|
| 709 | 710 |
unlink "$spool/$spoolfile" if $spoolfile; |
| 710 | 711 |
} |
Auch abrufbar als: Unified diff
Globale Variablen $::userspath, $::templates, $::membersfile nach %::lx_office_conf verschoben