--- cfmaps/cfmap2html	2005/11/20 08:04:19	1.13
+++ cfmaps/cfmap2html	2005/11/20 08:19:11	1.14
@@ -124,11 +124,13 @@
              push @class, "fishy" if grep $_->{invisible} || $_->{face} || exists $_->{no_pass}, @$as;
              push @class, "exit"  if grep $is_exit{$arch->{$_->{_name}}{type}}, @$as;
 
-             my @connected = grep $_, map $_->{connected}, @$as;
-
              print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">";
              print "<div>";
-             print "<span class='c'>", (join ", ", @connected), "</span>" if @connected;
+
+             print join "\n", map "<span class='c'>$_</span>",
+                reverse sort { (length $a) <=> (length $b) or $b <=> $a }
+                   grep $_, map $_->{connected}, @$as;
+
              print "<div>($x|$y)";
 
              sub print_archs {