2 % unless $FS::CurrentUser::CurrentUser->access_right('List services');
4 %my $conf = new FS::Conf;
6 %my @svc_external = ();
7 %my @h_svc_external = ();
8 %my $sortby=\*svcnum_sort;
9 %if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) {
11 % @svc_external=qsearch('svc_external',{});
13 % if ( $cgi->param('magic') eq 'unlinked' ) {
14 % @svc_external = grep { qsearchs('cust_svc', {
15 % 'svcnum' => $_->svcnum,
23 % if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
25 % if ( $sortby eq 'id' ) {
26 % $sortby = \*id_sort;
30 %} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
33 % qsearch( 'svc_external', {}, '',
34 % " WHERE $1 = ( SELECT svcpart FROM cust_svc ".
35 % " WHERE cust_svc.svcnum = svc_external.svcnum ) "
38 %} elsif ( $cgi->param('title') =~ /^(.*)$/ ) {
40 % @svc_external=qsearch('svc_external',{ title => $1 });
41 % if( $cgi->param('history') == 1 ) {
42 % @h_svc_external=qsearch('h_svc_external',{ title => $1 });
44 %} elsif ( $cgi->param('id') =~ /^([\w\-\.]+)$/ ) {
46 % @svc_external = qsearchs('svc_external',{'id'=>$id});
49 %if ( scalar(@svc_external) == 1 ) {
52 <% $cgi->redirect(popurl(2). "view/svc_external.cgi?". $svc_external[0]->svcnum) %>
55 %} elsif ( scalar(@svc_external) == 0 ) {
58 <% include('/elements/header.html', 'External Search Results' ) %>
60 No matching external services found
64 <% include('/elements/header.html', 'External Search Results', '') %>
66 <% scalar(@svc_external) %> matching external services found
67 <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
70 <TH><% FS::Msgcat::_gettext('svc_external-id') || 'External ID' %></TH>
71 <TH><% FS::Msgcat::_gettext('svc_external-title') || 'Title' %></TH>
74 % foreach my $svc_external (
75 % sort $sortby (@svc_external)
77 % my($svcnum, $id, $title)=(
78 % $svc_external->svcnum,
80 % $svc_external->title,
87 % <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_external.cgi?$svcnum">$svcnum</A></TD>
88 % <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_external.cgi?$svcnum">$id</A></TD>
89 % <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_external.cgi?$svcnum">$title</A></TD>
96 % if( scalar(@h_svc_external) > 0 ) {
99 % <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
101 % <TH>Freeside ID</TH>
108 % foreach my $h_svc ( @h_svc_external ) {
109 % my($svcnum, $id, $title, $user, $date)=(
113 % $h_svc->history_user,
114 % $h_svc->history_date,
117 % my ($h_cust_svc) = qsearchs( 'h_cust_svc', {
120 % my $cust_pkg = qsearchs( 'cust_pkg', {
121 % pkgnum => $h_cust_svc->pkgnum,
123 % my $custnum = $cust_pkg->custnum;
127 % <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_main.cgi?$custnum">$custnum</A></TD>
128 % <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_main.cgi?$custnum">$svcnum</A></TD>
129 % <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_main.cgi?$custnum">$title</A></TD>
130 % <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_main.cgi?$custnum">$date</A></TD>
145 % $a->getfield('svcnum') <=> $b->getfield('svcnum');
149 % $a->getfield('id') <=> $b->getfield('id');