X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=torrus%2Fperllib%2FTorrus%2FRenderer%2FHTML.pm;h=d4a2a1380819f743e9f24c575749382eea827595;hp=4dde8e0082ede10b20662480ea0636389f45562f;hb=1e37402a96397fe344c32e0abf7434b4b595ea49;hpb=25e6733121bd27638a1b15f6365f63cc5c17f5ab

diff --git a/torrus/perllib/Torrus/Renderer/HTML.pm b/torrus/perllib/Torrus/Renderer/HTML.pm
index 4dde8e008..d4a2a1380 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.4 2011-01-25 03:15:03 ivan Exp $
+# $Id: HTML.pm,v 1.5 2011-01-28 02:49:15 levinse Exp $
 # Stanislav Sinyagin <ssinyagin@yahoo.com>
 
 package Torrus::Renderer::HTML;
@@ -119,6 +119,23 @@ sub render_html
         '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',
+					    );
+				   }
+				   '';
+				},
 
     };