Author: spadkins
Date: Thu Nov 6 10:44:00 2008
New Revision: 12053
Added:
p5ee/trunk/App-Repository/lib/App/SessionObject/SQLTranslator/
p5ee/trunk/App-Repository/lib/App/SessionObject/SQLTranslator/MySQLToOracle.pm
Log:
New file
Added:
p5ee/trunk/App-Repository/lib/App/SessionObject/SQLTranslator/MySQLToOracle.pm
==============================================================================
--- (empty file)
+++
p5ee/trunk/App-Repository/lib/App/SessionObject/SQLTranslator/MySQLToOracle.pm
Thu Nov 6 10:44:00 2008
@@ -0,0 +1,42 @@
+
+#############################################################################
+## $Id: MySQLToOracle.pm 9934 2007-09-11 18:04:00Z spadkins $
+#############################################################################
+
+package App::SessionObject::SQLTranslator::MySQLToOracle;
+$VERSION = (q$Revision: 9934 $ =~ /(\d[\d\.]*)/)[0]; # VERSION numbers
generated by svn
+
+use App::SessionObject::SQLTranslator;
+
[EMAIL PROTECTED] = ( "App::SessionObject::SQLTranslator" );
+
+use strict;
+
+sub _init_operator_table {
+ my ($self) = @_;
+ $self->{operator_table} = {
+ '%' => sub {return "mod($_[0],$_[1])" },
+ # '/' => sub {return "$_[0] / $_[1]" },
+ };
+}
+
+sub _init_function_table {
+ my ($self) = @_;
+ $self->{function_table} = {
+ from_days => sub {return join " ", @_},
+ concat => sub {return join "||", @_},
+ quarter => sub {qq{to_char($_[0],'Q')}},
+ year => sub {qq{to_char($_[0],'YYYY')}},
+ week => sub {qq{(($_[0]) - (to_char($_[0],'D')-1))}},
+ dayofweek => sub {qq{to_char($_[0],'D')}},
+ if => sub {qq{case when $_[0] then $_[1] else $_[2] end}},
+ by_date => sub {return "go_away(".( join ",", @_).")"},
+ to_days => sub {return join ",", @_},
+ this_function => sub {return "That_Function(".(join ",", @_).")"},
+ as_is => sub {return join " ", @_},
+ datediff => sub {return "$_[0] - $_[1]"},
+ };
+}
+
+1;
+
