From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Sun, 16 Mar 2008 19:58:34 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.

---
 httemplate/graph/cust_pkg.cgi | 63 -------------------------------------------
 1 file changed, 63 deletions(-)
 delete mode 100644 httemplate/graph/cust_pkg.cgi

(limited to 'httemplate/graph/cust_pkg.cgi')

diff --git a/httemplate/graph/cust_pkg.cgi b/httemplate/graph/cust_pkg.cgi
deleted file mode 100644
index 21ce07d21..000000000
--- a/httemplate/graph/cust_pkg.cgi
+++ /dev/null
@@ -1,63 +0,0 @@
-<% include('elements/monthly.html',
-                'title'         => $agentname. 'Package Churn',
-                'items'         => \@items,
-                'labels'        => \%label,
-                'graph_labels'  => \%graph_label,
-                'colors'        => \%color,
-                'links'         => \%link,
-                'agentnum'      => $agentnum,
-                'sprintf'       => '%u',
-                'disable_money' => 1,
-             )
-%>
-<%init>
-
-#XXX use a different ACL for package churn?
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-
-#false laziness w/money_time.cgi, cust_bill_pkg.cgi
-
-#XXX or virtual
-my( $agentnum, $agent ) = ('', '');
-if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
-  $agentnum = $1;
-  $agent = qsearchs('agent', { 'agentnum' => $agentnum } );
-  die "agentnum $agentnum not found!" unless $agent;
-}
-
-my $agentname = $agent ? $agent->agent.' ' : '';
-
-my @items = qw( setup_pkg susp_pkg cancel_pkg );
-
-my %label = (
-  'setup_pkg'  => 'New orders',
-  'susp_pkg'   => 'Suspensions',
-#  'unsusp' => 'Unsuspensions',
-  'cancel_pkg' => 'Cancellations',
-);
-my %graph_label = %label;
-
-my %color = (
-  'setup_pkg'   => '00cc00', #green
-  'susp_pkg'    => 'ff9900', #yellow
-  #'unsusp'  => '', #light green?
-  'cancel_pkg'  => 'cc0000', #red ? 'ff0000'
-);
-
-my %link = (
-  'setup_pkg'  => { 'link' => "${p}search/cust_pkg.cgi?agentnum=$agentnum;",
-                    'fromparam' => 'setup_begin',
-                    'toparam'   => 'setup_end',
-                  },
-  'susp_pkg'   => { 'link' => "${p}search/cust_pkg.cgi?agentnum=$agentnum;",
-                    'fromparam' => 'susp_begin',
-                    'toparam'   => 'susp_end',
-                  },
-  'cancel_pkg' => { 'link' => "${p}search/cust_pkg.cgi?agentnum=$agentnum;",
-                    'fromparam' => 'cancel_begin',
-                    'toparam'   => 'cancel_end',
-                  },
-);
-
-</%init>
-- 
cgit v1.2.1