1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
<% include("/elements/header.html","View Qualification") %>
% if ( $cust_or_prospect->custnum ) {
<% 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) %>
% }
<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 || '(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 ) %>
% } if ( $export ) {
<% include('elements/tr.html', label => 'Qualified using', value => $export->exportname ) %>
<% include('elements/tr.html', label => 'Vendor Qualification #', value => $qual->vendor_qual_id ) %>
% }
</TABLE>
<BR><BR>
% if ( $export ) {
% 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>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Qualify service');
my $qualnum;
if ( $cgi->param('qualnum') ) {
$cgi->param('qualnum') =~ /^(\d+)$/ or die "unparsable qualnum";
$qualnum = $1;
} else {
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ or die "no qualnum";
$qualnum = $1;
}
my $qual = qsearchs('qual', { qualnum => $qualnum }) or die "invalid qualnum";
my $location_line = '';
my %location_hash = $qual->location_hash;
my $cust_location;
if ( %location_hash ) {
$cust_location = new FS::cust_location(\%location_hash);
$location_line = $cust_location->location_label;
}
my $location_kind;
$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; #or die? qual without this?
my $export = $qual->part_export;
</%init>
|
