From 71c6e9e04a6faadedaf2238f7e7fcf607d4721cc Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 29 Jan 2005 12:50:05 +0000
Subject: [PATCH] oops, last bit for reg codes

---
 FS/FS/part_pkg/flat.pm      | 2 +-
 httemplate/browse/agent.cgi | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/FS/FS/part_pkg/flat.pm b/FS/FS/part_pkg/flat.pm
index 131f850e9..ee0f75672 100644
--- a/FS/FS/part_pkg/flat.pm
+++ b/FS/FS/part_pkg/flat.pm
@@ -48,7 +48,7 @@ sub calc_remain {
   my $next_bill = $cust_pkg->getfield('bill') || 0;
   my $last_bill = $cust_pkg->last_bill || 0;
   return 0 if    ! $self->base_recur
-              || ! $self->option('unused_credit')
+              || ! $self->option('unused_credit', 1)
               || ! $last_bill
               || ! $next_bill;
 
diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi
index f38934297..f24266fb2 100755
--- a/httemplate/browse/agent.cgi
+++ b/httemplate/browse/agent.cgi
@@ -35,6 +35,7 @@ full offerings (via their type).<BR><BR>
   <TH COLSPAN=<%= ( $cgi->param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent</TH>
   <TH>Type</TH>
   <TH>Customers</TH>
+  <TH>Registration Codes</TH>
   <TH><FONT SIZE=-1>Freq.</FONT></TH>
   <TH><FONT SIZE=-1>Prog.</FONT></TH>
 </TR>
@@ -89,6 +90,12 @@ foreach my $agent ( sort {
           <% if ( $num_cancel ) { %>
             <A HREF="<%= $cust_main_link %>&showcancelledcustomers=1&cancelled=1"><% } %>cancelled<% if ( $num_cancel ) { %></A><% } %>
         </TD>
+        <TD>
+          <%= my $num_reg_code = $agent->num_reg_code %>
+          <% if ( $num_reg_code ) { %>
+            <A HREF="<%=$p%>search/reg_code.html?agentnum=<%= $agent->agentnum %>"><% } %>Unused<% if ( $num_reg_code ) { %></A><% } %>
+          <BR><A HREF="<%=$p%>edit/reg_code.cgi?agentnum=<%= $agent->agentnum %>">Generate codes</A>
+        </TD>
         <TD><%= $agent->freq %></TD>
         <TD><%= $agent->prog %></TD>
       </TR>
-- 
2.11.0