X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fcust_pkg.cgi;h=2a702801cca988b4e0ab260c5c31f5c3a1fd17b5;hb=3a02c437eadd9a39f7e56056ca987a4846650209;hp=941a2e76cb7ef4172b7065982e67aaccdaedf485;hpb=9509e5bfb7f9331303153cac24d7bfecbe2ea9f1;p=freeside.git diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi index 941a2e76c..2a702801c 100755 --- a/httemplate/search/cust_pkg.cgi +++ b/httemplate/search/cust_pkg.cgi @@ -1,13 +1,17 @@ <% include( 'elements/search.html', + 'html_init' => $html_init, 'title' => 'Package Search Results', 'name' => 'packages', 'query' => $sql_query, 'count_query' => $count_query, #'redirect' => $link, 'header' => [ '#', + 'Quan.', 'Package', 'Class', 'Status', + 'Setup', + 'Base Recur', 'Freq.', 'Setup', 'Last bill', @@ -16,6 +20,7 @@ 'Susp.', 'Expire', 'Cancel', + 'Reason', FS::UI::Web::cust_header( $cgi->param('cust_fields') ), @@ -23,12 +28,21 @@ ], 'fields' => [ 'pkgnum', + 'quantity', sub { #my $part_pkg = $part_pkg{shift->pkgpart}; #$part_pkg->pkg; # ' - '. $part_pkg->comment; $_[0]->pkg; # ' - '. $_[0]->comment; }, 'classname', sub { ucfirst(shift->status); }, + sub { sprintf( $money_char.'%.2f', + shift->part_pkg->option('setup_fee'), + ); + }, + sub { sprintf( $money_char.'%.2f', + shift->part_pkg->base_recur + ); + }, sub { #shift->part_pkg->freq_pretty; #my $part_pkg = $part_pkg{shift->pkgpart}; @@ -46,6 +60,16 @@ ( map { time_or_blank($_) } qw( setup last_bill bill adjourn susp expire cancel ) ), + sub { my $self = shift; + my $return = ''; + foreach my $action ( qw ( cancel susp ) ) { + my $reason = $self->last_reason($action); + $return = $reason->reason if $reason; + last if $return; + } + $return; + }, + \&FS::UI::Web::cust_fields, #sub { ''. # join('', map { '
'. $_->[0]. @@ -74,6 +98,7 @@ '', '', '', + '', sub { shift->statuscolor; }, '', '', @@ -82,16 +107,25 @@ '', '', '', + '', + '', + '', + '', FS::UI::Web::cust_colors(), '', ], - 'style' => [ '', '', '', 'b', '', '', '', '', '', '', '', + 'style' => [ '', '', '', '', 'b', '', '', '', '', '', '', '', '', '', '', '', FS::UI::Web::cust_styles() ], - 'size' => [ '', '', '', '-1', ], - 'align' => 'rllclrrrrrr'. FS::UI::Web::cust_aligns(). 'r', + 'size' => [ '', '', '', '', '-1' ], + 'align' => 'rrlccrrlrrrrrrrl'. FS::UI::Web::cust_aligns(). 'r', 'links' => [ $link, $link, + $link, + '', + '', + '', + '', '', '', '', @@ -108,106 +142,34 @@ ), '', ], + 'extra_choices_callback'=> $extra_choices, ) %> <%init> -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List packages'); - -# my %part_pkg = map { $_->pkgpart => $_ } qsearch('part_pkg', {}); - -my($query) = $cgi->keywords; - -my @where = (); - -## -# parse agent -## - -if ( $cgi->param('agentnum') =~ /^(\d+)$/ and $1 ) { - push @where, - "agentnum = $1"; -} - -## -# parse status -## - -if ( $cgi->param('magic') eq 'active' - || $cgi->param('status') eq 'active' ) { - - push @where, FS::cust_pkg->active_sql(); - -} elsif ( $cgi->param('magic') eq 'inactive' - || $cgi->param('status') eq 'inactive' ) { - - push @where, FS::cust_pkg->inactive_sql(); - - -} elsif ( $cgi->param('magic') eq 'suspended' - || $cgi->param('status') eq 'suspended' ) { - - push @where, FS::cust_pkg->suspended_sql(); - -} elsif ( $cgi->param('magic') =~ /^cancell?ed$/ - || $cgi->param('status') =~ /^cancell?ed$/ ) { - - push @where, FS::cust_pkg->cancelled_sql(); - -} elsif ( $cgi->param('status') =~ /^(one-time charge|inactive)$/ ) { - - push @where, FS::cust_pkg->inactive_sql(); - -} +my $curuser = $FS::CurrentUser::CurrentUser; -### -# parse package class -### - -#false lazinessish w/graph/cust_bill_pkg.cgi -my $classnum = 0; -my @pkg_class = (); -if ( exists($cgi->Vars->{'classnum'}) - && $cgi->param('classnum') =~ /^(\d*)$/ - ) -{ - $classnum = $1; - if ( $classnum ) { #a specific class - push @where, "classnum = $classnum"; +die "access denied" + unless $curuser->access_right('List packages'); - #@pkg_class = ( qsearchs('pkg_class', { 'classnum' => $classnum } ) ); - #die "classnum $classnum not found!" unless $pkg_class[0]; - #$title .= $pkg_class[0]->classname.' '; +my $conf = new FS::Conf; +my $money_char = $conf->config('money_char') || '$'; - } elsif ( $classnum eq '' ) { #the empty class +# my %part_pkg = map { $_->pkgpart => $_ } qsearch('part_pkg', {}); - push @where, "classnum IS NULL"; - #$title .= 'Empty class '; - #@pkg_class = ( '(empty class)' ); - } elsif ( $classnum eq '0' ) { - #@pkg_class = qsearch('pkg_class', {} ); # { 'disabled' => '' } ); - #push @pkg_class, '(empty class)'; - } else { - die "illegal classnum"; + my %search_hash = (); + + $search_hash{'query'} = $cgi->keywords; + + for my $param (qw(agentnum magic status classnum pkgpart)) { + $search_hash{$param} = $cgi->param($param) + if $cgi->param($param); } -} -#eslaf - -### -# parse part_pkg -### - -my $pkgpart = join (' OR pkgpart=', - grep {$_} map { /^(\d+)$/; } ($cgi->param('pkgpart'))); -push @where, '(pkgpart=' . $pkgpart . ')' if $pkgpart; ### # parse dates ### -my $orderby = ''; - #false laziness w/report_cust_pkg.html my %disable = ( 'all' => {}, @@ -225,83 +187,24 @@ foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) { next if $beginning == 0 && $ending == 4294967295 or $disable{$cgi->param('status')}->{$field}; - push @where, - "cust_pkg.$field IS NOT NULL", - "cust_pkg.$field >= $beginning", - "cust_pkg.$field <= $ending"; - - $orderby ||= "ORDER BY cust_pkg.$field"; - -} - -$orderby ||= 'ORDER BY bill'; - -### -# parse magic, legacy, etc. -### - -if ( $cgi->param('magic') && - $cgi->param('magic') =~ /^(active|inactive|suspended|cancell?ed)$/ -) { - - $orderby = 'ORDER BY pkgnum'; - - if ( $cgi->param('pkgpart') =~ /^(\d+)$/ ) { - push @where, "pkgpart = $1"; - } - -} elsif ( $query eq 'pkgnum' ) { - - $orderby = 'ORDER BY pkgnum'; - -} elsif ( $query eq 'APKG_pkgnum' ) { + $search_hash{$field} = [ $beginning, $ending ]; - $orderby = 'ORDER BY pkgnum'; - - push @where, '0 < ( - SELECT count(*) FROM pkg_svc - WHERE pkg_svc.pkgpart = cust_pkg.pkgpart - AND pkg_svc.quantity > ( SELECT count(*) FROM cust_svc - WHERE cust_svc.pkgnum = cust_pkg.pkgnum - AND cust_svc.svcpart = pkg_svc.svcpart - ) - )'; - } -## -# setup queries, links, subs, etc. for the search -## - -# here is the agent virtualization -push @where, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $extra_sql = scalar(@where) ? ' WHERE '. join(' AND ', @where) : ''; - -my $addl_from = 'LEFT JOIN cust_main USING ( custnum ) '. - 'LEFT JOIN part_pkg USING ( pkgpart ) '. - 'LEFT JOIN pkg_class USING ( classnum ) '; +my $sql_query = FS::cust_pkg->search_sql(\%search_hash); +my $count_query = delete($sql_query->{'count_query'}); -my $count_query = "SELECT COUNT(*) FROM cust_pkg $addl_from $extra_sql"; - -my $sql_query = { - 'table' => 'cust_pkg', - 'hashref' => {}, - 'select' => join(', ', - 'cust_pkg.*', - ( map "part_pkg.$_", qw( pkg freq ) ), - 'pkg_class.classname', - 'cust_main.custnum as cust_main_custnum', - FS::UI::Web::cust_sql_fields( - $cgi->param('cust_fields') - ), - ), - 'extra_sql' => "$extra_sql $orderby", - 'addl_from' => $addl_from, -}; +my $show = $curuser->default_customer_view =~ /^(jumbo|packages)$/ + ? '' + : ';show=packages'; my $link = sub { - [ "${p}view/cust_main.cgi?".shift->custnum.'#cust_pkg', 'pkgnum' ]; + my $self = shift; + my $frag = 'cust_pkg'. $self->pkgnum; #hack for IE ignoring real #fragment + [ "${p}view/cust_main.cgi?custnum=".$self->custnum. + "$show;fragment=$frag#cust_pkg", + 'pkgnum' + ]; }; my $clink = sub { @@ -337,4 +240,22 @@ sub time_or_blank { }; } +my $html_init = include('/elements/init_overlib.html'); + +my $extra_choices = sub { + my $query = shift; + + return '' unless + $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages'); + + '

'. + include( '/elements/popup_link.html', + 'label' => 'Change these packages', + 'action' => "${p}misc/bulk_change_pkg.cgi?$query", + 'actionlabel' => 'Change Packages', + 'width' => 763, + 'height' => 336, + ); +}; +