[freeside-commits] freeside/httemplate/edit part_pkg.cgi, 1.114, 1.115

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/edit
In directory wavetail.420.am:/tmp/cvs-serv21745

Modified Files:
	part_pkg.cgi 
Log Message:
fix diabled package optional reporting classes still selectable on package def edit, RT#7658

Index: part_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/part_pkg.cgi,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -w -d -r1.114 -r1.115
--- part_pkg.cgi	6 Dec 2009 23:44:54 -0000	1.114
+++ part_pkg.cgi	15 Mar 2010 02:06:37 -0000	1.115
@@ -170,15 +170,17 @@
 
                             { type => 'columnend' },
 
-                            { 'type'  => $census ? 'tablebreak-tr-title'
+                            { 'type'  => $report_option ? 'tablebreak-tr-title'
                                                  : 'hidden',
                               'value' => 'Optional report classes',
                               'field' => 'census_title',
                             },
                             { 'field'    => 'report_option',
-                              'type'     => $census ? 'select-table' : 'hidden',
+                              'type'     => $report_option ? 'select-table'
+                                                           : 'hidden',
                               'table'    => 'part_pkg_report_option',
                               'name_col' => 'name',
+                              'hashref'  => { 'disabled' => '' },
                               'multiple' => 1,
                             },
 
@@ -264,7 +266,7 @@
                        "  WHERE disabled IS NULL OR disabled = ''  ")
   or die dbh->errstr;
 $sth->execute or die $sth->errstr;
-my $census = $sth->fetchrow_arrayref->[0];
+my $report_option = $sth->fetchrow_arrayref->[0];
 
 #XXX
 # - tr-part_pkg_freq: month_increments_only (from price plans)
@@ -417,7 +419,6 @@
   my $link_type = shift; #yay closures
   return sub {
     my( $cgi, $object ) = @_;
-    my $num;
     map {
 
           if ( /^${link_type}_dst_pkgpart(\d+)$/ &&