sub {
my $tags = GT::Template->tags;
my $e;
my %countries = (
DE_Germany => 'DE: Germany',
UK_United_Kingdom => 'UK: United Kingdom'
);
my $l = $tags->{Location} || '';
foreach my $k ( sort keys %countries ) {
my $is_selected = $l eq $k ?
qq|$countries{$k} <input type=checkbox name="Location" value="$k" checked>| :
qq|$countries{$k} <input type=checkbox name="Location">|;
$e .= $is_selected;
}
return $e;
}