| … | … | ||
|---|---|---|---|
| 72 | push @{$topics{$v->[0]}}, $k; | 72 | push @{$topics{$v->[0]}}, $k; |
| 73 | } | 73 | } |
| 74 | 74 | ||
| 75 | my $res; | 75 | my $res; |
| 76 | while (my ($k, $v) = each %topics) { | 76 | while (my ($k, $v) = each %topics) { |
| 77 | $res .= "[b]$k:[/b]\n" . (join " ", sort @$v) . "\n\n"; | 77 | $res .= "B<$k:>\n" . (join " ", sort @$v) . "\n\n"; |
| 78 | } | 78 | } |
| 79 | 79 | ||
| 80 | $pl->reply (undef, $res); | 80 | $pl->reply (undef, $res); |
| 81 | 81 | ||
| 82 | } elsif (my $item = $TOPIC->{$topic}) { | 82 | } elsif (my $item = $TOPIC->{$topic}) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |