1 % if ( @svc_www || $opt{'showall'} ) {
3 <% &ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
4 % foreach my $svc_www (@svc_www) {
5 % my($label, $value) = $svc_www->cust_svc->label;
6 % my $link = $p. 'view/svc_www.cgi?'. $svc_www->svcnum;
9 <A HREF="<% $link %>"><% "$label: $value" %></A>
13 </TABLE></TD></TR></TABLE>
20 #false laziness w/view_svc_acct.cgi and a zillion other places
21 my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '.
22 ' LEFT JOIN cust_pkg USING ( pkgnum ) '.
23 ' LEFT JOIN cust_main USING ( custnum ) ';
25 my @svc_www = qsearch({
26 'select' => 'svc_www.*',
28 'addl_from' => $addl_from,
29 'hashref' => { 'usersvc' => $opt{'svcnum'} },
30 #XXX shit outta luck if you somehow got them linked across agents
31 # maybe we should show but not link to them? kinda makes sense...
32 # (maybe a specific ACL for this situation???)
33 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql(
34 'null_right' => 'View/link unlinked services'