X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FCron%2Fexpire_user_pref.pm;h=32269271e60d118dee8d17849fefadde3c08cfb9;hp=7ab73d280e2155ba8b5aab54a64ffd0d70980b6d;hb=74e058c8a010ef6feb539248a550d0bb169c1e94;hpb=9509e5bfb7f9331303153cac24d7bfecbe2ea9f1

diff --git a/FS/FS/Cron/expire_user_pref.pm b/FS/FS/Cron/expire_user_pref.pm
index 7ab73d280..32269271e 100644
--- a/FS/FS/Cron/expire_user_pref.pm
+++ b/FS/FS/Cron/expire_user_pref.pm
@@ -12,6 +12,9 @@ sub expire_user_pref {
                                           " AND expiration < ?";
   my $sth = dbh->prepare($sql) or die dbh->errstr;
   $sth->execute(time) or die $sth->errstr;
+
+  dbh->commit or die dbh->errstr if $FS::UID::AutoCommit
+
 }
 
 1;