httemplate/search/cust_pkg.cgi

   1 <%
   2
   3 my %part_pkg = map { $_->pkgpart => $_ } qsearch('part_pkg', {});
   4
   5 my($query) = $cgi->keywords;
   6
   7 my $orderby;
   8 my @where;
   9 my $cjoin = '';
  10
  11 if ( $cgi->param('agentnum') =~ /^(\d+)$/ and $1 ) {
  12   $cjoin = "LEFT JOIN cust_main USING ( custnum )";
  13   push @where,
  14     "agentnum = $1";
  15 }
  16
  17 if ( $cgi->param('magic') && $cgi->param('magic') eq 'bill' ) {
  18   $orderby = 'ORDER BY bill';
  19
  20   my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
  21   push @where,
  22     #"bill >= $beginning ",
  23     #"bill <= $ending",
  24     "CASE WHEN bill IS NULL THEN 0 ELSE bill END >= $beginning ",
  25     "CASE WHEN bill IS NULL THEN 0 ELSE bill END <= $ending",
  26     '( cancel IS NULL OR cancel = 0 )';
  27
  28 } else {
  29
  30   if ( $cgi->param('magic') &&
  31        $cgi->param('magic') =~ /^(active|suspended|cancell?ed)$/
  32   ) {
  33
  34     $orderby = 'ORDER BY pkgnum';
  35
  36     if ( $cgi->param('magic') eq 'active' ) {
  37
  38       #push @where,
  39       #  '( susp IS NULL OR susp = 0 )',
  40       #  '( cancel IS NULL OR cancel = 0)';
  41       push @where, FS::cust_pkg->active_sql();
  42
  43     } elsif ( $cgi->param('magic') eq 'suspended' ) {
  44
  45       push @where,
  46         'susp IS NOT NULL',
  47         'susp != 0',
  48         '( cancel IS NULL OR cancel = 0)';
  49
  50     } elsif ( $cgi->param('magic') =~ /^cancell?ed$/ ) {
  51
  52       push @where,
  53         'cancel IS NOT NULL',
  54         'cancel != 0';
  55
  56     } else {
  57       die "guru meditation #420";
  58     }
  59
  60     if ( $cgi->param('pkgpart') =~ /^(\d+)$/ ) {
  61       push @where, "pkgpart = $1";
  62     }
  63
  64   } elsif ( $query eq 'pkgnum' ) {
  65
  66     $orderby = 'ORDER BY pkgnum';
  67
  68   } elsif ( $query eq 'APKG_pkgnum' ) {
  69
  70     $orderby = 'ORDER BY pkgnum';
  71
  72     push @where, '0 < (
  73       SELECT count(*) FROM pkg_svc
  74        WHERE pkg_svc.pkgpart =  cust_pkg.pkgpart
  75          AND pkg_svc.quantity > ( SELECT count(*) FROM cust_svc
  76                                    WHERE cust_svc.pkgnum  = cust_pkg.pkgnum
  77                                      AND cust_svc.svcpart = pkg_svc.svcpart
  78                                 )
  79     )';
  80
  81   } else {
  82     die "Empty or unknown QUERY_STRING!";
  83   }
  84
  85 }
  86
  87 my $extra_sql = scalar(@where) ? ' WHERE '. join(' AND ', @where) : '';
  88
  89 my $count_query = "SELECT COUNT(*) FROM cust_pkg $cjoin $extra_sql";
  90
  91 my $sql_query = {
  92   'table'     => 'cust_pkg',
  93   'hashref'   => {},
  94   'select'    => join(', ',
  95                             'cust_pkg.*',
  96                             'cust_main.custnum as cust_main_custnum',
  97                             FS::UI::Web::cust_sql_fields(),
  98                  ),
  99   'extra_sql' => "$extra_sql $orderby",
 100   'addl_from' => ' LEFT JOIN cust_main USING ( custnum ) ',
 101                  #' LEFT JOIN part_pkg  USING ( pkgpart ) '
 102 };
 103
 104 my $link = sub {
 105   [ "${p}view/cust_main.cgi?".shift->custnum.'#cust_pkg', 'pkgnum' ];
 106 };
 107
 108 my $clink = sub {
 109   my $cust_pkg = shift;
 110   $cust_pkg->cust_main_custnum
 111     ? [ "${p}view/cust_main.cgi?", 'custnum' ]
 112     : '';
 113 };
 114
 115 #if ( scalar(@cust_pkg) == 1 ) {
 116 #  print $cgi->redirect("${p}view/cust_main.cgi?". $cust_pkg[0]->custnum.
 117 #                       "#cust_pkg". $cust_pkg[0]->pkgnum );
 118
 119 #    my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
 120 #    my $rowspan = scalar(@cust_svc) || 1;
 121
 122 #    my $n2 = '';
 123 #    foreach my $cust_svc ( @cust_svc ) {
 124 #      my($label, $value, $svcdb) = $cust_svc->label;
 125 #      my $svcnum = $cust_svc->svcnum;
 126 #      my $sview = $p. "view";
 127 #      print $n2,qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
 128 #            qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
 129 #      $n2="</TR><TR>";
 130 #    }
 131
 132 sub time_or_blank {
 133    my $column = shift;
 134    return sub {
 135      my $record = shift;
 136      my $value = $record->get($column); #mmm closures
 137      $value ? time2str('%b %d %Y', $value ) : '';
 138    };
 139 }
 140
 141 %><%=  include( 'elements/search.html',
 142                   'title'       => 'Package Search Results',
 143                   'name'        => 'packages',
 144                   'query'       => $sql_query,
 145                   'count_query' => $count_query,
 146                   #'redirect'    => $link,
 147                   'header'      => [ '#',
 148                                      'Package',
 149                                      'Status',
 150                                      'Freq.',
 151                                      'Setup',
 152                                      'Last bill',
 153                                      'Next bill',
 154                                      'Susp.',
 155                                      'Expire',
 156                                      'Cancel',
 157                                      FS::UI::Web::cust_header(),
 158                                      'Services',
 159                                    ],
 160                   'fields'      => [
 161                     'pkgnum',
 162                     sub { my $part_pkg = $part_pkg{shift->pkgpart};
 163                           $part_pkg->pkg; # ' - '. $part_pkg->comment;
 164                         },
 165                     sub { ucfirst(shift->status); },
 166                     sub { #shift->part_pkg->freq_pretty;
 167                           my $part_pkg = $part_pkg{shift->pkgpart};
 168                           $part_pkg->freq_pretty;
 169                         },
 170
 171                     #sub { time2str('%b %d %Y', shift->setup); },
 172                     #sub { time2str('%b %d %Y', shift->last_bill); },
 173                     #sub { time2str('%b %d %Y', shift->bill); },
 174                     #sub { time2str('%b %d %Y', shift->susp); },
 175                     #sub { time2str('%b %d %Y', shift->expire); },
 176                     #sub { time2str('%b %d %Y', shift->get('cancel')); },
 177                     ( map { time_or_blank($_) }
 178                           qw( setup last_bill bill susp expire cancel ) ),
 179
 180                     \&FS::UI::Web::cust_fields,
 181                     #sub { '<table border=0 cellspacing=0 cellpadding=0 STYLE="border:none">'.
 182                     #      join('', map { '<tr><td align="right" style="border:none">'. $_->[0].
 183                     #                     ':</td><td style="border:none">'. $_->[1]. '</td></tr>' }
 184                     #                   shift->labels
 185                     #          ).
 186                     #      '</table>';
 187                     #    },
 188                     sub {
 189                           [ map {
 190                                   [
 191                                     { 'data' => $_->[0]. ':',
 192                                       'align'=> 'right',
 193                                     },
 194                                     { 'data' => $_->[1],
 195                                       'align'=> 'left',
 196                                       'link' => $p. 'view/' .
 197                                                 $_->[2]. '.cgi?'. $_->[3],
 198                                     },
 199                                   ];
 200                                 } shift->labels
 201                           ];
 202                         },
 203                   ],
 204                   'color' => [
 205                     '',
 206                     '',
 207                     sub { shift->statuscolor; },
 208                     '',
 209                     '',
 210                     '',
 211                     '',
 212                     '',
 213                     '',
 214                     '',
 215                     ( map { '' } FS::UI::Web::cust_header() ),
 216                     '',
 217                   ],
 218                   'style' => [ '', '', 'b' ],
 219                   'size'  => [ '', '', '-1', ],
 220                   'align' => 'rlclrrrrrr',
 221                   'links' => [
 222                     $link,
 223                     $link,
 224                     '',
 225                     '',
 226                     '',
 227                     '',
 228                     '',
 229                     '',
 230                     '',
 231                     '',
 232                     ( map { $clink } FS::UI::Web::cust_header() ),
 233                     '',
 234                   ],
 235               )
 236 %>