diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-12-27 12:26:41 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-12-27 12:26:41 -0800 |
commit | 9437bfc0dfccd408aa30e0c259031167a1991016 (patch) | |
tree | d099097cffe3d56c7176880821268cdec6c3603a /FS/FS/webservice_log.pm | |
parent | 58c17d959b59b61da9a5b6b752bb8c295d61fc63 (diff) |
credit limit for printing
Diffstat (limited to 'FS/FS/webservice_log.pm')
-rw-r--r-- | FS/FS/webservice_log.pm | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/FS/FS/webservice_log.pm b/FS/FS/webservice_log.pm index 7e320c2..1dfabe6 100644 --- a/FS/FS/webservice_log.pm +++ b/FS/FS/webservice_log.pm @@ -125,6 +125,40 @@ sub check { =back +=head1 CLASS METHODS + +=over 4 + +=item price_print + +Calculates cost of printing unbilled print jobs for this customer. + +=cut + +sub price_print { + my( $class, %opt ) = @_; + +# $opt{'beginning'} ||= 0; +# $opt{'ending'} ||= 4294967295; + + #false laziness w/ClientAPI/Freeside.pm + my $color = 1.10; + my $page = 0.10; + + $class->scalar_sql(" + SELECT SUM( $color + quantity * $page ) + FROM webservice_log + WHERE custnum = $opt{custnum} + AND method = 'print' + AND status IS NULL + "); +# AND _date >= $opt{beginning} +# AND _date < $opt{ending} + +} + +=back + =head1 BUGS =head1 SEE ALSO |