X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main%2FStatus.pm;h=66ba33f7fdf87ac54b6de9cef45e2225624fcce0;hp=46a87ff1b018c7a05ce2782418b3fc8d4f53304e;hb=156e74067cc8723e187dfd9c5aa7ff956306fe01;hpb=99670c0a0b72b05d09f948027b50cd8e9850ad37 diff --git a/FS/FS/cust_main/Status.pm b/FS/FS/cust_main/Status.pm index 46a87ff1b..66ba33f7f 100644 --- a/FS/FS/cust_main/Status.pm +++ b/FS/FS/cust_main/Status.pm @@ -1,7 +1,7 @@ package FS::cust_main::Status; use strict; -use vars qw( $conf ); # $module ); #$DEBUG $me ); +use vars qw( $conf $module ); #$DEBUG $me ); use Tie::IxHash; use FS::UID; use FS::cust_pkg; @@ -11,7 +11,7 @@ use FS::cust_pkg; install_callback FS::UID sub { $conf = new FS::Conf; - #$module = $conf->config('cust_main-status_module') || 'Classic'; + $module = $conf->config('cust_main-status_module') || 'Classic'; }; =head1 NAME @@ -40,8 +40,6 @@ sub statuscolors { my %statuscolors; - my $module = $conf->config('cust_main-status_module') || 'Classic'; - if ( $module eq 'Classic' ) { tie %statuscolors, 'Tie::IxHash', 'prospect' => 'FF00F5', #'000000', #black? naw, purple @@ -102,8 +100,6 @@ sub cancelled_sql { AND 0 < ( $select_count_pkgs AND $cancelled_sql ) "; - my $module = $conf->config('cust_main-status_module') || 'Classic'; - if ( $module eq 'Classic' ) { $sql .= " AND 0 = ( $select_count_pkgs AND ". FS::cust_pkg->inactive_sql. " ) ";