… | |
… | |
122 | my @class; |
122 | my @class; |
123 | |
123 | |
124 | push @class, "fishy" if grep $_->{invisible} || $_->{face} || exists $_->{no_pass}, @$as; |
124 | push @class, "fishy" if grep $_->{invisible} || $_->{face} || exists $_->{no_pass}, @$as; |
125 | push @class, "exit" if grep $is_exit{$arch->{$_->{_name}}{type}}, @$as; |
125 | push @class, "exit" if grep $is_exit{$arch->{$_->{_name}}{type}}, @$as; |
126 | |
126 | |
127 | my @connected = grep $_, map $_->{connected}, @$as; |
|
|
128 | |
|
|
129 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
127 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
130 | print "<div>"; |
128 | print "<div>"; |
131 | print "<span class='c'>", (join ", ", @connected), "</span>" if @connected; |
129 | |
|
|
130 | print join "\n", map "<span class='c'>$_</span>", |
|
|
131 | reverse sort { (length $a) <=> (length $b) or $b <=> $a } |
|
|
132 | grep $_, map $_->{connected}, @$as; |
|
|
133 | |
132 | print "<div>($x|$y)"; |
134 | print "<div>($x|$y)"; |
133 | |
135 | |
134 | sub print_archs { |
136 | sub print_archs { |
135 | print "<ul>"; |
137 | print "<ul>"; |
136 | for my $a (@{$_[0]}) { |
138 | for my $a (@{$_[0]}) { |