---

Class ::xo::db::sql::wp_presentation

::xo::db::sql::wp_presentation create ...

Class Relations

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

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

Methods (to be applied on the object)

• delete (scripted, public)

   xo::db::sql::wp_presentation delete [ -dbn dbn ] \
      -pres_item_id pres_item_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -pres_item_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {PRES_ITEM_ID {}}
  foreach var [list PRES_ITEM_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__delete($_PRES_ITEM_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_audience (scripted, public)

   xo::db::sql::wp_presentation delete_audience [ -dbn dbn ] \
      -audience_item_id audience_item_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -audience_item_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {AUDIENCE_ITEM_ID {}}
  foreach var [list AUDIENCE_ITEM_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__delete_audience($_AUDIENCE_ITEM_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_background (scripted, public)

   xo::db::sql::wp_presentation delete_background [ -dbn dbn ] \
      -background_item_id background_item_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -background_item_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {BACKGROUND_ITEM_ID {}}
  foreach var [list BACKGROUND_ITEM_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__delete_background($_BACKGROUND_ITEM_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_ad_revision (scripted, public)

   xo::db::sql::wp_presentation get_ad_revision [ -dbn dbn ] \
      -pres_revision_id pres_revision_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -pres_revision_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {PRES_REVISION_ID {}}
  foreach var [list PRES_REVISION_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__get_ad_revision($_PRES_REVISION_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_audience (scripted, public)

   xo::db::sql::wp_presentation get_audience [ -dbn dbn ] \
      -pres_item_id pres_item_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -pres_item_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {PRES_ITEM_ID {}}
  foreach var [list PRES_ITEM_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__get_audience($_PRES_ITEM_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_background (scripted, public)

   xo::db::sql::wp_presentation get_background [ -dbn dbn ] \
      -pres_item_id pres_item_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -pres_item_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {PRES_ITEM_ID {}}
  foreach var [list PRES_ITEM_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__get_background($_PRES_ITEM_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• get_bg_revision (scripted, public)

   xo::db::sql::wp_presentation get_bg_revision [ -dbn dbn ] \
      -pres_revision_id pres_revision_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -pres_revision_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {PRES_REVISION_ID {}}
  foreach var [list PRES_REVISION_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__get_bg_revision($_PRES_REVISION_ID) 
      "
  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::wp_presentation new [ -dbn dbn ] \
      -creation_date creation_date  -creation_user creation_user  \
      -creation_ip creation_ip  -pres_title pres_title  \
      -page_signature page_signature  \
      -copyright_notice copyright_notice  -style style  \
      -public_p public_p  -show_modified_p show_modified_p  -aud aud  \
      -back back  -parent_id parent_id  [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -creation_date

  (required)

  -creation_user

  (required)

  -creation_ip

  (required)

  -pres_title

  (required)

  -page_signature

  (required)

  -copyright_notice

  (required)

  -style

  (required)

  -public_p

  (required)

  -show_modified_p

  (required)

  -aud

  (required)

  -back

  (required)

  -parent_id

  (required)

  -childof

  (optional)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {CREATION_DATE {}} {CREATION_USER {}} {CREATION_IP {}} {PRES_TITLE {}} {PAGE_SIGNATURE {}} {COPYRIGHT_NOTICE {}} {STYLE {}} {PUBLIC_P {}} {SHOW_MODIFIED_P {}} {AUD {}} {BACK {}} {PARENT_ID {}}
  foreach var [list CREATION_DATE CREATION_USER CREATION_IP PRES_TITLE PAGE_SIGNATURE COPYRIGHT_NOTICE STYLE PUBLIC_P SHOW_MODIFIED_P AUD BACK PARENT_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__new($_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_PRES_TITLE, $_PAGE_SIGNATURE, $_COPYRIGHT_NOTICE, $_STYLE, $_PUBLIC_P, $_SHOW_MODIFIED_P, $_AUD, $_BACK, $_PARENT_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• new_revision (scripted, public)

   xo::db::sql::wp_presentation new_revision [ -dbn dbn ] \
      -creation_date creation_date  -creation_user creation_user  \
      -creation_ip creation_ip  -pres_item_id pres_item_id  \
      -pres_title pres_title  -page_signature page_signature  \
      -copyright_notice copyright_notice  -style style  \
      -public_p public_p  -show_modified_p show_modified_p  \
      -audience audience  -background background 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -creation_date

  (required)

  -creation_user

  (required)

  -creation_ip

  (required)

  -pres_item_id

  (required)

  -pres_title

  (required)

  -page_signature

  (required)

  -copyright_notice

  (required)

  -style

  (required)

  -public_p

  (required)

  -show_modified_p

  (required)

  -audience

  (required)

  -background

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {CREATION_DATE {}} {CREATION_USER {}} {CREATION_IP {}} {PRES_ITEM_ID {}} {PRES_TITLE {}} {PAGE_SIGNATURE {}} {COPYRIGHT_NOTICE {}} {STYLE {}} {PUBLIC_P {}} {SHOW_MODIFIED_P {}} {AUDIENCE {}} {BACKGROUND {}}
  foreach var [list CREATION_DATE CREATION_USER CREATION_IP PRES_ITEM_ID PRES_TITLE PAGE_SIGNATURE COPYRIGHT_NOTICE STYLE PUBLIC_P SHOW_MODIFIED_P AUDIENCE BACKGROUND]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__new_revision($_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_PRES_ITEM_ID, $_PRES_TITLE, $_PAGE_SIGNATURE, $_COPYRIGHT_NOTICE, $_STYLE, $_PUBLIC_P, $_SHOW_MODIFIED_P, $_AUDIENCE, $_BACKGROUND) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• set_live_revision (scripted, public)

   xo::db::sql::wp_presentation set_live_revision [ -dbn dbn ] \
      -revision_id revision_id 

  Automatically generated method

  Switches:

  -dbn

  (optional)

  -revision_id

  (required)

  Partial Call Graph (max 5 caller/called nodes):

  Testcases:

  No testcase defined.

  #function_args: {REVISION_ID {}}
  foreach var [list REVISION_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select wp_presentation__set_live_revision($_REVISION_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

---