From 2dbf3fa84c7825aa02e168bc07a167ca9ad79620 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Tue, 9 Mar 2010 21:57:52 +0000
Subject: RT#7407, variable length prepaid card codes

---
 httemplate/edit/prepay_credit.cgi         | 5 ++++-
 httemplate/edit/process/prepay_credit.cgi | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'httemplate')

diff --git a/httemplate/edit/prepay_credit.cgi b/httemplate/edit/prepay_credit.cgi
index ed404b7cd..f7a1b0801 100644
--- a/httemplate/edit/prepay_credit.cgi
+++ b/httemplate/edit/prepay_credit.cgi
@@ -7,13 +7,16 @@
 Generate
 <INPUT TYPE="text" NAME="num" VALUE="<% $cgi->param('num') || '(quantity)' |h %>" SIZE=10 MAXLENGTH=10 onFocus="if ( this.value == '(quantity)' ) { this.value = ''; }">
 
+prepaid cards of
+
+<INPUT TYPE="text" NAME="length" SIZE=3 MAXLENGTH=2 VALUE=8>&nbsp;
 <SELECT NAME="type">
 % foreach (qw(alpha alphanumeric numeric)) { 
   <OPTION<% $cgi->param('type') eq $_ ? ' SELECTED' : '' %>><% $_ %>
 % } 
 </SELECT>
 
-prepaid cards
+characters each
 
 <BR>for <SELECT NAME="agentnum"><OPTION>(any agent)
 % foreach my $opt_agent ( qsearch('agent', { 'disabled' => '' } ) ) { 
diff --git a/httemplate/edit/process/prepay_credit.cgi b/httemplate/edit/process/prepay_credit.cgi
index 8f2eb2b25..a55522b86 100644
--- a/httemplate/edit/process/prepay_credit.cgi
+++ b/httemplate/edit/process/prepay_credit.cgi
@@ -56,6 +56,7 @@ $hashref->{totalbytes} = $cgi->param('totalbytes') * $cgi->param('totalmultiplie
 
 $error ||= FS::prepay_credit::generate( $num,
                                         scalar($cgi->param('type')), 
+                                        $cgi->param('length'),
                                         $hashref
                                       );
 
-- 
cgit v1.2.1