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=bf6ba99b92c53d0573680472af1d90de52385afc;hp=657f66f00aacbdccb18f6852b59c355755fcc129;hb=406b21cab11a2a89f359d40d10d6b37e60eddc1e;hpb=64ccb0c8d26c387b323fb34e671b34c62d2c0c81

diff --git a/torrus/perllib/Torrus/Renderer/HTML.pm b/torrus/perllib/Torrus/Renderer/HTML.pm
index 657f66f00..bf6ba99b9 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.7 2011-02-07 05:20:41 levinse Exp $
+# $Id: HTML.pm,v 1.8 2011-02-10 01:08:44 levinse Exp $
 # Stanislav Sinyagin <ssinyagin@yahoo.com>
 
 package Torrus::Renderer::HTML;
@@ -120,6 +120,7 @@ sub render_html
         'freesideComponent' => sub { return $self->freesideComponent(@_); },
         'uri_escape'        => sub { return uri_escape(@_); },
 	'matches'        => sub { return $_[0] =~ $_[1]; },
+	'slash2underscore' => sub { $_[0] =~ s/\//_/g; return $_[0]; },
 	'load_nms'       => sub { return $self->load_nms; },
 	'get_serviceids'    => sub { my $nms = shift; 
 				  my $router = shift;