| … | |
… | |
| 15 | # |
15 | # |
| 16 | # You should have received a copy of the GNU General Public License |
16 | # You should have received a copy of the GNU General Public License |
| 17 | # along with cfmaps; if not, write to the Free Software |
17 | # along with cfmaps; if not, write to the Free Software |
| 18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
| 19 | |
19 | |
| 20 | our $VERSION = '2.111'; |
20 | our $VERSION = '2.112'; |
| 21 | |
21 | |
| 22 | use strict; |
22 | use strict; |
| 23 | |
23 | |
| 24 | use List::Util qw(min max); |
24 | use List::Util qw(min max); |
| 25 | use Deliantra; |
25 | use Deliantra; |
| … | |
… | |
| 156 | |
156 | |
| 157 | print "<div>($x|$y)"; |
157 | print "<div>($x|$y)"; |
| 158 | |
158 | |
| 159 | sub print_archs { |
159 | sub print_archs { |
| 160 | print "<ul>"; |
160 | print "<ul>"; |
| 161 | for my $a (@{$_[0]}) { |
161 | for my $a (reverse @{$_[0]}) { |
| 162 | my $o = $ARCH{$a->{_name}}; |
162 | my $o = $ARCH{$a->{_name}}; |
| 163 | my $type = $a->{type} || $o->{type}; |
163 | my $type = $a->{type} || $o->{type}; |
| 164 | my $aname = escape_html $a->{_name}; |
164 | my $aname = escape_html $a->{_name}; |
| 165 | my $name = escape_html $a->{name} || $o->{name}; |
165 | my $name = escape_html $a->{name} || $o->{name}; |
| 166 | |
166 | |
