<% include("/elements/header.html","View Qualification") %>
-% if ( $cust_or_prospect->get('custnum') ) {
+% if ( $cust_or_prospect->custnum ) {
- <% include( '/elements/small_custview.html', $cust_or_prospect->custnum, '', 1,
- "${p}view/cust_main.cgi") %>
+ <% include( '/elements/small_custview.html', $cust_or_prospect,
+ '', #countrydefault override
+ 1, #no balance
+ "${p}view/cust_main.cgi"), #url
+ %>
+
+% } elsif ( $cust_or_prospect->prospectnum ) {
+
+ <% include( '/elements/small_prospect_view.html', $cust_or_prospect) %>
-% } elsif ( $cust_or_prospect->get('prospectnum') ) {
-% my $prospectnum = $cust_or_prospect->get('prospectnum');
-% my $link = "${p}view/prospect_main.html?$prospectnum";
- <A HREF="<%$link%>">Prospect #<%$prospectnum%></A>
% }
<BR><BR>
<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 ) %>
<BR><BR>
% if ( $export ) {
-<% $export->qual_html($qual) %>
+% my $qual_result = $export->qual_result($qual);
+% if ($qual_result->{'pkglist'}) { # one of the possible formats (?)
+ <B>Qualifying Packages</B> - click to order
+% my $svcpart = '';
+% my $pkglist = $qual_result->{'pkglist'};
+% my $cust_or_prospect = $qual->cust_or_prospect;
+% my $locationnum = '';
+% my %location = $qual->location_hash;
+% my $locationnum = $location{'locationnum'};
+ <UL>
+% foreach my $pkgpart ( keys %$pkglist ) {
+ <LI>
+
+% if($cust_or_prospect->custnum) {
+
+% my %opt = ( 'label' => $pkglist->{$pkgpart},
+% 'lock_pkgpart' => $pkgpart,
+% 'lock_locationnum' => $location{'locationnum'},
+% 'qualnum' => $qual->qualnum,
+% );
+% if ( $export->exporttype eq 'ikano' ) {
+% my $pkg_svc = qsearchs('pkg_svc', { 'pkgpart' => $pkgpart,
+% 'primary_svc' => 'Y',
+% }
+% );
+% $opt{'svcpart'} = $pkg_svc->svcpart if $pkg_svc;
+% }
+
+ <& /elements/order_pkg_link.html,
+ 'cust_main' => $cust_or_prospect,
+ %opt
+ &>
+
+% } elsif ($cust_or_prospect->prospectnum) {
+
+% my $link = "${p}edit/cust_main.cgi?qualnum=". $qual->qualnum.
+% ";lock_pkgpart=$pkgpart";
+ <A HREF="<% $link %>"><% $pkglist->{$pkgpart} |h %></A>
+
+% }
+ </LI>
+% }
+ </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>
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);
$location_kind = "Residential" if $cust_location->get('location_kind') eq 'R';
$location_kind = "Business" if $cust_location->get('location_kind') eq 'B';
-my $cust_or_prospect = $qual->cust_or_prospect;
-my $export = $qual->export;
+my $cust_or_prospect = $qual->cust_or_prospect; #or die? qual without this?
+my $export = $qual->part_export;
</%init>