1 <% $cgi->redirect(popurl(1)."$svcdb.cgi?". $svcnum ) %>
4 #needed here? we're just redirecting. i guess it could reveal the svcdb of a
5 #svcnum... oooooo scary. not.
7 unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
9 #some false laziness w/svc_*.cgi
11 my($query) = $cgi->keywords;
14 my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
15 die "Unknown svcnum" unless $cust_svc;
17 my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
18 die "Unknown svcpart" unless $part_svc;
20 my $svcdb = $part_svc->svcdb;