[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