better select multiple, discourage creation of packages no agent can sell

diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi
index ab2407b..410c81d 100755 (executable)
--- a/httemplate/edit/part_pkg.cgi
+++ b/httemplate/edit/part_pkg.cgi
@@ -122,8 +122,8 @@ Line-item revenue recognition
                       'table'        => 'agent_type',
                       'name_col'     => 'atype',
                       'value'        => \@agent_type,
-                      'empty_label'  => 'select agent types',
-                      'element_etc'  => 'multiple size="10"',
+                      'multiple'     =>  '1',
+                      'element_etc'  => 'size="10"',
                     )
           %>
         </TD>

diff --git a/httemplate/edit/process/part_pkg.cgi b/httemplate/edit/process/part_pkg.cgi
index 5d9c235..e4cf459 100755 (executable)
--- a/httemplate/edit/process/part_pkg.cgi
+++ b/httemplate/edit/process/part_pkg.cgi
@@ -36,6 +36,11 @@
 %  /^(\d+)$/;
 %  push @agents, $1 if $1;
 %}
+%$error = "At least one agent type must be specified."
+%  unless( scalar(@agents) ||
+%          $cgi->param('clone') && $cgi->param('clone') ~= /^\d+$/ ||
+%          !pkgpart && $conf->exists('agent-defaultpkg')
+%        );
 %
 %my $new = new FS::part_pkg ( {
 %  map {