httemplate/browse/agent.cgi

   1 <% include("/elements/header.html",'Agent Listing', menubar(
   2   'Main Menu'   => $p,
   3   'Agent Types' => $p. 'browse/agent_type.cgi',
   4 #  'Add new agent' => '../edit/agent.cgi'
   5 )) %>
   6 Agents are resellers of your service. Agents may be limited to a subset of your
   7 full offerings (via their type).<BR><BR>
   8 <A HREF="<% $p %>edit/agent.cgi"><I>Add a new agent</I></A><BR><BR>
   9 % if ( dbdef->table('agent')->column('disabled') ) {
  10
  11   <% $cgi->param('showdisabled')
  12       ? do { $cgi->param('showdisabled', 0);
  13              '( <a href="'. $cgi->self_url. '">hide disabled agents</a> )'; }
  14       : do { $cgi->param('showdisabled', 1);
  15              '( <a href="'. $cgi->self_url. '">show disabled agents</a> )'; }
  16   %>
  17 % }
  18
  19
  20 <% include('/elements/table-grid.html') %>
  21 % my $bgcolor1 = '#eeeeee';
  22 %   my $bgcolor2 = '#ffffff';
  23 %   my $bgcolor = '';
  24 %
  25
  26
  27 <TR>
  28   <TH CLASS="grid" BGCOLOR="#cccccc" COLSPAN=<% ( $cgi->param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent</TH>
  29   <TH CLASS="grid" BGCOLOR="#cccccc">Type</TH>
  30   <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Invoice<BR>Template</FONT></TH>
  31   <TH CLASS="grid" BGCOLOR="#cccccc">Customers</TH>
  32   <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Customer<BR>packages</FONT></TH>
  33   <TH CLASS="grid" BGCOLOR="#cccccc">Reports</TH>
  34   <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Registration<BR>codes</FONT></TH>
  35   <TH CLASS="grid" BGCOLOR="#cccccc">Prepaid cards</TH>
  36 % if ( $conf->config('ticket_system') ) {
  37
  38     <TH CLASS="grid" BGCOLOR="#cccccc">Ticketing</TH>
  39 % }
  40
  41   <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Payment Gateway Overrides</FONT></TH>
  42   <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Configuration Overrides</FONT></TH>
  43 </TR>
  44 %
  45 %#        <TH><FONT SIZE=-1>Agent #</FONT></TH>
  46 %#        <TH>Agent</TH>
  47 %
  48 %foreach my $agent ( sort {
  49 %  #$a->getfield('agentnum') <=> $b->getfield('agentnum')
  50 %  $a->getfield('agent') cmp $b->getfield('agent')
  51 %} qsearch('agent', \%search ) ) {
  52 %
  53 %  my $cust_main_link = $p. 'search/cust_main.cgi?agentnum_on=1&'.
  54 %                       'agentnum='. $agent->agentnum;
  55 %
  56 %  my $cust_pkg_link = $p. 'search/cust_pkg.cgi?agentnum='. $agent->agentnum;
  57 %
  58 %  if ( $bgcolor eq $bgcolor1 ) {
  59 %    $bgcolor = $bgcolor2;
  60 %  } else {
  61 %    $bgcolor = $bgcolor1;
  62 %  }
  63 %
  64 %
  65
  66
  67       <TR>
  68
  69         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  70           <A HREF="<%$p%>edit/agent.cgi?<% $agent->agentnum %>"><% $agent->agentnum %></A>
  71         </TD>
  72
  73 %       if ( dbdef->table('agent')->column('disabled')
  74 %            && !$cgi->param('showdisabled')           ) {
  75           <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  76             <% $agent->disabled ? 'DISABLED' : '' %>
  77           </TD>
  78 %       }
  79
  80         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  81           <A HREF="<%$p%>edit/agent.cgi?<% $agent->agentnum %>"><% $agent->agent %></A>
  82         </TD>
  83
  84         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  85           <A HREF="<%$p%>edit/agent_type.cgi?<% $agent->typenum %>"><% $agent->agent_type->atype %></A>
  86         </TD>
  87
  88         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  89           <% $agent->invoice_template || '(Default)' %>
  90         </TD>
  91
  92         <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
  93           <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0>
  94
  95             <TR>
  96               <TH ALIGN="right" WIDTH="40%">
  97                 <FONT COLOR="#7e0079">
  98                   <% my $num_prospect = $agent->num_prospect_cust_main %>&nbsp;
  99                 </FONT>
 100               </TH>
 101
 102               <TD>
 103 % if ( $num_prospect ) {
 104
 105                   <A HREF="<% $cust_main_link %>&prospect=1">
 106 % }
 107 prospects
 108 % if ($num_prospect ) {
 109 </A>
 110 % }
 111
 112               <TD>
 113             </TR>
 114
 115             <TR>
 116               <TH ALIGN="right" WIDTH="40%">
 117                 <FONT COLOR="#0000CC">
 118                   <% my $num_inactive = $agent->num_inactive_cust_main %>&nbsp;
 119                 </FONT>
 120               </TH>
 121
 122               <TD>
 123 % if ( $num_inactive ) {
 124
 125                   <A HREF="<% $cust_main_link %>&inactive=1">
 126 % }
 127 inactive
 128 % if ( $num_inactive ) {
 129 </A>
 130 % }
 131
 132               </TD>
 133             </TR>
 134
 135             <TR>
 136               <TH ALIGN="right" WIDTH="40%">
 137                 <FONT COLOR="#00CC00">
 138                   <% my $num_active = $agent->num_active_cust_main %>&nbsp;
 139                 </FONT>
 140               </TH>
 141
 142               <TD>
 143 % if ( $num_active ) {
 144
 145                   <A HREF="<% $cust_main_link %>&active=1">
 146 % }
 147 active
 148 % if ( $num_active ) {
 149 </A>
 150 % }
 151
 152               </TD>
 153             </TR>
 154
 155             <TR>
 156               <TH ALIGN="right" WIDTH="40%">
 157                 <FONT COLOR="#FF9900">
 158                   <% my $num_susp = $agent->num_susp_cust_main %>&nbsp;
 159                 </FONT>
 160               </TH>
 161
 162               <TD>
 163 % if ( $num_susp ) {
 164
 165                   <A HREF="<% $cust_main_link %>&suspended=1">
 166 % }
 167 suspended
 168 % if ( $num_susp ) {
 169 </A>
 170 % }
 171
 172               </TD>
 173             </TR>
 174
 175             <TR>
 176               <TH ALIGN="right" WIDTH="40%">
 177                 <FONT COLOR="#FF0000">
 178                   <% my $num_cancel = $agent->num_cancel_cust_main %>&nbsp;
 179                 </FONT>
 180               </TH>
 181
 182               <TD>
 183 % if ( $num_cancel ) {
 184
 185                   <A HREF="<% $cust_main_link %>&showcancelledcustomers=1&cancelled=1">
 186 % }
 187 cancelled
 188 % if ( $num_cancel ) {
 189 </A>
 190 % }
 191
 192               </TD>
 193             </TR>
 194
 195           </TABLE>
 196         </TD>
 197
 198         <TD CLASS="inv" BGCOLOR="<% $bgcolor %>" VALIGN="bottom">
 199           <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0>
 200
 201             <TR>
 202               <TH ALIGN="right" WIDTH="40%">
 203                 <FONT COLOR="#0000CC">
 204                   <% my $num_inactive_pkg = $agent->num_inactive_cust_pkg %>&nbsp;
 205                 </FONT>
 206               </TH>
 207
 208               <TD>
 209 % if ( $num_inactive_pkg ) {
 210
 211                   <A HREF="<% $cust_pkg_link %>&magic=inactive">
 212 % }
 213 inactive
 214 % if ( $num_inactive_pkg ) {
 215 </A>
 216 % }
 217
 218               </TD>
 219             </TR>
 220
 221             <TR>
 222               <TH ALIGN="right" WIDTH="40%">
 223                 <FONT COLOR="#00CC00">
 224                   <% my $num_active_pkg = $agent->num_active_cust_pkg %>&nbsp;
 225                 </FONT>
 226               </TH>
 227
 228               <TD>
 229 % if ( $num_active_pkg ) {
 230
 231                   <A HREF="<% $cust_pkg_link %>&magic=active">
 232 % }
 233 active
 234 % if ( $num_active_pkg ) {
 235 </A>
 236 % }
 237
 238               </TD>
 239             </TR>
 240
 241             <TR>
 242               <TH ALIGN="right" WIDTH="40%">
 243                 <FONT COLOR="#FF9900">
 244                   <% my $num_susp_pkg = $agent->num_susp_cust_pkg %>&nbsp;
 245                 </FONT>
 246
 247               </TH>
 248               <TD>
 249 % if ( $num_susp_pkg ) {
 250
 251                   <A HREF="<% $cust_pkg_link %>&magic=suspended">
 252 % }
 253 suspended
 254 % if ( $num_susp_pkg ) {
 255 </A>
 256 % }
 257
 258               </TD>
 259             </TR>
 260
 261             <TR>
 262               <TH ALIGN="right" WIDTH="40%">
 263                 <FONT COLOR="#FF0000">
 264                   <% my $num_cancel_pkg = $agent->num_cancel_cust_pkg %>&nbsp;
 265                 </FONT>
 266               </TH>
 267
 268               <TD>
 269 % if ( $num_cancel_pkg ) {
 270
 271                   <A HREF="<% $cust_pkg_link %>&magic=cancelled">
 272 % }
 273 cancelled
 274 % if ( $num_cancel_pkg ) {
 275 </A>
 276 % }
 277
 278               </TD>
 279             </TR>
 280
 281           </TABLE>
 282         </TD>
 283
 284         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
 285           <A HREF="<% $p %>search/report_cust_pay.html?agentnum=<% $agent->agentnum %>">Payments</A>
 286           <BR><A HREF="<% $p %>search/report_cust_credit.html?agentnum=<% $agent->agentnum %>">Credits</A>
 287           <BR><A HREF="<% $p %>search/report_receivables.cgi?agentnum=<% $agent->agentnum %>">A/R Aging</A>
 288           <!--<BR><A HREF="<% $p %>search/money_time.cgi?agentnum=<% $agent->agentnum %>">Sales/Credits/Receipts</A>-->
 289
 290         </TD>
 291
 292         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
 293           <% my $num_reg_code = $agent->num_reg_code %>
 294 % if ( $num_reg_code ) {
 295
 296             <A HREF="<%$p%>search/reg_code.html?agentnum=<% $agent->agentnum %>">
 297 % }
 298 Unused
 299 % if ( $num_reg_code ) {
 300 </A>
 301 % }
 302
 303           <BR><A HREF="<%$p%>edit/reg_code.cgi?agentnum=<% $agent->agentnum %>">Generate codes</A>
 304         </TD>
 305
 306         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
 307           <% my $num_prepay_credit = $agent->num_prepay_credit %>
 308 % if ( $num_prepay_credit ) {
 309
 310             <A HREF="<%$p%>search/prepay_credit.html?agentnum=<% $agent->agentnum %>">
 311 % }
 312 Unused
 313 % if ( $num_prepay_credit ) {
 314 </A>
 315 % }
 316
 317           <BR><A HREF="<%$p%>edit/prepay_credit.cgi?agentnum=<% $agent->agentnum %>">Generate cards</A>
 318         </TD>
 319 % if ( $conf->config('ticket_system') ) {
 320
 321
 322           <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
 323 % if ( $agent->ticketing_queueid ) {
 324
 325               Queue: <% $agent->ticketing_queueid %>: <% $agent->ticketing_queue %><BR>
 326 % }
 327
 328           </TD>
 329 % }
 330
 331
 332         <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
 333           <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0>
 334 % foreach my $override (
 335 %                 # sort { }  want taxclass-full stuff first?  and default cards (empty cardtype)
 336 %                 qsearch('agent_payment_gateway', { 'agentnum' => $agent->agentnum } )
 337 %               ) {
 338 %
 339
 340               <TR>
 341                 <TD>
 342                   <% $override->cardtype || 'Default' %> to <% $override->payment_gateway->gateway_module %> (<% $override->payment_gateway->gateway_username %>)
 343                   <% $override->taxclass
 344                         ? ' for '. $override->taxclass. ' only'
 345                         : ''
 346                   %>
 347                   <FONT SIZE=-1><A HREF="<%$p%>misc/delete-agent_payment_gateway.cgi?<% $override->agentgatewaynum %>">(delete)</A></FONT>
 348                 </TD>
 349               </TR>
 350 % }
 351
 352             <TR>
 353               <TD><FONT SIZE=-1><A HREF="<%$p%>edit/agent_payment_gateway.html?agentnum=<% $agent->agentnum %>">(add override)</A></FONT></TD>
 354             </TR>
 355           </TABLE>
 356         </TD>
 357
 358         <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
 359           <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0>
 360 % foreach my $override (
 361 %                 qsearch('conf', { 'agentnum' => $agent->agentnum } )
 362 %               ) {
 363 %
 364
 365               <TR>
 366                 <TD>
 367                   <% $override->name %>
 368                   <FONT SIZE=-1><A HREF="<%$p%>config/config-delete.cgi?<% $override->confnum %>">(delete)</A></FONT>
 369                 </TD>
 370               </TR>
 371 % }
 372
 373             <TR>
 374               <TD><FONT SIZE=-1><A HREF="<%$p%>config/config-view.cgi?agentnum=<% $agent->agentnum %>">(add override)</A></FONT></TD>
 375             </TR>
 376           </TABLE>
 377         </TD>
 378
 379       </TR>
 380 % }
 381
 382
 383     </TABLE>
 384   </BODY>
 385 </HTML>
 386 <%init>
 387
 388 die "access denied"
 389   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 390
 391 my %search;
 392 if ( $cgi->param('showdisabled')
 393      || !dbdef->table('agent')->column('disabled') ) {
 394   %search = ();
 395 } else {
 396   %search = ( 'disabled' => '' );
 397 }
 398
 399 my $conf = new FS::Conf;
 400
 401 </%init>