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 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.33" url="http://media.wu-wien.ac.at/download/xotcl-core-0.33.apm">
+    <version name="0.34" url="http://media.wu-wien.ac.at/download/xotcl-core-0.34.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2006-01-30</release-date>
+        <release-date>2006-02-09</release-date>
         <description format="text/html">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.</description>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.33"/>
+        <provides url="xotcl-core" version="0.34"/>
 
         <callbacks>
         </callbacks>
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