diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-12-27 12:26:43 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-12-27 12:26:43 -0800 |
commit | 4ccd5cf8a013f79dc73805f2df382ac96b455bdf (patch) | |
tree | 3641cfbb951b5a0be536a5098cfb8c48f2bd025f /FS/FS/webservice_log.pm | |
parent | acac1a271646cd2f9bfbb05a41372b360cbb5c8f (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 |