<& /elements/header.html, mt('Credit package source report') &>

<& /elements/tr-select-user.html, 'label' => emt('Employee: '), 'access_user' => \%access_user, &> <& /elements/tr-select-agent.html, curr_value => scalar( $cgi->param('agentnum') ), #label => emt('Line items for agent: '), disable_empty => 0, &> <& /elements/tr-input-beginning_ending.html, 'prefix' => 'credit', &>

<& /elements/footer.html &> <%init> #Financial reports? die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); #false laziness w/report_cust_credit.html my $sth = dbh->prepare("SELECT DISTINCT usernum FROM cust_credit") or die dbh->errstr; $sth->execute or die $sth->errstr; my @usernum = map $_->[0], @{$sth->fetchall_arrayref}; my %access_user = map { $_ => qsearchs('access_user',{'usernum'=>$_})->username } @usernum; my $conf = new FS::Conf;