3 %my $conf = new FS::Conf;
5 %my($query)=$cgi->keywords;
6 %$query ||= ''; #to avoid use of unitialized value errors
7 %my(@svc_external,$sortby);
8 %if ( $query eq 'svcnum' ) {
9 % $sortby=\*svcnum_sort;
10 % @svc_external=qsearch('svc_external',{});
11 %} elsif ( $query eq 'id' ) {
13 % @svc_external=qsearch('svc_external',{});
14 %} elsif ( $query eq 'UN_svcnum' ) {
15 % $sortby=\*svcnum_sort;
16 % @svc_external = grep qsearchs('cust_svc',{
17 % 'svcnum' => $_->svcnum,
19 % }), qsearch('svc_external',{});
20 %} elsif ( $query eq 'UN_id' ) {
22 % @svc_external = grep qsearchs('cust_svc',{
23 % 'svcnum' => $_->svcnum,
25 % }), qsearch('svc_external',{});
26 %} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
28 % qsearch( 'svc_external', {}, '',
29 % " WHERE $1 = ( SELECT svcpart FROM cust_svc ".
30 % " WHERE cust_svc.svcnum = svc_external.svcnum ) "
32 % $sortby=\*svcnum_sort;
34 % $cgi->param('id') =~ /^([\w\-\.]+)$/;
36 % #push @svc_domain, qsearchs('svc_domain',{'domain'=>$domain});
37 % @svc_external = qsearchs('svc_external',{'id'=>$id});
40 %if ( scalar(@svc_external) == 1 ) {
43 <% $cgi->redirect(popurl(2). "view/svc_external.cgi?". $svc_external[0]->svcnum) %>
46 %} elsif ( scalar(@svc_external) == 0 ) {
49 <% include('/elements/header.html', 'External Search Results' ) %>
51 No matching external services found
55 <% include('/elements/header.html', 'External Search Results', '') %>
57 <% scalar(@svc_external) %> matching external services found
58 <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
61 <TH><% FS::Msgcat::_gettext('svc_external-id') || 'External ID' %></TH>
62 <TH><% FS::Msgcat::_gettext('svc_external-title') || 'Title' %></TH>
65 % foreach my $svc_external (
66 % sort $sortby (@svc_external)
68 % my($svcnum, $id, $title)=(
69 % $svc_external->svcnum,
71 % $svc_external->title,
78 % <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_external.cgi?$svcnum">$svcnum</A></TD>
79 % <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_external.cgi?$svcnum">$id</A></TD>
80 % <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_external.cgi?$svcnum">$title</A></TD>
97 % $a->getfield('svcnum') <=> $b->getfield('svcnum');
101 % $a->getfield('id') <=> $b->getfield('id');