select multiple pkgparts on advanced package report

diff --git a/httemplate/elements/tr-selectmultiple-part_pkg.html b/httemplate/elements/tr-selectmultiple-part_pkg.html
new file mode 100644 (file)
index 0000000..abf96d7
--- /dev/null
+++ b/httemplate/elements/tr-selectmultiple-part_pkg.html
@@ -0,0 +1,23 @@
+%
+%  my( $cust_fields, %opt ) = @_;
+%
+%  use FS::ConfDefaults;
+%  $opt{'avail_fields'} ||= [ FS::ConfDefaults->cust_fields_avail() ];
+%
+%
+
+
+<TR>
+  <TD ALIGN="right"><% $opt{'label'} || 'Packages' %></TD>
+  <TD>
+    <% include( '/elements/select-table.html',
+                  'table'     => 'part_pkg',
+                 'name_col'  => 'pkg',
+                 'value'     => '',
+                 'empty_label' => '(none)',
+                 'element_etc' => 'multiple',
+                 %opt,
+              )
+    %>
+  </TD>
+</TR>

diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi
index 8dbc600..7a651c4 100755 (executable)
--- a/httemplate/search/cust_pkg.cgi
+++ b/httemplate/search/cust_pkg.cgi
@@ -80,6 +80,14 @@
 %#eslaf
 %
 %###
+%# parse part_pkg
+%###
+%
+%my $pkgpart = join (' OR pkgpart=',
+%                    grep {$_} map { /^(\d+)$/; } ($cgi->param('pkgpart')));
+%push @where,  '(pkgpart=' . $pkgpart . ')' if $pkgpart;
+%
+%###
 %# parse magic, legacy, etc.
 %###
 %

diff --git a/httemplate/search/report_cust_pkg.html b/httemplate/search/report_cust_pkg.html
index 8fabf10..2193cac 100755 (executable)
--- a/httemplate/search/report_cust_pkg.html
+++ b/httemplate/search/report_cust_pkg.html
@@ -18,7 +18,7 @@
                    'empty_label' => '(empty class)',
                )
     %>
-% #include( '/elements/tr-selectmultiple-part_pkg.html' ) 
+    <% include( '/elements/tr-selectmultiple-part_pkg.html' ) %> 
 
     <TR>
       <TD ALIGN="right" VALIGN="center">Next bill date</TD>