Class ::xo::db::sql::timezone (public)

 ::xo::db::Class ::xo::db::sql::timezone

Defined in

Testcases:

No testcase defined.

Source code:

namespace eval ::xo::db::sql {}
::nsf::object::alloc ::xo::db::Class ::xo::db::sql::timezone {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :abstract_p f
   set :auto_save false
   set :name_method {}
   set :object_type ::xo::db::sql::timezone
   set :security_inherit_p t
   set :sql_package_name timezone
   set :supertype acs_object
   set :with_table true}
::xo::db::sql::timezone proc add_rule {{-dbn {}} -tz:required -abbrev:required -isdst_p:required -gmt_offset:required -utc_start:required -utc_end:required -local_start:required -local_end:required} {
      #function_args: {TZ {}} {ABBREV {}} {ISDST_P {}} {GMT_OFFSET {}} {UTC_START {}} {UTC_END {}} {LOCAL_START {}} {LOCAL_END {}}
      foreach var [list TZ ABBREV ISDST_P GMT_OFFSET UTC_START UTC_END LOCAL_START LOCAL_END]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__add_rule($_TZ, $_ABBREV, $_ISDST_P, $_GMT_OFFSET, $_UTC_START, $_UTC_END, $_LOCAL_START, $_LOCAL_END) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc get_rawoffset {{-dbn {}} -tz_id:required -time:required} {
      #function_args: {TZ_ID {}} {TIME {}}
      foreach var [list TZ_ID TIME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__get_rawoffset($_TZ_ID, $_TIME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc get_id {{-dbn {}} -tz:required} {
      #function_args: {TZ {}}
      foreach var [list TZ]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__get_id($_TZ) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc get_abbrev {{-dbn {}} -tz_id:required -time:required} {
      #function_args: {TZ_ID {}} {TIME {}}
      foreach var [list TZ_ID TIME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__get_abbrev($_TZ_ID, $_TIME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc convert_to_local {{-dbn {}} -tz_id:required -utc_varchar:required} {
      #function_args: {TZ_ID {}} {UTC_VARCHAR {}}
      foreach var [list TZ_ID UTC_VARCHAR]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__convert_to_local($_TZ_ID, $_UTC_VARCHAR) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc get_date {{-dbn {}} -tz_id:required -timestamp:required -format:required -append_timezone_p:required} {
      #function_args: {TZ_ID {}} {TIMESTAMP {}} {FORMAT {}} {APPEND_TIMEZONE_P {}}
      foreach var [list TZ_ID TIMESTAMP FORMAT APPEND_TIMEZONE_P]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__get_date($_TZ_ID, $_TIMESTAMP, $_FORMAT, $_APPEND_TIMEZONE_P) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc new {{-dbn {}} -tz:required -gmt_offset:required -childof} {
      #function_args: {TZ {}} {GMT_OFFSET {}}
      foreach var [list TZ GMT_OFFSET]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__new($_TZ, $_GMT_OFFSET) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc isdst_p {{-dbn {}} -tz_id:required -time:required} {
      #function_args: {TZ_ID {}} {TIME {}}
      foreach var [list TZ_ID TIME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__isdst_p($_TZ_ID, $_TIME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc convert_to_utc {{-dbn {}} -tz_id:required -local_varchar:required} {
      #function_args: {TZ_ID {}} {LOCAL_VARCHAR {}}
      foreach var [list TZ_ID LOCAL_VARCHAR]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__convert_to_utc($_TZ_ID, $_LOCAL_VARCHAR) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc get_offset {{-dbn {}} -tz_id:required -time:required} {
      #function_args: {TZ_ID {}} {TIME {}}
      foreach var [list TZ_ID TIME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__get_offset($_TZ_ID, $_TIME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::timezone proc delete {{-dbn {}} -tz_id:required} {
      #function_args: {TZ_ID {}}
      foreach var [list TZ_ID]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select timezone__delete($_TZ_ID) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }

XQL Not present:

Generic, PostgreSQL, Oracle