my $out = "[comment]\n";
$out .= join "\n", @header;
$out .= "\n\n";
$out .= join "\n", @controls;
$out .= "\n[/comment]\n";
$out .= $body;
}

sub write_page {
my ($record, $dest) = @_;
my $dir = $::Variable->{UI_PAGE_DIR} || 'pages';
$dest ||= "$dir/$record->{code}";
Vend::Tags->write_relative_file($dest, $record->{page_text});
}