<%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' => ' ) ' &> % if ($manage_link) { <% $startdec %>><% $manage_link_text |h %><% $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'}; }