[freeside-commits] freeside/torrus/perllib/Torrus/Renderer HTML.pm, 1.13, 1.14

[Ivan,,,]

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

Modified Files:
	HTML.pm 
Log Message:
recognize interfaces with . turned into _ too

Index: HTML.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Renderer/HTML.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -d -r1.13 -r1.14
--- HTML.pm	27 Feb 2011 19:20:37 -0000	1.13
+++ HTML.pm	1 Mar 2011 00:09:39 -0000	1.14
@@ -120,7 +120,7 @@
         'freesideComponent' => sub { return $self->freesideComponent(@_); },
         'uri_escape'        => sub { return uri_escape(@_); },
         'matches'        => sub { return $_[0] =~ $_[1]; },
-        'slash2underscore' => sub { $_[0] =~ s/\//_/g; return $_[0]; },
+        'iface_underscore' => sub { $_[0] =~ s/[\/\.]/_/g; return $_[0]; },
         'load_nms'       => sub { return $self->load_nms; },
         'get_serviceids'    => sub { my $nms = shift; 
                                   my $router = shift;