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.9 -r1.10 --- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 28 Jan 2006 01:34:51 -0000 1.9 +++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 28 Jan 2006 22:35:03 -0000 1.10 @@ -213,9 +213,18 @@ "update acs_objects set package_id = :package_id where object_id = $folder_id" } } + my require_folder_object -folder_id $folder_id -package_id $package_id return $folder_id } + CrClass ad_proc require_folder_object { + -folder_id + -package_id + } { + Dummy stub; let specializations define it + } { + } + CrClass instproc getFormClass {} { set nsform [ns_getform] set item_id [ns_set get $nsform item_id] ;# item_id should be be hardcoded @@ -594,6 +603,7 @@ [my info class] delete [my set item_id] } + # # Form template class #