[freeside-commits] freeside/torrus/perllib/Torrus/Renderer HTML.pm, 1.4, 1.5

[Erik Levinson]

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

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

Index: HTML.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Renderer/HTML.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -d -r1.4 -r1.5
--- HTML.pm	25 Jan 2011 03:15:03 -0000	1.4
+++ HTML.pm	28 Jan 2011 02:49:15 -0000	1.5
@@ -119,6 +119,23 @@
         'freesideFooter' => sub { return $self->freesideFooter(); },
         'freesideComponent' => sub { return $self->freesideComponent(@_); },
         'uri_escape'        => sub { return uri_escape(@_); },
+	'matches'        => sub { return $_[0] =~ $_[1]; },
+	'popup_link'     => sub {  
+				   my $type = shift;
+
+				   if($type eq 'nms-add_iface.html') {
+				       my $host = shift;
+				       my $iface = shift;
+					return
+					    $self->freesideComponent('/elements/popup_link.html',
+						'action' => "/freeside/misc/".
+							$type."?host=$host;iface=$iface",
+						 'label' => 'Monitor for billing',
+						 'actionlabel' => 'Monitor interface',
+					    );
+				   }
+				   '';
+				},
 
     };