use strict;
require Imperia::TagStore;
use Imperia::Util::String::JSON qw(to_json);
use Dynamic::ViewImport::TagStore;
use Data::Dumper;
my $ts = Imperia::TagStore->new();
my $realm = $FORM->{REALM};
my $tag = $FORM->{TAG};
# Locale::Messages::turn_utf_8_off($tag);
# Locale::Messages::turn_utf_8_off($realm);
my $html = '';
if ($realm && $tag) {
$html .= '
';
$html .= "
";
my @urilist = $ts->getURIsByTagAndRealm($tag, $realm);
@urilist = sort @urilist;
foreach my $uri (@urilist) {
$html .= qq{