blob: 52dedd6c8635e1173f28aeb1e3512bf565402cb8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
<%doc>
tr-cust_svc_cancel - Short display of a canceled customer service
for use in view/cust_main.
</%doc>
<TR STYLE="color:#cccccc;">
<TD ALIGN="right" VALIGN="top">
% if ( $opt{no_links} ) {
<% $part_svc->svc |h %>:
% } else {
<% FS::UI::Web::svc_link($m, $part_svc, $cust_svc) %>
% }
</TD>
<TD STYLE="padding-bottom:0px;"><B>
% if ( $opt{no_links} ) {
<% ($cust_svc->label)[1] |h %>
% } else {
<% FS::UI::Web::svc_label_link($m, $part_svc, $cust_svc) %>
% }
</B></TD>
</TR>
%# no action links except unprovision, the service is canceled
% if ( $curuser->access_right('Unprovision customer service') && ! $opt{no_links} ) {
<TR>
<TD COLSPAN="2" ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px; padding-top:0px">
<FONT SIZE="-2">( <% $svc_unprovision_link %> )</FONT>
</TD>
</TR>
% }
<%init>
my %opt = @_;
my $curuser = $FS::CurrentUser::CurrentUser;
my $cust_svc = $opt{'cust_svc'};
my $part_svc = $opt{'part_svc'} || $cust_svc->part_svc;
my $cust_pkg = $opt{'cust_pkg'} || $cust_svc->cust_pkg;
my $svc_x = $cust_svc->svc_x;
my $svc_unprovision_link =
qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?! .
$cust_svc->svcnum .
qq!', '!.emt('Permanently unprovision and delete this service?').qq!')">!.emt('Unprovision').'</A>';
</%init>
|