Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 14 Dec 2005 16:12:59 -0000 1.1 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 15 Dec 2005 12:39:24 -0000 1.2 @@ -29,33 +29,33 @@ } # the following block is legacy code -::Generic::CrClass create CrWikiPage -superclass ::xowiki::Page \ - -pretty_name "Wiki Page" -pretty_plural "Wiki Pages" \ - -table_name "generic_cr_wiki_page" -id_column "page_id" \ - -form ::xowiki::WikiForm -object_type "CrWikiPage" +# ::Generic::CrClass create CrWikiPage -superclass ::xowiki::Page \ +# -pretty_name "Wiki Page" -pretty_plural "Wiki Pages" \ +# -table_name "generic_cr_wiki_page" -id_column "page_id" \ +# -form ::xowiki::WikiForm -object_type "CrWikiPage" -::Generic::CrClass create CrWikiPlainPage -superclass ::xowiki::PlainPage \ - -pretty_name "Plain Wiki Page" -pretty_plural "Plain Wiki Pages" \ - -table_name "generic_cr_plain_page" -id_column "ppage_id" \ - -form ::xowiki::PlainWikiForm -object_type "CrWikiPlainPage" +# ::Generic::CrClass create CrWikiPlainPage -superclass ::xowiki::PlainPage \ +# -pretty_name "Plain Wiki Page" -pretty_plural "Plain Wiki Pages" \ +# -table_name "generic_cr_plain_page" -id_column "ppage_id" \ +# -form ::xowiki::PlainWikiForm -object_type "CrWikiPlainPage" -::Generic::CrClass create PageTemplate -superclass ::xowiki::PageTemplate \ - -pretty_name "Page Template" -pretty_plural "Page Templates" \ - -table_name "generic_page_template" -id_column "page_template_id" \ - -form ::xowiki::WikiForm -object_type "PageTemplate" +# ::Generic::CrClass create PageTemplate -superclass ::xowiki::PageTemplate \ +# -pretty_name "Page Template" -pretty_plural "Page Templates" \ +# -table_name "generic_page_template" -id_column "page_template_id" \ +# -form ::xowiki::WikiForm -object_type "PageTemplate" -::Generic::CrClass create PageInstance -superclass ::xowiki::PageInstance \ - -pretty_name "Page Instance" -pretty_plural "Page Instances" \ - -table_name "generic_page_instance" -id_column "page_instance_id" \ - -object_type "PageInstance" \ - -cr_attributes { - ::Generic::Attribute new -attribute_name page_template -datatype integer \ - -pretty_name "Page Template" - ::Generic::Attribute new -attribute_name instance_attributes -datatype text \ - -pretty_name "Instance Attributes" - } \ - -form ::xowiki::PageInstanceForm \ - -edit_form ::xowiki::PageInstanceEditForm +# ::Generic::CrClass create PageInstance -superclass ::xowiki::PageInstance \ +# -pretty_name "Page Instance" -pretty_plural "Page Instances" \ +# -table_name "generic_page_instance" -id_column "page_instance_id" \ +# -object_type "PageInstance" \ +# -cr_attributes { +# ::Generic::Attribute new -attribute_name page_template -datatype integer \ +# -pretty_name "Page Template" +# ::Generic::Attribute new -attribute_name instance_attributes -datatype text \ +# -pretty_name "Instance Attributes" +# } \ +# -form ::xowiki::PageInstanceForm \ +# -edit_form ::xowiki::PageInstanceEditForm if {![db_0or1row check-xowiki-table \