Index: openacs-4/packages/evaluation/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/apm-callback-procs.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/evaluation/tcl/apm-callback-procs.tcl 5 Jan 2005 21:32:57 -0000 1.14 +++ openacs-4/packages/evaluation/tcl/apm-callback-procs.tcl 6 Jan 2005 16:22:10 -0000 1.15 @@ -48,19 +48,15 @@ content::type::new -content_type {evaluation_grades_sheets} -supertype {content_revision} -pretty_name {Evaluation Grades Sheet} -pretty_plural {Evaluation Grades Sheets} -table_name {evaluation_grades_sheets} -id_column {grades_sheet_id} #Create the new and register template -db_exec_plsql create_template { select evaluation__create_template() } -#set template_id [content::template::new -name {evaluation-tasks-default} -text {@text;noquote@} -is_live {true}] -#content::type::register_template -content_type {evaluation_tasks} -template_id $template_id -use_context {public} -is_default {t} +set template_id [content::template::new -name {evaluation-tasks-default} -text {@text;noquote@} -is_live {true}] +content::type::register_template -content_type {evaluation_tasks} -template_id $template_id -use_context {public} -is_default {t} +set template_id [content::template::new -name {evaluation-tasks-sols-default} -text {@text;noquote@} -is_live {true}] +content::type::register_template -content_type {evaluation_tasks_sols} -template_id $template_id -use_context {public} -is_default {t} +set template_id [content::template::new -name {evaluation-answers-default} -text {@text;noquote@} -is_live {true}] +content::type::register_template -content_type {evaluation_answers} -template_id $template_id -use_context {public} -is_default {t} +set template_id [content::template::new -name {evaluation-grades-sheets-default} -text {@text;noquote@} -is_live {true}] +content::type::register_template -content_type {evaluation_grades_sheets} -template_id $template_id -use_context {public} -is_default {t} -#set template_id [content::template::new -name {evaluation-tasks-sols-default} -text {@text;noquote@} -is_live {true}] -#content::type::register_template -content_type {evaluation_tasks_sols} -template_id $template_id -use_context {public} -is_default {t} - -#set template_id [content::template::new -name {evaluation-answers-default} -text {@text;noquote@} -is_live {true}] -#content::type::register_template -content_type {evaluation_answers} -template_id $template_id -use_context {public} -is_default {t} - -#set template_id [content::template::new -name {evaluation-grades-sheets-default} -text {@text;noquote@} -is_live {true}] -#content::type::register_template -content_type {evaluation_grades_sheets} -template_id $template_id -use_context {public} -is_default {t} - #evaluation_grades content::type::attribute::new -content_type {evaluation_grades} -attribute_name {grade_item_id} -datatype {number} -pretty_name {grade_item_id} -column_spec {integer} content::type::attribute::new -content_type {evaluation_grades} -attribute_name {grade_name} -datatype {string} -pretty_name {grade_name} -column_spec {varchar(100)} @@ -118,17 +114,16 @@ #Delete content type template set template_id [content::type::get_template -content_type {evaluation_tasks} -use_context {public}] content::type::unregister_template -content_type {evaluation_tasks} -template_id $template_id -use_context {public} -#content::template::delete -template_id $template_id +content::template::delete -template_id $template_id set template_id [content::type::get_template -content_type {evaluation_tasks_sols} -use_context {public}] content::type::unregister_template -content_type {evaluation_tasks_sols} -template_id $template_id -use_context {public} -#content::template::delete -template_id $template_id +content::template::delete -template_id $template_id set template_id [content::type::get_template -content_type {evaluation_answers} -use_context {public}] content::type::unregister_template -content_type {evaluation_answers} -template_id $template_id -use_context {public} -#content::template::delete -template_id $template_id +content::template::delete -template_id $template_id set template_id [content::type::get_template -content_type {evaluation_grades_sheets} -use_context {public}] content::type::unregister_template -content_type {evaluation_grades_sheets} -template_id $template_id -use_context {public} -#content::template::delete -template_id $template_id -db_exec_plsql delete_templates { select evaluation__delete_template() } +content::template::delete -template_id $template_id #Delete content type attribute content::type::attribute::delete -content_type {evaluation_grades} -attribute_name {grade_item_id} content::type::attribute::delete -content_type {evaluation_grades} -attribute_name {grade_name}