sub svc_provision_link {
my ($cust_pkg, $part_svc, $opt, $curuser) = @_;
- ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g;
+ ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g;
my $num_avail = $part_svc->num_avail;
my $pkgnum_svcpart = "pkgnum=". $cust_pkg->pkgnum. ';'.
"svcpart=". $part_svc->svcpart;
'part_svc' => $part_svc,
'query' => $pkgnum_svcpart,
);
- #$url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
}
my $link = qq!<A CLASS="provision" HREF="$url">!.
- "Provision $svc_nbsp ($num_avail)</A>";
+ emt("Provision [_1] ([_2])",$svc_nbsp,$num_avail).'</A>';
if ( $opt->{'legacy_link'}
&& $curuser->access_right('View/link unlinked services')
)
$link .= '<BR>'.
qq!<A CLASS="provision" HREF="${p}misc/link.cgi?!.
qq!$pkgnum_svcpart">!.
- "Link to legacy $svc_nbsp ($num_avail)</A>";
+ emt("Link to legacy [_1] ([_2])",$svc_nbsp,$num_avail).'</A>';
}
$link;
}
my %hints = (
-svc_acct => '(user or email)',
-svc_domain => '(domain)',
-svc_broadband => '(ip or mac)',
-svc_forward => '(email)',
-svc_phone => '(phone)',
-svc_pbx => '(phone)',
+svc_acct => emt('(user or email)'),
+svc_domain => emt('(domain)'),
+svc_broadband => emt('(ip or mac)'),
+svc_forward => emt('(email)'),
+svc_phone => emt('(phone)'),
+svc_pbx => emt('(phone)'),
);
</%init>