sub returndata_or_null {
  my $var = shift;
  $var =~ s/\'/\'\'/og;
  return ($str) ? "'$str'" : "null";
}