From 98901e4ef499dfb983bbd0d467eca3a0534bc3e9 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 20 May 2009 15:27:17 +0000
Subject: [PATCH] add "manage device" link & config, RT#5438

---
 FS/FS/Conf.pm                                    |  7 +++++++
 httemplate/view/cust_main/packages.html          |  1 +
 httemplate/view/cust_main/packages/services.html | 23 +++++++++++++++++------
 3 files changed, 25 insertions(+), 6 deletions(-)

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index e86ed0d15..87e8517de 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -2795,6 +2795,13 @@ worry that config_items is freeside-specific and icky.
     'type'        => 'checkbox',
   },
 
+  {
+    'key'         => 'svc_broadband-manage_link',
+    'section'     => 'UI',
+    'description' => 'URL for svc_broadband "Manage Device" link.  The following substitutions are available: $ip_addr.',
+    'type'        => 'text',
+  },
+
 );
 
 1;
diff --git a/httemplate/view/cust_main/packages.html b/httemplate/view/cust_main/packages.html
index ed98ba903..0c0526d42 100755
--- a/httemplate/view/cust_main/packages.html
+++ b/httemplate/view/cust_main/packages.html
@@ -148,6 +148,7 @@ my %conf_opt = (
   #for services.html
   'svc_external-skip_manual'  => $conf->exists('svc_external-skip_manual'),
   'legacy_link'               => $conf->exists('legacy_link'),
+  'svc_broadband-manage_link' => $conf->config('svc_broadband-manage_link'),
 );
 
 #subroutines
diff --git a/httemplate/view/cust_main/packages/services.html b/httemplate/view/cust_main/packages/services.html
index 1e473736b..37cd615eb 100644
--- a/httemplate/view/cust_main/packages/services.html
+++ b/httemplate/view/cust_main/packages/services.html
@@ -36,15 +36,24 @@
 %                 )
 %         ) { 
             (&nbsp;<%svc_recharge_link($cust_svc)%>&nbsp;)
-%         } 
+%         }
           </FONT></TD>
 
-          <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2">
+          <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px">
 
-%         if ( $curuser->access_right('Unprovision customer service') ) { 
-            (&nbsp;<%svc_unprovision_link($cust_svc)%>&nbsp;)
-%         } 
-          </FONT></TD>
+%           my $manage_link = $opt{'svc_broadband-manage_link'};
+%           if ( $manage_link && $part_svc->svcdb eq 'svc_broadband' ) {
+%             my $ip_addr = $cust_svc->svc_x->ip_addr;
+%             my $svc_manage_link = eval(qq("$manage_link"));
+              <FONT SIZE="-1" STYLE="float:left">(&nbsp;<A HREF="<% $svc_manage_link %>">Manage Device</A>&nbsp;)</FONT>
+
+%           }
+
+
+%           if ( $curuser->access_right('Unprovision customer service') ) { 
+              <FONT SIZE="-2">(&nbsp;<%svc_unprovision_link($cust_svc)%>&nbsp;)</FONT>
+%           } 
+          </TD>
         </TR>
 %   } 
 
@@ -75,6 +84,8 @@ my $cust_pkg = $opt{'cust_pkg'};
 my $part_pkg = $opt{'part_pkg'};
 my $curuser  = $FS::CurrentUser::CurrentUser;
 
+my $conf = new FS::Conf;
+
 sub svc_provision_link {
   my ($cust_pkg, $part_svc, $opt, $curuser) = @_;
   ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/&nbsp;/g;
-- 
2.11.0