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

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


##</code><code>##

sub commit {
  my $self = shift;
  $self->{'dbh'}->commit();
}
sub rollback {
  my $self = shift;
  $self->{'dbh'}->rollback();
}