xo::ical::VCALITEM method tag (protected)

 <instance of xo::ical::VCALITEM> tag [ -tag tag ] \
    [ -param param ] [ -conv conv ] [ -value value ] slot

Defined in packages/xotcl-core/tcl/ical-procs.tcl

Generate a single (line) entry in ical format starting with the specified tag. If no "tag" is specified, the tag name is uppercase of the slot. The value might be specified literally or it can be the name of an instance variable (named by the "slot" attribute". The functions returns empty (produces no output) when either the value is empty or no instance variable exists. Optionally, the value can be converted.

Switches:

-tag (optional)

-param (optional)

-conv (optional)

-value (optional)

Parameters:

slot (required)

Testcases:

No testcase defined.

Source code:

#ns_log notice "::xo::ical::VCALITEM tag [self args]"
if {![info exists tag]} {
  set tag [string toupper $slot]
}

#
# if we get a param, we expect it to include delimiters, such
# as the leading semicolon
#
if {[info exists param]} {
  append tag $param
}

if {![info exists value]} {
  if {[info exists :$slot]} {
    set value [set :$slot]
  } else {
    #
    # If we have no value and no instance variable set, do not
    # output this slot.
    #
    return ""
  }
}

#
# When a converter is given, apply it
#
if {[info exists conv]} {
  set value [::xo::ical $conv $value]
}

if {$value ne ""} {
  set result [::xo::ical reflow_content_line "$tag:$value"]
  append result \r\n
  #ns_log notice "::xo::ical::VCALITEM tag [self args] -> len: [string length $result]"
} else {
  set result ""
}
return $result

XQL Not present:

Generic, PostgreSQL, Oracle