[freeside-commits] freeside/FS/FS/part_export ikano.pm,1.23,1.24

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv28859/FS/FS/part_export

Modified Files:
	ikano.pm 
Log Message:
show un-configured ikano products, RT#7111

Index: ikano.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/ikano.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -w -d -r1.23 -r1.24
--- ikano.pm	13 Mar 2011 19:38:02 -0000	1.23
+++ ikano.pm	21 Mar 2011 02:18:52 -0000	1.24
@@ -356,21 +356,27 @@
     }
 
     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 {