+ return @chunks;
+}
+
+sub make_image {
+ my (%params) = @_;
+
+ my $label = $params{label};
+ my $icon = $params{icon};
+ my $hidden = $params{hidden};
+ my $size = $params{size} || 16;
+ my $valign = $params{valign} || 'text-top';
+
+ return unless _show_images();
+
+ my $icon_found = $icon && -f _icon_path($icon, $size);
+
+ my $image_url = $icon_found ? _icon_path($icon, $size) : "image/unterpunkt.png";
+ my $style = $hidden ? "visibility:hidden" : "vertical-align:$valign";
+ my $width = $hidden ? "width='$size'" : '';
+
+ my $padding = $size == 16 && $icon_found || $hidden ? $nbsp x 2
+ : $size == 24 ? $nbsp
+ : '';
+
+ return "<img src='$image_url' border='0' style='$style' title='$label' $width>$padding";
+}
+
+sub _calc_framesize {
+ my $is_lynx_browser = $ENV{HTTP_USER_AGENT} =~ /links/i;
+ my $is_mobile_browser = $ENV{HTTP_USER_AGENT} =~ /mobile/i;
+ my $is_mobile_style = $::form->{stylesheet} =~ /mobile/i;
+
+ return $is_mobile_browser && $is_mobile_style ? 130
+ : $is_lynx_browser ? 240
+ : 200;
+}
+
+sub _show_images {
+ # don't show images in links
+ _calc_framesize() != 240;