Revision e6e07cb0
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 266 | 266 |
sub save_dunning {
|
| 267 | 267 |
$main::lxdebug->enter_sub(); |
| 268 | 268 |
|
| 269 |
my ($self, $myconfig, $form, $rows, $userspath, $spool, $sendmail) = @_;
|
|
| 269 |
my ($self, $myconfig, $form, $rows, $userspath, $spool) = @_; |
|
| 270 | 270 |
# connect to database |
| 271 | 271 |
my $dbh = $form->dbconnect_noauto($myconfig); |
| 272 | 272 |
|
| bin/mozilla/dn.pl | ||
|---|---|---|
| 191 | 191 |
foreach my $level (values %{ $levels }) {
|
| 192 | 192 |
next unless scalar @{ $level };
|
| 193 | 193 |
|
| 194 |
DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool, $sendmail);
|
|
| 194 |
DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool); |
|
| 195 | 195 |
} |
| 196 | 196 |
} |
| 197 | 197 |
|
| ... | ... | |
| 204 | 204 |
"customer_id" => $form->{"customer_id_$i"},
|
| 205 | 205 |
"next_dunning_config_id" => $form->{"next_dunning_config_id_$i"},
|
| 206 | 206 |
"email" => $form->{"email_$i"}, } ];
|
| 207 |
DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool, $sendmail);
|
|
| 207 |
DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool); |
|
| 208 | 208 |
} |
| 209 | 209 |
} |
| 210 | 210 |
|
| bin/mozilla/rp.pl | ||
|---|---|---|
| 1656 | 1656 |
} |
| 1657 | 1657 |
|
| 1658 | 1658 |
$form->{IN} = "$form->{type}.$suffix";
|
| 1659 |
$form->{OUT} =
|
|
| 1660 |
$form->{media} eq 'email' ? $sendmail :
|
|
| 1661 |
$form->{media} eq 'printer' ? "| $myconfig{printer}" : "";
|
|
| 1659 |
$form->{OUT} = $form->{media} eq 'printer' ? "| $myconfig{printer}" : "";
|
|
| 1662 | 1660 |
|
| 1663 | 1661 |
# Save $form->{email} because it will be overwritten.
|
| 1664 | 1662 |
$form->{EMAIL_RECIPIENT} = $form->{email};
|
Auch abrufbar als: Unified diff
Die globale Variable $sendmail wird nur in SL/Mailer.pm benötigt und sollte deswegen auch nur dort benutzt werden.