-%my %agent_pkgs = map { ( $_->pkgpart , $all_pkg{$_->pkgpart} ) }
-% qsearch('type_pkgs',{'typenum'=> $agent->typenum });
+%my %agent_pkgs = map { ( $_->pkgpart => $all_pkg{$_->pkgpart} ) }
+% ( qsearch('type_pkgs',{ typenum => $agent->typenum }),
+% qsearch('part_pkg', { agentnum => $cust_main->agentnum }),
+% );