YAPC::2004::Israel << Previous | Index | Next >> Copyright © 2002 Gaal Yahas

The ugly fix - before


     my @layouts = map { $_, $pub->{$_}->{'name'} }
         sort { $pub->{$a}->{'name'} cmp $pub->{$b}->{'name'} }
         grep { /^\d+$/ && $pub->{$_}->{'type'} eq "layout" &&
             LJ::S2::can_use_layer($u, $pub->{$_}->{'uniq'}) }
         keys %$pub;