projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d114bf1
)
don't consider disabled report classes, don't load up the whole table just to see...
author
ivan
<ivan>
Wed, 25 Nov 2009 19:58:49 +0000
(19:58 +0000)
committer
ivan
<ivan>
Wed, 25 Nov 2009 19:58:49 +0000
(19:58 +0000)
httemplate/edit/part_pkg.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/part_pkg.cgi
b/httemplate/edit/part_pkg.cgi
index
fcde22b
..
7140ca5
100755
(executable)
--- a/
httemplate/edit/part_pkg.cgi
+++ b/
httemplate/edit/part_pkg.cgi
@@
-247,6
+247,11
@@
my $begin_callback = sub {
my $disabled_type = $acl_edit_either ? 'checkbox' : 'hidden';
my $disabled_type = $acl_edit_either ? 'checkbox' : 'hidden';
+#arg. access rights for cloning are Hard.
+# on the one hand we don't really want cloning (customizing a package) to fail
+# for want of finding the source package in normal usage
+# on the other hand, we don't want people using the clone link to be able to
+# see
my $agent_clone_extra_sql =
' ( '. FS::part_pkg->curuser_pkgs_sql.
" OR ( part_pkg.custom = 'Y' ) ".
my $agent_clone_extra_sql =
' ( '. FS::part_pkg->curuser_pkgs_sql.
" OR ( part_pkg.custom = 'Y' ) ".
@@
-254,7
+259,12
@@
my $agent_clone_extra_sql =
my $conf = new FS::Conf;
my $taxproducts = $conf->exists('enable_taxproducts');
my $conf = new FS::Conf;
my $taxproducts = $conf->exists('enable_taxproducts');
-my $census = scalar( qsearch( 'part_pkg_report_option', {} ) );
+
+my $sth = dbh->prepare("SELECT COUNT(*) FROM part_pkg_report_option".
+ " WHERE disabled IS NULL OR disabled = '' ")
+ or die dbh->errstr;
+$sth->execute or die $sth->errstr;
+my $census = $sth->fetchrow_arrayref->[0];
#XXX
# - tr-part_pkg_freq: month_increments_only (from price plans)
#XXX
# - tr-part_pkg_freq: month_increments_only (from price plans)