3 my %part_pkg = map { $_->pkgpart => $_ } qsearch('part_pkg', {});
5 my($query) = $cgi->keywords;
11 if ( $cgi->param('agentnum') =~ /^(\d+)$/ and $1 ) {
12 $cjoin = "LEFT JOIN cust_main USING ( custnum )";
17 if ( $cgi->param('magic') && $cgi->param('magic') eq 'bill' ) {
18 $orderby = 'ORDER BY bill';
20 my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
22 "bill >= $beginning ",
24 '( cancel IS NULL OR cancel = 0 )';
28 if ( $cgi->param('magic') &&
29 $cgi->param('magic') =~ /^(active|suspended|cancell?ed)$/
32 $orderby = 'ORDER BY pkgnum';
34 if ( $cgi->param('magic') eq 'active' ) {
37 # '( susp IS NULL OR susp = 0 )',
38 # '( cancel IS NULL OR cancel = 0)';
39 push @where, FS::cust_pkg->active_sql();
41 } elsif ( $cgi->param('magic') eq 'suspended' ) {
46 '( cancel IS NULL OR cancel = 0)';
48 } elsif ( $cgi->param('magic') =~ /^cancell?ed$/ ) {
55 die "guru meditation #420";
58 if ( $cgi->param('pkgpart') =~ /^(\d+)$/ ) {
59 push @where, "pkgpart = $1";
62 } elsif ( $query eq 'pkgnum' ) {
64 $orderby = 'ORDER BY pkgnum';
66 } elsif ( $query eq 'APKG_pkgnum' ) {
68 $orderby = 'ORDER BY pkgnum';
71 SELECT count(*) FROM pkg_svc
72 WHERE pkg_svc.pkgpart = cust_pkg.pkgpart
73 AND pkg_svc.quantity > ( SELECT count(*) FROM cust_svc
74 WHERE cust_svc.pkgnum = cust_pkg.pkgnum
75 AND cust_svc.svcpart = pkg_svc.svcpart
80 die "Empty or unknown QUERY_STRING!";
85 my $extra_sql = scalar(@where) ? ' WHERE '. join(' AND ', @where) : '';
87 my $count_query = "SELECT COUNT(*) FROM cust_pkg $cjoin $extra_sql";
90 'table' => 'cust_pkg',
92 'select' => join(', ',
94 'cust_main.custnum as cust_main_custnum',
95 FS::UI::Web::cust_sql_fields(),
97 'extra_sql' => "$extra_sql $orderby",
98 'addl_from' => ' LEFT JOIN cust_main USING ( custnum ) ',
99 #' LEFT JOIN part_pkg USING ( pkgpart ) '
103 [ "${p}view/cust_main.cgi?".shift->custnum.'#cust_pkg', 'pkgnum' ];
107 my $cust_pkg = shift;
108 $cust_pkg->cust_main_custnum
109 ? [ "${p}view/cust_main.cgi?", 'custnum' ]
113 #if ( scalar(@cust_pkg) == 1 ) {
114 # print $cgi->redirect("${p}view/cust_main.cgi?". $cust_pkg[0]->custnum.
115 # "#cust_pkg". $cust_pkg[0]->pkgnum );
117 # my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
118 # my $rowspan = scalar(@cust_svc) || 1;
121 # foreach my $cust_svc ( @cust_svc ) {
122 # my($label, $value, $svcdb) = $cust_svc->label;
123 # my $svcnum = $cust_svc->svcnum;
124 # my $sview = $p. "view";
125 # print $n2,qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
126 # qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
134 my $value = $record->get($column); #mmm closures
135 $value ? time2str('%b %d %Y', $value ) : '';
139 %><%= include( 'elements/search.html',
140 'title' => 'Package Search Results',
141 'name' => 'packages',
142 'query' => $sql_query,
143 'count_query' => $count_query,
155 FS::UI::Web::cust_header(),
160 sub { my $part_pkg = $part_pkg{shift->pkgpart};
161 $part_pkg->pkg; # ' - '. $part_pkg->comment;
163 sub { ucfirst(shift->status); },
164 sub { #shift->part_pkg->freq_pretty;
165 my $part_pkg = $part_pkg{shift->pkgpart};
166 $part_pkg->freq_pretty;
169 #sub { time2str('%b %d %Y', shift->setup); },
170 #sub { time2str('%b %d %Y', shift->last_bill); },
171 #sub { time2str('%b %d %Y', shift->bill); },
172 #sub { time2str('%b %d %Y', shift->susp); },
173 #sub { time2str('%b %d %Y', shift->expire); },
174 #sub { time2str('%b %d %Y', shift->get('cancel')); },
175 ( map { time_or_blank($_) }
176 qw( setup last_bill bill susp expire cancel ) ),
178 \&FS::UI::Web::cust_fields,
179 #sub { '<table border=0 cellspacing=0 cellpadding=0 STYLE="border:none">'.
180 # join('', map { '<tr><td align="right" style="border:none">'. $_->[0].
181 # ':</td><td style="border:none">'. $_->[1]. '</td></tr>' }
189 { 'data' => $_->[0]. ':',
194 'link' => $p. 'view/' .
195 $_->[2]. '.cgi?'. $_->[3],
205 sub { shift->statuscolor; },
213 ( map { '' } FS::UI::Web::cust_header() ),
216 'style' => [ '', '', 'b' ],
217 'size' => [ '', '', '-1', ],
218 'align' => 'rlclrrrrrr',
230 ( map { $clink } FS::UI::Web::cust_header() ),