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
|
<& elements/search.html,
'title' => 'Qualifications',
'name_singular' => 'qualification',
'query' => { 'table' => 'qual',
'hashref' => $hashref,
'extra_sql' => $extra_sql,
'order_by' => 'ORDER BY qualnum DESC',
},
'count_query' => "$count_query $extra_sql",
'header' => [ 'Qualification',
'Status',
'Customer or Prospect',
'Service Telephone Number',
'Address',
'Qualified Using',
'Vendor Qualification #',
],
'align' => 'rcccccc',
'fields' => [ 'qualnum',
sub {
my $self = shift;
$self->status_long;
},
sub { shift->cust_or_prospect->name },
sub { shift->phonenum || '(none - dry loop)' },
sub {
my $self = shift;
my %location_hash= $self->location_hash;
# ugh...
if ( %location_hash ) {
my $loc = new FS::cust_location(\%location_hash);
return $loc->location_label;
}
'';
},
sub {
my $self = shift;
my $export = $self->part_export;
my $result = '(manual)';
$result = $export->exportname if $export;
$result;
},
'vendor_qual_id',
],
'links' => [
[ "${p}view/qual.cgi?qualnum=", 'qualnum' ],
'',
'',
'',
'',
'',
'',
],
&>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Qualify service');
my $hashref = {};
my $count_query = 'SELECT COUNT(*) FROM qual';
my $extra_sql = '';
if ( $cgi->param('custnum') && $cgi->param('custnum') =~ /^(\d+)$/ ) {
$extra_sql = " where custnum = $1 or locationnum in "
. " (select locationnum from cust_location where custnum = $1)";
} elsif ( $cgi->param('prospectnum')
&& $cgi->param('prospectnum') =~ /^(\d+)$/ ) {
$extra_sql = " where prospectnum = $1 or locationnum in "
. " (select locationnum from cust_location where prospectnum = $1)";
}
</%init>
|
