From 19f2731dbceb444c5dd45f57fb0a785dcaf9aa65 Mon Sep 17 00:00:00 2001 From: levinse Date: Wed, 8 Dec 2010 21:37:45 +0000 Subject: -rename qual export sub to part_export, RT7111 -initial commit of part_pkg_vendor implementation, RT7111 --- httemplate/elements/tr-pkg_svc.html | 39 +++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) (limited to 'httemplate/elements') diff --git a/httemplate/elements/tr-pkg_svc.html b/httemplate/elements/tr-pkg_svc.html index 66bbddfda..6d17a376d 100644 --- a/httemplate/elements/tr-pkg_svc.html +++ b/httemplate/elements/tr-pkg_svc.html @@ -30,6 +30,11 @@ % $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'); % } @@ -62,6 +67,32 @@ +% if ( scalar(@possible_exports) > 0 || scalar(@mapped_exports) > 0 ) { + + + + +% foreach my $export ( @mapped_exports ) { + + + + +% } +% foreach my $export ( @possible_exports ) { +% unless ( defined $vendor_pkg_ids{$export->exportnum} ) { + + + + +% } +% } +
ExportVendor Package Id (blank to delete)
<% $export->exportname %> +
<% $export->exportname %> + +
+% } + @@ -97,4 +128,12 @@ 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; + -- cgit v1.2.1