show un-configured ikano products, RT#7111

[freeside.git] / httemplate / view / qual.cgi

diff --git a/httemplate/view/qual.cgi b/httemplate/view/qual.cgi
index 45f3d2a..a0768c3 100644 (file)
--- a/httemplate/view/qual.cgi
+++ b/httemplate/view/qual.cgi
@@ -16,7 +16,7 @@
 <B>Qualification #<% $qual->qualnum %></B>
 <% ntable("#cccccc", 2) %>
 <% include('elements/tr.html', label => 'Status', value => $qual->status_long ) %>
-<% include('elements/tr.html', label => 'Service Telephone Number', value => $qual->phonenum ) %>
+<% include('elements/tr.html', label => 'Service Telephone Number', value => $qual->phonenum || '(none - dry loop)' ) %>
 <% include('elements/tr.html', label => 'Address', value => $location_line ) %>
 % if ( $location_kind ) {
 <% include('elements/tr.html', label => 'Location Kind', value => $location_kind ) %>
@@ -37,7 +37,7 @@
 %   my $pkglist = $qual_result->{'pkglist'};
 %   my $cust_or_prospect = $qual->cust_or_prospect;
 %   my $locationnum = '';
-%   my %location = $qual->location;
+%   my %location = $qual->location_hash;
 %   if (%location && $location{'locationnum'}) { 
 %      $locationnum = $location{'locationnum'};
 %   }
@@ -63,6 +63,14 @@
 %       }
     </UL>
 %  }
+
+%  my $not_avail = $qual_result->{'not_avail'};
+%  if ( keys %$not_avail ) {
+     <BR>
+     Qualifying vendor packages (not yet configured in any package definition):
+     <% join(', ', map $not_avail->{$_}, keys %$not_avail ) |h %>
+%  }
+
 % }
 
 <%init>
@@ -82,7 +90,7 @@ if ( $cgi->param('qualnum') ) {
 
 my $qual = qsearchs('qual', { qualnum => $qualnum }) or die "invalid qualnum";
 my $location_line = '';
-my %location_hash = $qual->location;
+my %location_hash = $qual->location_hash;
 my $cust_location;
 if ( %location_hash ) {
     $cust_location = new FS::cust_location(\%location_hash);