sub printimgs {
say '<ul>';
for my $row (@_) {
- my ($id, $level, $title) = split /:/, $row, 3;
+ my ($id, $level, $title) = @{$row};
$id or die "empty reference"; # assertion to prevent loops
my @type;
push @type, 'parent' if defined $table->{$id};
if ($Request) {
my @query = $Request;
while (@query) {
- push @rows, grep { (split /:/)[1] <= $limit } @query;
- s/:.*// for @query;
+ push @rows, grep { $_->[1] <= $limit } @query;
+ $_ = $_->[0] for @query;
@query = map {$_ ? @{$_} : ()} @{$table}{@query};
}
}