X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_pkg.cgi;h=ae869dda6d06bf236e7d205ac3f67971d337ac48;hb=9f2280fbce022ab9bcfc46fe94483730b0aeb0f8;hp=3c3016ba2a225f3dcef0af2859ac6a37af3f7f54;hpb=5250c44bd7f282c7d782bf0e8349af12376929df;p=freeside.git diff --git a/httemplate/browse/part_pkg.cgi b/httemplate/browse/part_pkg.cgi index 3c3016ba2..ae869dda6 100755 --- a/httemplate/browse/part_pkg.cgi +++ b/httemplate/browse/part_pkg.cgi @@ -32,6 +32,7 @@ my $acl_edit = $curuser->access_right($edit); my $acl_edit_global = $curuser->access_right($edit_global); my $acl_config = $curuser->access_right('Configuration'); #to edit services #and agent types + #and bulk change die "access denied" unless $acl_edit || $acl_edit_global; @@ -72,7 +73,7 @@ if ( $cgi->param('missing_recur_fee') ) { push @where, "0 = ( SELECT COUNT(*) FROM part_pkg_option WHERE optionname = 'recur_fee' AND part_pkg_option.pkgpart = part_pkg.pkgpart - AND CAST ( optionvalue AS NUMERIC ) > 0 + AND CAST( optionvalue AS NUMERIC ) > 0 )"; } @@ -96,6 +97,13 @@ $select = " *, ( $count_cust_pkg + AND ( setup IS NULL OR setup = 0 ) + AND ( cancel IS NULL OR cancel = 0 ) + AND ( susp IS NULL OR susp = 0 ) + ) AS num_not_yet_billed, + + ( $count_cust_pkg + AND setup IS NOT NULL AND setup != 0 AND ( cancel IS NULL OR cancel = 0 ) AND ( susp IS NULL OR susp = 0 ) ) AS num_active, @@ -140,6 +148,7 @@ my $filter_change = #restore this so pagination works $cgi->param('classnum', $classnum) if length($classnum); +#should hide this if there aren't any classes my $html_posttotal = "$filter_change\n
( show class: ". include('/elements/select-pkg_class.html', @@ -217,7 +226,7 @@ push @fields, sub { ], [ { data=>( $is_recur - ? $money_char.sprintf('%.2f ', $part_pkg->option('recur_fee') ) + ? $money_char.sprintf('%.2f ', $part_pkg->option('recur_fee')) : $part_pkg->freq_pretty ), align=> ( $is_recur ? 'right' : 'center' ), @@ -230,6 +239,14 @@ push @fields, sub { : () ), ], + [ { data => + ( $part_pkg->option('recur_fee') == 0 && $part_pkg->recur_show_zero ) + ? ' (printed on invoices)' + : '', + align => 'center', #? + colspan => 2, + }, + ], ( map { my $dst_pkg = $_->dst_pkg; [ @@ -309,6 +326,7 @@ if ( $acl_edit_global ) { #if ( $cgi->param('active') ) { push @header, 'Customer
packages'; my %col = ( + 'not yet billed' => '009999', #teal? cyan? 'active' => '00CC00', 'suspended' => 'FF9900', 'cancelled' => 'FF0000', @@ -317,8 +335,8 @@ if ( $acl_edit_global ) { ); my $cust_pkg_link = $p. 'search/cust_pkg.cgi?pkgpart='; push @fields, sub { my $part_pkg = shift; - [ - map { + [ + map( { my $magic = $_; my $label = $_; if ( $magic eq 'active' && $part_pkg->freq == 0 ) { @@ -326,6 +344,7 @@ if ( $acl_edit_global ) { #$label = 'one-time charge', $label = 'charge', } + $label= 'not yet billed' if $magic eq 'not_yet_billed'; [ { @@ -350,8 +369,24 @@ if ( $acl_edit_global ) { ), }, ], - } (qw( active suspended cancelled )) - ]; }; + } (qw( not_yet_billed active suspended cancelled )) + ), + ($acl_config ? + [ {}, + { 'data' => '[ '. + include('/elements/popup_link.html', + 'label' => 'change', + 'action' => "${p}edit/bulk-cust_pkg.html?". + 'pkgpart='.$part_pkg->pkgpart, + 'actionlabel' => 'Change Packages', + 'width' => 569, + 'height' => 210, + ).' ]', + 'align' => 'left', + } + ] : () ), + ]; + }; $align .= 'r'; #}