X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-pkg_svc.html;h=6d17a376de268a074eae7f4cada6c913fdc30d1b;hb=f765ad6313abc1dc73bab4d3b617d2754cf85823;hp=4c8a839bf87c3e3340c11e0abc4dca8d704d7276;hpb=477015901c379f8cd6ba46cfaa4a9ae284ae582d;p=freeside.git
diff --git a/httemplate/elements/tr-pkg_svc.html b/httemplate/elements/tr-pkg_svc.html
index 4c8a839bf..6d17a376d 100644
--- a/httemplate/elements/tr-pkg_svc.html
+++ b/httemplate/elements/tr-pkg_svc.html
@@ -1,5 +1,5 @@
-
+ |
<% itable('', 4, 1) %> |
<% $thead %>
@@ -12,6 +12,7 @@
% 'svcpart' => $svcpart,
% 'quantity' => 0,
% 'primary_svc' => '',
+% 'hidden' => '',
% } );
% if ( $cgi->param('error') ) {
% my $primary_svc = ( $pkg_svc->primary_svc =~ /^Y/i );
@@ -29,11 +30,16 @@
% $quan = $1;
% } elsif ( $pkg_svc->quantity ) {
% $quan = $pkg_svc->quantity;
+% }
+%
+% my @exports = $pkg_svc->part_svc->part_export;
+% foreach my $export ( @exports ) {
+% push @possible_exports, $export if $export->can('external_pkg_map');
% }
|
-
+
|
@@ -43,6 +49,10 @@
|
<% $part_svc->svc %> <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %>
|
+
+
+ hidden =~ /^Y/i ? ' CHECKED' : ''%>>
+ |
% foreach ( 1 .. $columns-1 ) {
% if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) {
@@ -57,6 +67,32 @@
+% if ( scalar(@possible_exports) > 0 || scalar(@mapped_exports) > 0 ) {
+
+% }
+
@@ -68,7 +104,9 @@ my $cgi = $opt{'cgi'};
my $thead = "\n\n". ntable('#cccccc', 2).
'Quan. | '.
'Primary | '.
- 'Service |
';
+ 'Service | '.
+ 'Hide | '.
+ '';
my $part_pkg = $opt{'object'};
my $pkgpart = $part_pkg->pkgpart;
@@ -84,10 +122,18 @@ my @part_svc = qsearch('part_svc', {}, '', $where);
#my $q_part_pkg = $clone_part_pkg || $part_pkg;
#my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
-my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc;
+my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc('disable_linked'=>1);
my @fixups = ();
my $count = 0;
my $columns = 3;
+my @possible_exports = ();
+my @mapped_exports = ();
+my @part_pkg_vendor = $part_pkg->part_pkg_vendor;
+foreach my $part_pkg_vendor ( @part_pkg_vendor ) {
+ push @mapped_exports, $part_pkg_vendor->part_export;
+}
+my %vendor_pkg_ids = $part_pkg->vendor_pkg_ids;
+
%init>