site/cgi-bin/modules/BSE/TB/Subscriptions.pm

   1 package BSE::TB::Subscriptions;
   2 use strict;
   3 use Squirrel::Table;
   4 use vars qw(@ISA $VERSION);
   5 @ISA = qw(Squirrel::Table);
   6 use BSE::TB::Subscription;
   7
   8 our $VERSION = "1.001";
   9
  10 sub rowClass {
  11   return 'BSE::TB::Subscription';
  12 }
  13
  14 sub calculate_all_expiries {
  15   my ($class, $cfg) = @_;
  16
  17   require BSE::TB::SiteUsers;
  18
  19   # get a list of all siteusers that have made an order with a subscription
  20   my @users = BSE::TB::SiteUsers->all_subscribers;
  21
  22   my @subs = $class->all;
  23
  24   for my $user (@users) {
  25     for my $sub (@subs) {
  26       $sub->update_user_expiry($user, $cfg);
  27     }
  28   }
  29 }
  30
  31 1;