Revision 45a06670
Von Tamino Steinert vor etwa 1 Jahr 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