diff options
| author | ivan <ivan> | 2005-01-29 12:50:05 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2005-01-29 12:50:05 +0000 |
| commit | 71c6e9e04a6faadedaf2238f7e7fcf607d4721cc (patch) | |
| tree | 59b2add915ae1ecd4dd7781efa8d14759ad2d703 | |
| parent | 55a68e4aabe10db4d9c3ab1bb8befd2f9f4b9008 (diff) | |
oops, last bit for reg codes
| -rw-r--r-- | FS/FS/part_pkg/flat.pm | 2 | ||||
| -rwxr-xr-x | httemplate/browse/agent.cgi | 7 |
2 files changed, 8 insertions, 1 deletions
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> |