summaryrefslogtreecommitdiff
path: root/httemplate/search/reg_code.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/search/reg_code.html')
-rw-r--r--httemplate/search/reg_code.html40
1 files changed, 0 insertions, 40 deletions
diff --git a/httemplate/search/reg_code.html b/httemplate/search/reg_code.html
deleted file mode 100644
index f7d6d2061..000000000
--- a/httemplate/search/reg_code.html
+++ /dev/null
@@ -1,40 +0,0 @@
-<% include( '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!<A HREF="${p}edit/part_pkg.cgi?!. $_->pkgpart. '">'.
- $_->pkg_comment(nopkgpart => 1).
- '</A><BR>'
- } $_[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";
-
-</%init>