X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpkg_class.html;h=2aa2857a5d93c2a5ac0994b6b6cbf0eda8dd2f9a;hb=69d3ce315e8d44adef35eb32f805ceaa9b91598c;hp=97b0621ae58fefcdecfba44e1364666039115aab;hpb=033709735189caa804476fc17e9946809516fcf7;p=freeside.git

diff --git a/httemplate/browse/pkg_class.html b/httemplate/browse/pkg_class.html
index 97b0621ae..2aa2857a5 100644
--- a/httemplate/browse/pkg_class.html
+++ b/httemplate/browse/pkg_class.html
@@ -19,6 +19,8 @@
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 
+my $conf = new FS::Conf;
+
 my $html_init = 
   'Package classes define groups of packages, for taxation, ordering '.
   'convenience and reporting.<BR><BR>'.
@@ -32,6 +34,12 @@ my $header = [ '#', 'Class' ];
 my $fields = [ 'classnum', 'classname' ];
 my $links  = [ $link, $link ];
 
+if($conf->exists('cust_main-require_censustract')) {
+    push @{$fields}, 'fcc_ds0s';
+    push @{$header}, 'FCC form 477 voice-grade equivalents';
+    push @{$links}, '';
+}
+
 my $cat_query = 'SELECT COUNT(*) FROM pkg_class where categorynum IS NOT NULL';
 my $sth = dbh->prepare($cat_query)
   or die "Error preparing $cat_query: ". dbh->errstr;
@@ -40,7 +48,7 @@ $sth->execute
 if ($sth->fetchrow_arrayref->[0]) {
   push @$header, 'Category';
   push @$fields, 'categoryname';
-  push @$links,  $link;
+  push @$links,  [ $p.'edit/pkg_category.html?', 'categorynum' ]
 }
 
 </%init>