<& elements/search.html, 'title' => 'Unused Registration Codes for '. $agent->agent, 'name' => 'registration codes', 'query' => { 'table' => 'reg_code', 'hashref' => { 'agentnum' => $agentnum, }, }, 'count_query' => $count_query, #'redirect' => $link, 'header' => [ qw(Code Packages) ], 'fields' => [ 'code', sub { map { qq!'. $_->pkg_comment(nopkgpart => 1). '
' } $_[0]->part_pkg }, ], 'links' => [ '', #$plink, '', ], &> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $agentnum = $cgi->param('agentnum'); $agentnum =~ /^(\d+)$/ or errorpage("illegal agentnum $agentnum"); $agentnum = $1; my $agent = qsearchs('agent', { 'agentnum' => $agentnum } ); my $count_query = "SELECT COUNT(*) FROM reg_code WHERE agentnum = $agentnum";