sub write_valid {
    my $vars = shift;
    my $error = shift;
    my $ret_code;
    my @t = param ("title");
    my @e = param ("entry");
    unless ($t[-1]){$ret_code |= 1};
    unless ($e[-1]){$ret_code |= 2};
    return $ret_code;
}