FS/FS/part_pkg/fsinc_print.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

package FS::part_pkg::fsinc_print;

use strict;
use vars qw( %info );
use FS::Record;

%info = (
  'name'      => 'Usage from Freeside Inc. web services',
  'shortname' => 'Freeside web services',
  'weight'    => '99',
);

sub price_info {
  my $self = shift;
  return 'printing usage';
}

sub base_setup { 0; }
sub calc_setup { 0; }

sub base_recur { 0; }
sub calc_recur {
  #my $self = shift;
  #my($self, $cust_pkg, $sdate, $details, $param ) = @_;
  my( $self, $cust_pkg ) = @_;

  my $custnum = $cust_pkg->custnum;

  #false laziness w/ClientAPI/Freeside.pm and webservice_log.pm
  my $color = 1.10;
  my $page = 0.10;

  FS::Record->scalar_sql("
    UPDATE webservice_log SET status = 'done'
      WHERE custnum = $custnum
        AND method = 'print'
        AND status IS NULL 
    RETURNING SUM ( $color + quantity * $page )
  ");

}

sub can_discount { 0; }

sub is_free { 0; }

1;