From 7054cae12e246c80dbb239cc71bc28b89d58ef2c Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 28 Nov 2007 20:18:34 +0000
Subject: [PATCH] better select multiple, discourage creation of packages no
 agent can sell

---
 httemplate/edit/part_pkg.cgi         | 4 ++--
 httemplate/edit/process/part_pkg.cgi | 5 +++++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi
index 1e73329ef..76472334a 100755
--- a/httemplate/edit/part_pkg.cgi
+++ b/httemplate/edit/part_pkg.cgi
@@ -119,8 +119,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 5d9c2355b..e4cf45984 100755
--- 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 {
-- 
2.20.1