You should change the script a bit:
sub {
my $tags = GT::Template->tags;
my $accountid = $tags->{AccountID};
my $table33 = $DB->table('tblClients');
my ($clientid) = $table33->select ({AccountID => $accountid}, ['ClientID'])->fetchrow_array;
return $clientid;
}
Ensure that there is no space in <%global_name%>
TheStone.
B.
sub {
my $tags = GT::Template->tags;
my $accountid = $tags->{AccountID};
my $table33 = $DB->table('tblClients');
my ($clientid) = $table33->select ({AccountID => $accountid}, ['ClientID'])->fetchrow_array;
return $clientid;
}
Ensure that there is no space in <%global_name%>
TheStone.
B.