Index: openacs-4/packages/assessment/www/assessment-create.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment-create.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/assessment-create.adp	20 Jul 2004 18:18:47 -0000	1.1
@@ -0,0 +1,9 @@
+<master>
+<property name="title">Assessment</property>
+<property name="context">@context;noquote@</property>
+<ul>
+<li><a href="show_assessments">Show assessments</a>
+<li><a href="show_items">Show items</a><br>
+<li><a href="upload_file">Upload files</a>
+</ul>
+</master>
Index: openacs-4/packages/assessment/www/assessment-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment-create.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/assessment-create.tcl	20 Jul 2004 18:18:47 -0000	1.1
@@ -0,0 +1,37 @@
+ad_page_contract {
+	@author eperez@it.uc3m.es
+	@creation-date 2004-07-20
+} {
+} -properties {
+    context:onevalue
+}
+
+#set package_id [ad_conn package_id]
+#set folder_id [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"]
+#content::folder::delete -folder_id $folder_id -cascade_p {t}
+
+content::type::create_type -content_type {as_item_choices} -supertype {content_revision} -pretty_name {Assessment Item Choice} -pretty_plural {Assessment Item Choices} -table_name {as_item_choices} -id_column {choice_id}
+content::type::create_type -content_type {as_items} -supertype {content_revision} -pretty_name {Assessment Item} -pretty_plural {Assessment Items} -table_name {as_items} -id_column {as_item_id}
+content::type::create_type -content_type {as_sections} -supertype {content_revision} -pretty_name {Assessment Section} -pretty_plural {Assessment Sections} -table_name {as_sections} -id_column {section_id}
+content::type::create_type -content_type {as_assessments} -supertype {content_revision} -pretty_name {Assessment Assessment} -pretty_plural {Assessment Assessments} -table_name {as_assessments} -id_column {assessment_id}
+
+content::type::create_attribute -content_type {as_items} -attribute_name {item_subtext}         -datatype {string}  -pretty_name {Item Subtext}    -column_spec {varchar(500)}
+content::type::create_attribute -content_type {as_items} -attribute_name {field_code}           -datatype {string}  -pretty_name {Item Field Code} -column_spec {varchar(500)}
+content::type::create_attribute -content_type {as_items} -attribute_name {enabled_p}            -datatype {boolean} -pretty_name {Item Enabled}    -column_spec {char(1)}
+content::type::create_attribute -content_type {as_items} -attribute_name {required_p}           -datatype {boolean} -pretty_name {Item Required}   -column_spec {char(1)}
+content::type::create_attribute -content_type {as_items} -attribute_name {item_default}         -datatype {string}  -pretty_name {Item Default}    -column_spec {varchar(500)}
+content::type::create_attribute -content_type {as_items} -attribute_name {max_time_to_complete} -datatype {number}  -pretty_name {Item Max Time to Complate} -column_spec {integer}
+content::type::create_attribute -content_type {as_items} -attribute_name {adp_chunk}            -datatype {string}  -pretty_name {Item Adp Chunk}  -column_spec {varchar(500)}
+
+content::type::create_attribute -content_type {as_sections} -attribute_name {instructions}      -datatype {string}  -pretty_name {Section Instructions}  -column_spec {text}
+content::type::create_attribute -content_type {as_sections} -attribute_name {enabled_p}         -datatype {boolean} -pretty_name {Section Enabled} -column_spec {char(1)}
+
+set folder_id [content::folder::new -name {as_items} -package_id [ad_conn package_id] ]
+content::folder::register_content_type -folder_id $folder_id -content_type {as_item_choices} -include_subtypes t
+content::folder::register_content_type -folder_id $folder_id -content_type {as_items} -include_subtypes t
+content::folder::register_content_type -folder_id $folder_id -content_type {as_sections} -include_subtypes t
+content::folder::register_content_type -folder_id $folder_id -content_type {as_assessments} -include_subtypes t
+
+set context [list]
+
+ad_return_template