sub oracle_escape {
  
  my $self = shift;
  
  my ($ret_value) = @{{@_}}{qw/dirty/};

  $ret_value =~ s/\'/\'\'/g;
  return $ret_value;
  
}