Revision 45a06670
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/BackgroundJob/CleanUpEmailSubfolders.pm | ||
|---|---|---|
|
|
||
|
use SL::IMAPClient;
|
||
|
|
||
|
sub clean_up_subfolders {
|
||
|
sub clean_up_record_subfolders {
|
||
|
my ($self) = @_;
|
||
|
my $imap_client = SL::IMAPClient->new();
|
||
|
|
||
| ... | ... | |
|
],
|
||
|
);
|
||
|
|
||
|
$imap_client->clean_up_subfolders($open_sales_orders);
|
||
|
$imap_client->clean_up_record_subfolders($open_sales_orders);
|
||
|
}
|
||
|
|
||
|
sub run {
|
||
|
my ($self, $job_obj) = @_;
|
||
|
$self->{job_obj} = $job_obj;
|
||
|
|
||
|
$self->clean_up_subfolders();
|
||
|
$self->clean_up_record_subfolders();
|
||
|
|
||
|
return;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
IMAPClient: Funktion zum Aufräumen der Belegordner umbenannt
clean_up_subfolders → clean_up_record_subfolders