Committing the new Ecommerce system

This commit is contained in:
Martin Kamerbeek 2004-11-29 15:41:41 +00:00
parent 5676bf9585
commit eeafe944e2
5 changed files with 168 additions and 0 deletions

View file

@ -0,0 +1,12 @@
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;