Index: mttroot/mtt/bin/trans/lbl2alias_txt2txt
==================================================================
--- mttroot/mtt/bin/trans/lbl2alias_txt2txt
+++ mttroot/mtt/bin/trans/lbl2alias_txt2txt
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  1998/07/03 13:49:03  peterg
+## Flips the order of alias and name when $ is involved.
+##
 ## Revision 1.2  1998/07/03 07:54:39  peterg
 ## Tidied
 ##
 ## Revision 1.1  1998/07/02 09:22:10  peterg
 ## Initial revision
@@ -42,11 +45,11 @@
         alias=$2; name =$3
       }
       else{
         alias=$3; name =$2
       }
-      sub(",","__",alias); #Replace ,
+      gsub(",","__",alias); #Replace ,
       n=split(alias,a,"|");
       for (i=1; i<=n; i++)
         print a[i] "\t" name;
 	 }
       END{