From 0c525f3ba7b2b6730b8939b950e4d76dd16802a9 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Thu, 5 Jan 2006 09:34:30 +0000
Subject: This commit was manufactured by cvs2svn to create tag
 'SQL_LEDGER_2_4_4'.

---
 httemplate/search/reg_code.html | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 httemplate/search/reg_code.html

(limited to 'httemplate/search/reg_code.html')

diff --git a/httemplate/search/reg_code.html b/httemplate/search/reg_code.html
deleted file mode 100644
index 52a99ff66..000000000
--- a/httemplate/search/reg_code.html
+++ /dev/null
@@ -1,36 +0,0 @@
-<%
-
-my $agentnum = $cgi->param('agentnum');
-$agentnum =~ /^(\d+)$/ or eidiot "illegal agentnum $agentnum";
-$agentnum = $1;
-my $agent = qsearchs('agent', { 'agentnum' => $agentnum } );
-
-my $count_query = "SELECT COUNT(*) FROM reg_code WHERE agentnum = $agentnum";
-
-%><%= 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.
-                       '</A><BR>'
-                     } $_[0]->part_pkg
-                   },
-                 ],
-                 'links' => [
-                   '',
-                   #$plink,
-                   '',
-                 ],
-      )
-%>
-- 
cgit v1.2.1