diff options
| author | ivan <ivan> | 2011-01-16 20:20:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-01-16 20:20:24 +0000 |
| commit | db92360665a7347bd1340826dc698c6b4d7a63a7 (patch) | |
| tree | dc26e9a1e62a972ab69d60a38d384d589f014e77 | |
| parent | a2c6b2e3906972fb37c954bcc5a630a86a1d15c0 (diff) | |
internal session db deprecated (or at least on hold), RT#11217
| -rw-r--r-- | FS/FS/cust_svc.pm | 26 | ||||
| -rw-r--r-- | FS/FS/part_pkg/sesmon_hour.pm | 1 | ||||
| -rw-r--r-- | FS/FS/part_pkg/sesmon_minute.pm | 1 |
3 files changed, 16 insertions, 12 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 06e1ef11d..4fcd9afbd 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -468,18 +468,20 @@ where B<svcdb> is not "svc_acct". =cut -#note: implementation here, POD in FS::svc_acct -sub seconds_since { - my($self, $since) = @_; - my $dbh = dbh; - my $sth = $dbh->prepare(' SELECT SUM(logout-login) FROM session - WHERE svcnum = ? - AND login >= ? - AND logout IS NOT NULL' - ) or die $dbh->errstr; - $sth->execute($self->svcnum, $since) or die $sth->errstr; - $sth->fetchrow_arrayref->[0]; -} +#internal session db deprecated (or at least on hold) +sub seconds_since { 'internal session db deprecated'; }; +##note: implementation here, POD in FS::svc_acct +#sub seconds_since { +# my($self, $since) = @_; +# my $dbh = dbh; +# my $sth = $dbh->prepare(' SELECT SUM(logout-login) FROM session +# WHERE svcnum = ? +# AND login >= ? +# AND logout IS NOT NULL' +# ) or die $dbh->errstr; +# $sth->execute($self->svcnum, $since) or die $sth->errstr; +# $sth->fetchrow_arrayref->[0]; +#} =item seconds_since_sqlradacct TIMESTAMP_START TIMESTAMP_END diff --git a/FS/FS/part_pkg/sesmon_hour.pm b/FS/FS/part_pkg/sesmon_hour.pm index 97274d094..a57b1591a 100644 --- a/FS/FS/part_pkg/sesmon_hour.pm +++ b/FS/FS/part_pkg/sesmon_hour.pm @@ -8,6 +8,7 @@ use FS::part_pkg::flat; @ISA = qw(FS::part_pkg::flat); %info = ( + 'disabled' => 1, #internal session db deprecated (or at least on hold) 'name' => 'Base charge plus charge per-hour from the session monitor', 'shortname' => 'Session monitor (per-hour)', 'inherit_fields' => [ 'global_Mixin' ], diff --git a/FS/FS/part_pkg/sesmon_minute.pm b/FS/FS/part_pkg/sesmon_minute.pm index 9c8dfd1b7..8c9ef03cf 100644 --- a/FS/FS/part_pkg/sesmon_minute.pm +++ b/FS/FS/part_pkg/sesmon_minute.pm @@ -8,6 +8,7 @@ use FS::part_pkg::flat; @ISA = qw(FS::part_pkg::flat); %info = ( + 'disabled' => 1, #internal session db deprecated (or at least on hold) 'name' => 'Base charge plus charge per-minute from the session monitor', 'shortname' => 'Session monitor (per-minute)', 'inherit_fields' => [ 'global_Mixin' ], |