use strict;
require Imperia::TagStore;
my $ts = Imperia::TagStore->new();
my $html = '';
# my $realm = 'Topics_de';
my $realm = $FORM->{REALM};
my $sm = $imperia->common->{site_meta};
my $tag = $FORM->{TAG};
my @uriList = $ts->getURIsByTagAndRealm($tag, $realm);
my @reversedList = reverse @uriList;
foreach my $uri (@reversedList) {
my $meta = $sm->getMeta($uri);
next unless $meta;
my $heading = $meta->getValues('teaser_heading_de');
my $teaser_text = $meta->getValues('teaser_text_de');
my $directory = $meta->getValues('directory');
my $filename = $meta->getValues('filename');
my $teaser_image = $meta->getValues('4_3_small');
my $teaser_image_alt = $meta->getValues('teaser_image_alt');
my $teaser_date = $meta->getValues('admin_article_date_normalized');
my $autor = $meta->getValues('__imperia_tag_Author');
my $categoryTag = $meta->getValues('__imperia_tag_Category_de');
my $author_html;
my ($autor_path) = grep {$_ =~ m:/admin/authors/:} $ts->getURIsByTagAndRealm($autor, "Author");
if ($autor_path) {
my $meta_author = $sm->getMeta($autor_path) or next;
my $author_image = $meta_author->getValues('author_image_1_1_mini');
my $author_name = $meta_author->getValues('author_name');
$author_html = <