blob: 76a3cdfd938fa9844b757d5997d62d73c1e4c2db (
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
45
46
|
<%doc>
#For including the "Manage Device" link for broadband svc
# Handles check if svcdb is svc_broadband, ip_addr/mac_addr substitution
# and manage_link-new_window, but manage_link_loc and no_links must
# be checked as appropriate before including this
#Example:
<& /elements/manage_device_link.html,
'svc' => $svc_x,
'part_svc' => $part_svc,
'manage_link' => scalar($conf->config('svc_broadband-manage_link')),
'manage_link_text' => scalar($conf->config('svc_broadband-manage_link_text')),
'manage_link-new_window' => $conf->exists('svc_broadband-manage_link-new_window'),
'prepend' => ' ( ',
'append' => ' ) '
&>
</%doc>
% if ($manage_link) {
<% $startdec %><A HREF="<% $manage_link %>"<% $manage_target %>><% $manage_link_text |h %></A><% $enddec %>
% }
<%init>
my %opt = @_;
my $manage_link = '';
my $manage_link_text = '';
my $manage_target = '';
my $startdec = '';
my $enddec = '';
if ( $opt{'part_svc'} and $opt{'svc'} and $opt{'manage_link'} and $opt{'part_svc'}->svcdb eq 'svc_broadband' ) {
my $ip_addr = $opt{'svc'}->ip_addr || ''; #substitution for $manage_link
my $mac_addr = $opt{'svc'}->mac_addr || ''; # ditto
$manage_link = $opt{'manage_link'};
$manage_link =~ s/\$ip_addr/$ip_addr/g; #safer than using eval
$manage_link =~ s/\$mac_addr/$mac_addr/g; # ditto
$manage_link_text = $opt{'manage_link_text'} || mt('Manage Device');
$manage_target = ' target="_blank"' if $opt{'manage_link-new_window'};
$startdec = $opt{'prepend'};
$enddec = $opt{'append'};
}
</%init>
|
