… | … | ||
---|---|---|---|
34 | sub print_arch { | 34 | sub print_arch { |
35 | my ($a) = @_; | 35 | my ($a) = @_; |
36 | print "<ul>"; | 36 | print "<ul>"; |
37 | for (sort keys %$a) { | 37 | for (sort keys %$a) { |
38 | next if $_ eq "_name"; | 38 | next if $_ eq "_name"; |
39 | next if $_ eq "_atype"; | ||
39 | my $v = escape_html $a->{$_}; | 40 | my $v = escape_html $a->{$_}; |
40 | 41 | ||
41 | print "<li>"; | 42 | print "<li>"; |
42 | if ($_ eq "more") { | 43 | if ($_ eq "more") { |
43 | print "more =>\n"; | 44 | print "more =>\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |