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

---
 httemplate/edit/process/part_pkg.cgi | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'httemplate/edit/process')

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 {
-- 
cgit v1.2.1