Index: openacs-4/packages/xotcl-core/xotcl-core.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v diff -u -r1.8 -r1.9 --- openacs-4/packages/xotcl-core/xotcl-core.info 30 Jan 2006 01:43:32 -0000 1.8 +++ openacs-4/packages/xotcl-core/xotcl-core.info 9 Feb 2006 22:48:31 -0000 1.9 @@ -8,10 +8,10 @@ t xotcl - + Gustaf Neumann XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes) - 2006-01-30 + 2006-02-09 This component contains some core functionality for OACS applications using XOTcl. It includes XOTcl thread handling for OACS (supporting persistent and @@ -25,7 +25,7 @@ when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating. 0 - + Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 30 Jan 2006 01:43:32 -0000 1.11 +++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 9 Feb 2006 22:48:31 -0000 1.12 @@ -248,6 +248,11 @@ foreach att [$o children] { lappend sql_attribute_names [$att attribute_name] } + set sc [my info superclass] + if {[$sc exists sql_attribute_names]} { + # my log "-- inherited attribute_names <[$sc set sql_attribute_names]>" + foreach n [$sc set sql_attribute_names] {lappend sql_attribute_names $n} + } #my log "-- attribute_names <$sql_attribute_names> [$o info children]" if {![my object_type_exists]} { @@ -660,11 +665,11 @@ return [$data set item_id] } Form instproc request {privelege} { - my instvar page_title context + my instvar edit_form_page_title context auth::require_login permission::require_permission -object_id [ad_conn package_id] -privilege $privelege - set page_title [my add_page_title] - set context [list $page_title] + set edit_form_page_title [my add_page_title] + set context [list $edit_form_page_title] } Form instproc new_request {} { my log "--- new_request ---" @@ -680,10 +685,10 @@ } Form instproc on_validation_error {} { - my instvar page_title context + my instvar edit_form_page_title context my log "-- " - set page_title [my edit_page_title] - set context [list $page_title] + set edit_form_page_title [my edit_page_title] + set context [list $edit_form_page_title] } Form instproc after_submit {item_id} { my instvar data