3 my( $cgi, $X_device ) = @_;
4 popurl(3)."view/$svc_table.cgi?".
5 'svcnum='. $X_device->svcnum.
14 warn my $table = $opt{table};
15 ( my $svc_table = $table ) =~ s/_device//;
16 $svc_table = "svc_$svc_table";
18 if($cgi->param('sel_mac_addr') && !$cgi->param('mac_addr')) {
19 $cgi->param('mac_addr',$cgi->param('sel_mac_addr'));
22 # :/ needs agent-virt so you can't futz with arbitrary devices
25 unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?