diff options
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/otaker_Mixin.pm | 6 | ||||
-rwxr-xr-x | FS/bin/freeside-daily | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/FS/FS/otaker_Mixin.pm b/FS/FS/otaker_Mixin.pm index 8d9c8824f..af61a85ac 100644 --- a/FS/FS/otaker_Mixin.pm +++ b/FS/FS/otaker_Mixin.pm @@ -4,6 +4,7 @@ use strict; use Carp qw( croak ); #confess ); use FS::Record qw( qsearch qsearchs ); use FS::access_user; +use FS::UID qw( dbh ); sub otaker { my $self = shift; @@ -76,6 +77,11 @@ sub _upgrade_otaker { my $error = $record->replace; die $error if $error; } + + if ( $table eq 'cust_attachment' ) { + warn " committing (cust_attachment) \n"; + dbh->commit or die dbh->errstr; + } } diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily index ee3cda63e..0b770f636 100755 --- a/FS/bin/freeside-daily +++ b/FS/bin/freeside-daily @@ -54,6 +54,10 @@ backup_scp(); use FS::Cron::rt_tasks qw(rt_escalate); rt_escalate(%opt); +my $deldir = "$FS::UID::cache_dir/cache.$FS::UID::datasrc/"; +unlink <${deldir}.invoice*>; +unlink <${deldir}.letter*>; + ### # subroutines ### |