[freeside-commits] freeside/torrus/perllib/Torrus/Renderer HTML.pm, 1.6, 1.7

Erik Levinson levinse at wavetail.420.am
Sun Feb 6 21:20:43 PST 2011


Update of /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Renderer
In directory wavetail.420.am:/tmp/cvs-serv25880/torrus/perllib/Torrus/Renderer

Modified Files:
	HTML.pm 
Log Message:
torrus, UI, RT10574

Index: HTML.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Renderer/HTML.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -d -r1.6 -r1.7
--- HTML.pm	5 Feb 2011 06:32:36 -0000	1.6
+++ HTML.pm	7 Feb 2011 05:20:41 -0000	1.7
@@ -120,12 +120,29 @@
         '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/".



More information about the freeside-commits mailing list