1 files changed, 38 insertions, 0 deletions
diff --git a/httemplate/elements/select-part_pkg.html b/httemplate/elements/select-part_pkg.html
new file mode 100644
index 000000000..52b1ccaf1
--- /dev/null
+++ b/httemplate/elements/select-part_pkg.html
@@ -0,0 +1,38 @@
+<%doc>
+
+Example:
+
+  include( '/elements/select-part_pkg.html',
+
+    #strongly recommended (you want your forms to be "sticky" on errors, right?)
+    'curr_value' => 'current_value',
+  
+    #opt
+    'part_pkg'   => \@records,
+
+    #select-table.html options
+  )
+
+</%doc>
+
+<% include( '/elements/select-table.html',
+              'table'          => 'part_pkg',
+              'agent_virt'     => 1,
+              'agent_null'     => 1,
+              'name_col'       => 'pkg',
+              'empty_label'    => 'Select package', #should this be the default?
+              'label_callback' => sub { shift->pkg_comment },
+              'hashref'        => { 'disabled' => '' },
+              %opt,
+          )
+%>
+<%init>
+
+my( %opt ) = @_;
+
+$opt{'records'} = delete $opt{'part_pkg'}
+  if $opt{'part_pkg'};
+
+$opt{'extra_sql'} .= ' AND '. FS::part_pkg->curuser_pkgs_sql;
+
+</%init>