Revision cdc08b42
Von Tamino Steinert vor 12 Monaten hinzugefügt
SL/BackgroundJob/CleanUpEmailSubfolders.pm | ||
---|---|---|
7 | 7 |
|
8 | 8 |
use SL::IMAPClient; |
9 | 9 |
|
10 |
sub clean_up_subfolders { |
|
10 |
sub clean_up_record_subfolders {
|
|
11 | 11 |
my ($self) = @_; |
12 | 12 |
my $imap_client = SL::IMAPClient->new(); |
13 | 13 |
|
... | ... | |
18 | 18 |
], |
19 | 19 |
); |
20 | 20 |
|
21 |
$imap_client->clean_up_subfolders($open_sales_orders); |
|
21 |
$imap_client->clean_up_record_subfolders($open_sales_orders);
|
|
22 | 22 |
} |
23 | 23 |
|
24 | 24 |
sub run { |
25 | 25 |
my ($self, $job_obj) = @_; |
26 | 26 |
$self->{job_obj} = $job_obj; |
27 | 27 |
|
28 |
$self->clean_up_subfolders(); |
|
28 |
$self->clean_up_record_subfolders();
|
|
29 | 29 |
|
30 | 30 |
return; |
31 | 31 |
} |
Auch abrufbar als: Unified diff
IMAPClient: Funktion zum Aufräumen der Belegordner umbenannt
clean_up_subfolders → clean_up_record_subfolders