28 |
$self->title( 'icons - ' . $self->path ); |
$self->title( 'icons - ' . $self->path ); |
29 |
|
|
30 |
my $extension = '\.(?:png)$'; |
my $extension = '\.(?:png)$'; |
31 |
my @icons = $self->dir_extension( $self->path, $extension ); |
my @icons = $self->dir_extension( $self->path, qr{$extension} ); |
32 |
|
|
33 |
my ( $combined_path, $styles ) = $self->combine_images( map { $self->path . '/' . $_ } @icons ); |
my ( $combined_path, $styles ) = $self->combine_images( @icons ); |
34 |
|
|
35 |
my $width = 0; |
my $width = 0; |
36 |
foreach ( @icons ) { |
foreach ( @icons ) { |
60 |
|
|
61 |
foreach my $icon ( @icons ) { |
foreach my $icon ( @icons ) { |
62 |
my $name = $icon; |
my $name = $icon; |
63 |
$name =~ s{$extension}{}; |
$name =~ s{^[\w/]*/([^/]+)$extension}{$1}; |
64 |
|
|
65 |
if ( ! $base ) { |
if ( ! $base ) { |
66 |
$base = $name; |
$base = $name; |
89 |
# $html .= qq|<img src="/| . $self->path . qq|/$icon" alt="$icon"> <b>$name</b>$desc<br/>\n|; |
# $html .= qq|<img src="/| . $self->path . qq|/$icon" alt="$icon"> <b>$name</b>$desc<br/>\n|; |
90 |
# $html .= qq|<b>$name</b>$desc<br/>\n|; |
# $html .= qq|<b>$name</b>$desc<br/>\n|; |
91 |
|
|
92 |
my $path = $self->path . '/' . $icon; |
my $path = $icon; |
93 |
|
$path = $self->path . '/' . $icon unless $icon =~ m{[\w/]+/[^/]+$}; |
94 |
|
|
95 |
my $pic = $styles->{$path} || die "can't find pic for $path in ",dump( $styles ); |
my $pic = $styles->{$path} || die "can't find pic for $path in ",dump( $styles ); |
96 |
$html .= '' |
$html .= '' |