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="| |