migrated expire subscription codes to workflow

This commit is contained in:
JT Smith 2006-03-02 21:26:28 +00:00
parent 11a2c5d099
commit 2139b9e5d4
4 changed files with 90 additions and 13 deletions

View file

@ -1,12 +0,0 @@
package Hourly::ExpireSubscriptionCodes;
use strict;
use WebGUI::SQL;
#-------------------------------------------------------------------
sub process {
WebGUI::SQL->write("update subscriptionCode set status='Expired' where status = 'Unused' and dateCreated + expires < ".time);
}
1;