diff options
author | ivan <ivan> | 2011-03-21 02:18:52 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-03-21 02:18:52 +0000 |
commit | 7637f73d594307c314c844fde0b92f3d7ae282cc (patch) | |
tree | 702f442afcaa1420394079d6091f142d26c3f917 /FS/FS/part_export/ikano.pm | |
parent | 08da6c4a61debfd4858ab1f28d75caa147f431fd (diff) |
show un-configured ikano products, RT#7111
Diffstat (limited to 'FS/FS/part_export/ikano.pm')
-rw-r--r-- | FS/FS/part_export/ikano.pm | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/FS/FS/part_export/ikano.pm b/FS/FS/part_export/ikano.pm index 303952c..2d7688d 100644 --- a/FS/FS/part_export/ikano.pm +++ b/FS/FS/part_export/ikano.pm @@ -356,21 +356,27 @@ sub qual_result { } my %pkglist = (); - my $result = { 'header' => 'Qualifying Packages', - 'pkglist' => \%pkglist, - }; - + my %found = (); my @part_pkgs = qsearch( 'part_pkg', { 'disabled' => '' } ); foreach my $part_pkg ( @part_pkgs ) { my %vendor_pkg_ids = $part_pkg->vendor_pkg_ids; my $externalid = $vendor_pkg_ids{$self->exportnum} if defined $vendor_pkg_ids{$self->exportnum}; - if ( $externalid && grep( $_ eq $externalid, @externalids )) { - $pkglist{$part_pkg->pkgpart} = $part_pkg->pkg." - ".$part_pkg->comment; + if ( $externalid && grep { $_ eq $externalid } @externalids ) { + $pkglist{$part_pkg->pkgpart} = $part_pkg->pkg_comment; + $found{$externalid}++; } } - $result; + my %not_avail = (); + foreach my $externalid ( grep !$found{$_}, @externalids ) { + $not_avail{$externalid} = $externalid; #a better label? + } + + { 'header' => 'Qualifying Packages', + 'pkglist' => \%pkglist, + 'not_avail' => \%not_avail, + }; } sub quals_by_cust_and_pkg { |