allow all legal packages to be chosen in selfservice quotations

diff --git a/FS/FS/ClientAPI/MyAccount/quotation.pm b/FS/FS/ClientAPI/MyAccount/quotation.pm
index ce2debd..90c2ace 100644 (file)
--- a/FS/FS/ClientAPI/MyAccount/quotation.pm
+++ b/FS/FS/ClientAPI/MyAccount/quotation.pm
@@ -136,7 +136,10 @@ sub quotation_add_pkg {
 
   my $part_pkg = FS::part_pkg->by_key($pkgpart);
 
-  if (!$part_pkg or !$allowed_pkgpart->{$pkgpart}) {
+  if (!$part_pkg or
+      (!$allowed_pkgpart->{$pkgpart} and 
+       $cust_main->agentnum != ($part_pkg->agentnum || 0))
+  ) {
     warn "disallowed quotation_pkg pkgpart $pkgpart\n"
       if $DEBUG;
     return { 'error' => "unknown package $pkgpart" };