| … | |
… | |
| 42 | print "<li>"; |
42 | print "<li>"; |
| 43 | if ($_ eq "more") { |
43 | if ($_ eq "more") { |
| 44 | print "more =>\n"; |
44 | print "more =>\n"; |
| 45 | print_arch ($a->{more}); |
45 | print_arch ($a->{more}); |
| 46 | } elsif ($_ eq "other_arch") { |
46 | } elsif ($_ eq "other_arch") { |
| 47 | print "$_ => <a href='#$a->{$_}'>$v</a>\n"; |
47 | print "$_ => <a href='$a->{$_}'>$v</a>\n"; |
| 48 | } elsif ($_ eq "msg" || $_ eq "lore") { |
48 | } elsif ($_ eq "msg" || $_ eq "lore") { |
| 49 | print "$_ =><p class='m'>$v</p>"; |
49 | print "$_ =><p class='m'>$v</p>"; |
| 50 | } else { |
50 | } else { |
| 51 | print "$_ => $v\n"; |
51 | print "$_ => $v\n"; |
| 52 | } |
52 | } |
