---

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

::xo::db::sql::timezone create ...

Defined in

Class Relations

• class: ::xo::db::Class
• superclass: ::xotcl::Object

::xo::db::Class create ::xo::db::sql::timezone \
     -superclass ::xotcl::Object

Methods (to be applied on the object)

• add_rule (scripted, public)

   xo::db::sql::timezone add_rule [ -dbn dbn ] -tz tz  -abbrev abbrev  \
      -isdst_p isdst_p  -gmt_offset gmt_offset  -utc_start utc_start  \
      -utc_end utc_end  -local_start local_start  -local_end local_end 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz (required)

  -abbrev (required)

  -isdst_p (required)

  -gmt_offset (required)

  -utc_start (required)

  -utc_end (required)

  -local_start (required)

  -local_end (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• convert_to_local (scripted, public)

   xo::db::sql::timezone convert_to_local [ -dbn dbn ] -tz_id tz_id  \
      -utc_varchar utc_varchar 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  -utc_varchar (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• convert_to_utc (scripted, public)

   xo::db::sql::timezone convert_to_utc [ -dbn dbn ] -tz_id tz_id  \
      -local_varchar local_varchar 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  -local_varchar (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• delete (scripted, public)

   xo::db::sql::timezone delete [ -dbn dbn ] -tz_id tz_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• get_abbrev (scripted, public)

   xo::db::sql::timezone get_abbrev [ -dbn dbn ] -tz_id tz_id  \
      -time time 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  -time (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• get_date (scripted, public)

   xo::db::sql::timezone get_date [ -dbn dbn ] -tz_id tz_id  \
      -timestamp timestamp  -format format  \
      -append_timezone_p append_timezone_p 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  -timestamp (required)

  -format (required)

  -append_timezone_p (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• get_id (scripted, public)

   xo::db::sql::timezone get_id [ -dbn dbn ] -tz tz 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• get_offset (scripted, public)

   xo::db::sql::timezone get_offset [ -dbn dbn ] -tz_id tz_id  \
      -time time 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  -time (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• get_rawoffset (scripted, public)

   xo::db::sql::timezone get_rawoffset [ -dbn dbn ] -tz_id tz_id  \
      -time time 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  -time (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• isdst_p (scripted, public)

   xo::db::sql::timezone isdst_p [ -dbn dbn ] -tz_id tz_id  -time time 

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (required)

  -time (required)

  Testcases:

  No testcase defined.

  #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 ]
  }

• new (scripted, public)

   xo::db::sql::timezone new [ -dbn dbn ] -tz tz  -gmt_offset gmt_offset  \
      [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz (required)

  -gmt_offset (required)

  -childof (optional)

  Testcases:

  No testcase defined.

  #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 ]
  }

Variables

::xo::db::sql::timezone set __default_metaclass ::xotcl::Class
::xo::db::sql::timezone set __default_superclass ::xotcl::Object
::xo::db::sql::timezone set abstract_p f
::xo::db::sql::timezone set auto_save false
::xo::db::sql::timezone set name_method {}
::xo::db::sql::timezone set object_type ::xo::db::sql::timezone
::xo::db::sql::timezone set security_inherit_p t
::xo::db::sql::timezone set sql_package_name timezone
::xo::db::sql::timezone set supertype acs_object
::xo::db::sql::timezone set with_table true

---