use FS::cust_main;
use FS::Misc qw( csv_from_fixed );
-#i'd like to dump these
-use FS::CGI qw(rooturl popurl);
use URI::Escape;
@ISA = qw( FS::Record );
=cut
sub queue_liability_report {
- my $cgi = shift;
+ my $job = shift;
+ my $param = thaw(decode_base64(shift));
+
+ my $cgi = new CGI;
+ $cgi->param('beginning', $param->{beginning});
+ $cgi->param('ending', $param->{ending});
my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
- my $agentnum = $cgi->param('agentnum');
- $agentnum =~ /^(\d+)$/ ? $agentnum = $1 : $agentnum = '';
- my $job = new FS::queue { job => 'FS::tax_rate::generate_liability_report' };
- $job->insert(
+ my $agentnum = $param->{agentnum};
+ if ($agentnum =~ /^(\d+)$/) { $agentnum = $1; } else { $agentnum = ''; };
+ generate_liability_report(
'beginning' => $beginning,
'ending' => $ending,
'agentnum' => $agentnum,
- 'p' => popurl(2),
- 'rooturl' => rooturl,
+ 'p' => $param->{RootURL},
+ 'job' => $job,
);
}
sub generate_liability_report {
my %args = @_;
+ my ( $count, $last, $min_sec ) = _progressbar_foo();
+
#let us open the temp file early
my $dir = '%%%FREESIDE_CACHE%%%/cache.'. $FS::UID::datasrc;
my $report = new File::Temp( TEMPLATE => 'report.tax.liability.XXXXXXXX',
my $credit = 0;
my %taxes = ();
my %basetaxes = ();
- foreach my $t (qsearch({ table => 'cust_bill_pkg',
- select => $select,
- hashref => { pkgpart => 0 },
- addl_from => $addl_from,
- extra_sql => $where,
- })
- )
- {
+ my $calculated = 0;
+ my @tax_and_location = qsearch({ table => 'cust_bill_pkg',
+ select => $select,
+ hashref => { pkgpart => 0 },
+ addl_from => $addl_from,
+ extra_sql => $where,
+ });
+ $count = scalar(@tax_and_location);
+ foreach my $t ( @tax_and_location ) {
+
+ if ( $args{job} ) {
+ if ( time - $min_sec > $last ) {
+ $args{job}->update_statustext( int( 100 * $calculated / $count ).
+ ",Calculated"
+ );
+ $last = time;
+ }
+ }
+
my @params = map { my $f = $_; $f =~ s/.*\.//; $f } @taxparam;
my $label = join('~', map { $t->$_ } @params);
$label = 'Tax'. $label if $label =~ /^~/;
#ordering
+
+ if ( $args{job} ) {
+ $args{job}->update_statustext( "0,Sorted" );
+ $last = time;
+ }
+
my @taxes = ();
foreach my $tax ( sort { $a cmp $b } keys %taxes ) {
my $bgcolor2 = '#ffffff';
my $bgcolor = '';
+ $count = scalar(@taxes);
+ $calculated = 0;
foreach my $tax ( @taxes ) {
+ if ( $args{job} ) {
+ if ( time - $min_sec > $last ) {
+ $args{job}->update_statustext( int( 100 * $calculated / $count ).
+ ",Generated"
+ );
+ $last = time;
+ }
+ }
+
if ( $bgcolor eq $bgcolor1 ) {
$bgcolor = $bgcolor2;
} else {
my $dropstring = '%%%FREESIDE_CACHE%%%/cache.'. $FS::UID::datasrc. '/report.';
$reportname =~ s/^$dropstring//;
- my $reporturl = $args{rooturl}. "/misc/queued_report?report=$reportname";
+ my $reporturl = "%%%ROOTURL%%%/misc/queued_report?report=$reportname";
die "<a href=$reporturl>view</a>\n";
}