httemplate/search/svc_external.cgi

   1 %
   2 %
   3 %my $conf = new FS::Conf;
   4 %
   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' ) {
  12 %  $sortby=\*id_sort;
  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,
  18 %      'pkgnum' => '',
  19 %    }), qsearch('svc_external',{});
  20 %} elsif ( $query eq 'UN_id' ) {
  21 %  $sortby=\*id_sort;
  22 %  @svc_external = grep qsearchs('cust_svc',{
  23 %      'svcnum' => $_->svcnum,
  24 %      'pkgnum' => '',
  25 %    }), qsearch('svc_external',{});
  26 %} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
  27 %  @svc_external =
  28 %    qsearch( 'svc_external', {}, '',
  29 %               " WHERE $1 = ( SELECT svcpart FROM cust_svc ".
  30 %               "              WHERE cust_svc.svcnum = svc_external.svcnum ) "
  31 %    );
  32 %  $sortby=\*svcnum_sort;
  33 %} else {
  34 %  $cgi->param('id') =~ /^([\w\-\.]+)$/;
  35 %  my($id)=$1;
  36 %  #push @svc_domain, qsearchs('svc_domain',{'domain'=>$domain});
  37 %  @svc_external = qsearchs('svc_external',{'id'=>$id});
  38 %}
  39 %
  40 %if ( scalar(@svc_external) == 1 ) {
  41 %
  42 %
  43 <% $cgi->redirect(popurl(2). "view/svc_external.cgi?". $svc_external[0]->svcnum) %>
  44 %
  45 %
  46 %} elsif ( scalar(@svc_external) == 0 ) {
  47 %
  48 %
  49 <% include('/elements/header.html', 'External Search Results' ) %>
  50
  51   No matching external services found
  52 % } else {
  53 %
  54 %
  55 <% include('/elements/header.html', 'External Search Results', '') %>
  56
  57     <% scalar(@svc_external) %> matching external services found
  58     <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
  59       <TR>
  60         <TH>Service #</TH>
  61         <TH><% FS::Msgcat::_gettext('svc_external-id') || 'External&nbsp;ID' %></TH>
  62         <TH><% FS::Msgcat::_gettext('svc_external-title') || 'Title' %></TH>
  63       </TR>
  64 %
  65 %  foreach my $svc_external (
  66 %    sort $sortby (@svc_external)
  67 %  ) {
  68 %    my($svcnum, $id, $title)=(
  69 %      $svc_external->svcnum,
  70 %      $svc_external->id,
  71 %      $svc_external->title,
  72 %    );
  73 %
  74 %    my $rowspan = 1;
  75 %
  76 %    print <<END;
  77 %    <TR>
  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>
  81 %END
  82 %
  83 %    #print @rows;
  84 %    print "</TR>";
  85 %
  86 %  }
  87 %
  88 %  print <<END;
  89 %    </TABLE>
  90 %  </BODY>
  91 %</HTML>
  92 %END
  93 %
  94 %}
  95 %
  96 %sub svcnum_sort {
  97 %  $a->getfield('svcnum') <=> $b->getfield('svcnum');
  98 %}
  99 %
 100 %sub id_sort {
 101 %  $a->getfield('id') <=> $b->getfield('id');
 102 %}
 103 %
 104 %
 105