X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=torrus%2Fperllib%2FTorrus%2FRenderer%2FHTML.pm;fp=torrus%2Fperllib%2FTorrus%2FRenderer%2FHTML.pm;h=657f66f00aacbdccb18f6852b59c355755fcc129;hp=4001baeed256de1cd1f7b13895e18507a98f87a8;hb=8c37ba9a0caeffdbe133968750f5b4d1e7b7fb69;hpb=3a4bf42c4385863ea83423b279b39ff6e650f79d

diff --git a/torrus/perllib/Torrus/Renderer/HTML.pm b/torrus/perllib/Torrus/Renderer/HTML.pm
index 4001baeed..657f66f00 100644
--- a/torrus/perllib/Torrus/Renderer/HTML.pm
+++ b/torrus/perllib/Torrus/Renderer/HTML.pm
@@ -14,7 +14,7 @@
 #  along with this program; if not, write to the Free Software
 #  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
 
-# $Id: HTML.pm,v 1.6 2011-02-05 06:32:36 levinse Exp $
+# $Id: HTML.pm,v 1.7 2011-02-07 05:20:41 levinse Exp $
 # Stanislav Sinyagin <ssinyagin@yahoo.com>
 
 package Torrus::Renderer::HTML;
@@ -120,12 +120,29 @@ sub render_html
         'freesideComponent' => sub { return $self->freesideComponent(@_); },
         'uri_escape'        => sub { return uri_escape(@_); },
 	'matches'        => sub { return $_[0] =~ $_[1]; },
+	'load_nms'       => sub { return $self->load_nms; },
+	'get_serviceids'    => sub { my $nms = shift; 
+				  my $router = shift;
+				  return $nms->get_router_serviceids($router);
+				},
 	'popup_link'     => sub {  
 				   my $type = shift;
 
 				   if($type eq 'nms-add_iface.html') {
 				       my $host = shift;
 				       my $iface = shift;
+				       my $nms = shift;
+				       my $serviceids = shift;
+				       my $svc_port = '';
+
+				       $svc_port = $nms->find_svc($serviceids->{$iface})
+					    if($serviceids && $serviceids->{$iface});
+
+				       if($svc_port) {
+					  my $url = $Torrus::Freeside::FSURL."/view/svc_port.cgi?".$svc_port->svcnum;
+					  return "<A HREF='$url'>View Service</A>";
+					}
+
 					return
 					    $self->freesideComponent('/elements/popup_link.html',
 						'action' => "/freeside/misc/".