24 |
foreach my $class ( $self->classes ) { |
foreach my $class ( $self->classes ) { |
25 |
|
|
26 |
my $icon = ''; |
my $icon = ''; |
27 |
if ( $self->can('icon_path') ) { |
if ( ! $self->can('icon_path') ) { |
28 |
$icon = $self->icon_path( $class ); |
warn "FIXME: re-apply Frey::Web on $self"; |
29 |
$icon = qq|<img src="/$icon" alt="$class">| if $icon; |
Frey::Web->meta->apply( $self ); |
|
} else { |
|
|
#warn "## $self doesn't know how to return icon_path"; |
|
30 |
} |
} |
31 |
|
$icon = $self->icon_path( $class ); |
32 |
|
$icon = qq|<img src="/$icon" alt="$class">| if $icon; |
33 |
|
|
34 |
my $html |
my $html |
35 |
= qq|<tr><td>$icon</td><td><a target="$class" href="/$class" title="| |
= qq|<tr><td>$icon</td><td><a target="$class" href="/$class" title="| |
70 |
map { $row->{$_} } |
map { $row->{$_} } |
71 |
sort { |
sort { |
72 |
if ( $usage->{$a} || $usage->{$b} ) { |
if ( $usage->{$a} || $usage->{$b} ) { |
73 |
if ( $self->usage_on_top ) { |
$self->usage_on_top ? $usage->{$b} <=> $usage->{$a} : $usage->{$a} <=> $usage->{$b}; |
|
$usage->{$b} <=> $usage->{$a}; |
|
|
} else { |
|
|
$usage->{$a} <=> $usage->{$b}; |
|
|
} |
|
74 |
} else { |
} else { |
75 |
$a cmp $b; |
$self->usage_on_top ? $a cmp $b : $b cmp $a; |
76 |
} |
} |
77 |
} |
} |
78 |
keys %$row |
keys %$row |