diff options
Diffstat (limited to 'lib/VNWeb/Releases')
-rw-r--r-- | lib/VNWeb/Releases/Lib.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/Releases/Page.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/Releases/VNTab.pm | 10 |
3 files changed, 7 insertions, 7 deletions
diff --git a/lib/VNWeb/Releases/Lib.pm b/lib/VNWeb/Releases/Lib.pm index a20d1339..e14933e5 100644 --- a/lib/VNWeb/Releases/Lib.pm +++ b/lib/VNWeb/Releases/Lib.pm @@ -106,7 +106,7 @@ sub release_row_ { td_ class => 'tc1', sub { rdate_ $r->{released} }; td_ class => 'tc2', defined $r->{minage} ? minage $r->{minage} : ''; td_ class => 'tc3', sub { - abbr_ class => "icons plat $_", title => $PLATFORM{$_}, '' for $r->{platforms}->@*; + platform_ $_ for $r->{platforms}->@*; if($opt->{lang}) { abbr_ class => "icons lang $_", title => $LANGUAGE{$_}, '' for $r->{lang}->@*; } diff --git a/lib/VNWeb/Releases/Page.pm b/lib/VNWeb/Releases/Page.pm index 1f29ad48..36d2f383 100644 --- a/lib/VNWeb/Releases/Page.pm +++ b/lib/VNWeb/Releases/Page.pm @@ -108,7 +108,7 @@ sub _infotable_ { td_ 'Platform'.($r->{platforms}->@* == 1 ? '' : 's'); td_ sub { join_ \&br_, sub { - abbr_ class => "icons plat $_", title => $PLATFORM{$_}, ' '; + platform_ $_; txt_ ' '.$PLATFORM{$_}; }, $r->{platforms}->@*; } diff --git a/lib/VNWeb/Releases/VNTab.pm b/lib/VNWeb/Releases/VNTab.pm index 36c69c27..604f2415 100644 --- a/lib/VNWeb/Releases/VNTab.pm +++ b/lib/VNWeb/Releases/VNTab.pm @@ -59,7 +59,7 @@ my @rel_cols = ( default => 1, has_data => sub { !!@{$_[0]{platforms}} }, draw => sub { - join_ \&br_, sub { abbr_ class => "icons plat $_", title => $PLATFORM{$_}, ''; }, $_[0]{platforms}->@*; + join_ \&br_, sub { platform_ $_ }, $_[0]{platforms}->@*; txt_ 'Unknown' if !$_[0]{platforms}->@*; }, }, { # Media @@ -158,17 +158,17 @@ sub buttons_ { }; my sub pl { - my($row, $option, $txt, $csscat) = @_; + my($row, $option, $txt, $icon) = @_; my %opts = map +($_,1), map $_->{$row}->@*, @$r; return if !keys %opts; p_ class => 'browseopts', sub { a_ href => $url->($option, $_), $_ eq $opt->{$option} ? (class => 'optselected') : (), sub { - $_ eq 'all' ? txt_ 'All' : abbr_ class => "icons $csscat $_", title => $txt->{$_}, ''; + $_ eq 'all' ? txt_ 'All' : $icon->($_); } for ('all', sort keys %opts); } }; - pl 'platforms', 'os', \%PLATFORM, '' if $opt->{pla}; - pl 'lang', 'lang',\%LANGUAGE, 'lang' if $opt->{lan}; + pl 'platforms', 'os', \%PLATFORM, \&platform_ if $opt->{pla}; + pl 'lang', 'lang',\%LANGUAGE, sub { abbr_ class => "icons lang $_[0]", title => $LANGUAGE{$_[0]}, '' } if $opt->{lan}; } |