package IIdce8ade96d63a781c3ef3b7c764c7ffe; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIc006e1d88f66a3969ffd0192be9acb1b; use IIf404c8dfc046e4729558b9aff233579c; BEGIN{*IIdce8ade96d63a781c3ef3b7c764c7ffe::IlIllllIIlllIlIl=\%{pack('H6','7e081c')^';FJ'};*IIdce8ade96d63a781c3ef3b7c764c7ffe::lIIIllIllIllIIII=\&{pack('H24','2528225e0079407461294702')^'HIK0:C3LVK?6'};$IIdce8ade96d63a781c3ef3b7c764c7ffe::lllIllllIIllIIlI=pack('H18','11691b671e021b6c6b')^'Y=O7AJT??';$IIdce8ade96d63a781c3ef3b7c764c7ffe::lIIIlIIlIlIIIlIl=pack('H12','0f7a080a0809')^'E3FFAJ'};sub mnt_totals { my ($class, $C) = @_; my $in = $C->{INPUT}; my $tableClass = $C->{TableClass} or die "TableClass?"; my $seaData = II720d6e18aa34327713eb014408fc9144::llllIlIlIIIIIIlI($IIf404c8dfc046e4729558b9aff233579c::lIlIIIIlIIlIIIll{$IIdce8ade96d63a781c3ef3b7c764c7ffe::lllIllllIIllIIlI},999,$IIf404c8dfc046e4729558b9aff233579c::lIlIIIIlIIlIIIll{$II720d6e18aa34327713eb014408fc9144::lIIlllIllIlIllll})->get("$tableClass.SearchData"); my @sea; while (my ($k, $v) = each %$seaData) { push @sea, $k => $v if length $v; } my $tbl = IIdce8ade96d63a781c3ef3b7c764c7ffe::lIIIllIllIllIIII($IIdce8ade96d63a781c3ef3b7c764c7ffe::IlIllllIIlllIlIl{$IIf404c8dfc046e4729558b9aff233579c::IIIIllllIllIIIIl},100,$IIdce8ade96d63a781c3ef3b7c764c7ffe::IlIllllIIlllIlIl{$II720d6e18aa34327713eb014408fc9144::IIIIIIllIIlllIIl})->tbl; push @sea, FETCH => "sum($tbl.amount) as sum_all,sum($tbl.amount * $tbl.refunded) as sum_refunded,count(*) as num_all"; $C->{Totals} = IIc006e1d88f66a3969ffd0192be9acb1b::IlIllIIlIllllIll($IIc006e1d88f66a3969ffd0192be9acb1b::lIIlllllIIlIlIll{$IIc006e1d88f66a3969ffd0192be9acb1b::IIIIlllIIIIIIIlI},100,$IIc006e1d88f66a3969ffd0192be9acb1b::lIIlllllIIlIlIll{$II720d6e18aa34327713eb014408fc9144::IIIIIIllIIlllIIl})->dbc->getRecord(IIf404c8dfc046e4729558b9aff233579c::IllIllIIIlIllIIl($II720d6e18aa34327713eb014408fc9144::lIIIIIllIIIlllll{$IIf404c8dfc046e4729558b9aff233579c::lIlIlIllllIIlllI},100,$II720d6e18aa34327713eb014408fc9144::lIIIIIllIIIlllll{$IIdce8ade96d63a781c3ef3b7c764c7ffe::lIIIlIIlIlIIIlIl})->_sql_constructor(\@sea)); $C->{Totals}{$_} = II720d6e18aa34327713eb014408fc9144::IlllIllllIllIIIl($II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$II720d6e18aa34327713eb014408fc9144::IlIlllIIllllllll},81,$II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$IIf404c8dfc046e4729558b9aff233579c::lllIIIlIIIIIIllI})->formatAmount(IIdce8ade96d63a781c3ef3b7c764c7ffe::lIIIllIllIllIIII($IIc006e1d88f66a3969ffd0192be9acb1b::lIIlllllIIlIlIll{$II720d6e18aa34327713eb014408fc9144::IlIlllIIllllllll},81,$IIc006e1d88f66a3969ffd0192be9acb1b::lIIlllllIIlIlIll{$IIc006e1d88f66a3969ffd0192be9acb1b::lllllIIIlIIIllll})->normalizeAmount($C->{Totals}{$_})) for grep { /^sum_/ } keys %{$C->{Totals}}; return; } 1; 