[interchange] Usertag Alias now only substitutes hyphens in first word, allowing for:
Josh Lavin
interchange-cvs at icdevgroup.org
Tue Dec 24 21:28:24 UTC 2013
commit 4bed57ed6d49ae88e8fd3046cb29eed4e7e0ff3c
Author: Josh Lavin <josh at perusion.com>
Date: Tue Dec 24 13:27:23 2013 -0800
Usertag Alias now only substitutes hyphens in first word, allowing for:
UserTag edisplay Alias error auto=1 class="list-unstyled alert alert-danger"
to work as expected.
lib/Vend/Parse.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/Parse.pm b/lib/Vend/Parse.pm
index c43d9f8..59da2f4 100644
--- a/lib/Vend/Parse.pm
+++ b/lib/Vend/Parse.pm
@@ -647,7 +647,7 @@ sub start {
if(defined $Alias{$tag}) {
$aliasname = $tag;
my $alias = $Alias{$tag};
- $alias =~ tr/-/_/;
+ $alias =~ s{^(\S+)}{ $_ = $1; tr/-/_/; $_ }e;
$tag =~ s/_/[-_]/g;
#::logDebug("origtext: $origtext tag=$tag alias=$alias");
$origtext =~ s/$tag/$alias/i
More information about the interchange-cvs
mailing list