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 -N -r1.16 -r1.17 --- openacs-4/packages/evaluation/tcl/apm-callback-procs.tcl 6 Jan 2005 20:36:38 -0000 1.16 +++ openacs-4/packages/evaluation/tcl/apm-callback-procs.tcl 24 Jan 2005 15:12:38 -0000 1.17 @@ -48,13 +48,13 @@ 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 -set template_id [content::template::new -name {evaluation-tasks-default} -text {@text;noquote@} -is_live {true}] +set template_id [content::template::new -name {evaluation-tasks-default} -text {@text;noquote@} -is_live {t}] 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}] +set template_id [content::template::new -name {evaluation-tasks-sols-default} -text {@text;noquote@} -is_live {t}] 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}] +set template_id [content::template::new -name {evaluation-answers-default} -text {@text;noquote@} -is_live {t}] 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}] +set template_id [content::template::new -name {evaluation-grades-sheets-default} -text {@text;noquote@} -is_live {t}] content::type::register_template -content_type {evaluation_grades_sheets} -template_id $template_id -use_context {public} -is_default {t} #evaluation_grades @@ -200,14 +200,17 @@ set folder_id [content::folder::new -name "evaluation_student_evals_$package_id" -label "evaluation_student_evals_$package_id" -package_id $package_id ] content::folder::register_content_type -folder_id $folder_id -content_type {evaluation_student_evals} -include_subtypes t } + ns_log notice "Primer Error" set exams_item_id [db_nextval acs_object_id_seq] set revision_id [evaluation::new_grade -new_item_p 1 -item_id $exams_item_id -content_type evaluation_grades -content_table evaluation_grades -content_id grade_id -name $exams_singular_name -plural_name $exams_name -description $exams_desc -weight 40 -package_id $package_id] content::item::set_live_revision -revision_id $revision_id + ns_log notice "Segundo Error" set tasks_item_id [db_nextval acs_object_id_seq] set revision_id [evaluation::new_grade -new_item_p 1 -item_id $tasks_item_id -content_type evaluation_grades -content_table evaluation_grades -content_id grade_id -name $tasks_singular_name -plural_name $tasks_name -description $tasks_desc -weight 40 -package_id $package_id] content::item::set_live_revision -revision_id $revision_id + ns_log notice "Tercer Error" set projects_item_id [db_nextval acs_object_id_seq] set revision_id [evaluation::new_grade -new_item_p 1 -item_id $projects_item_id -content_type evaluation_grades -content_table evaluation_grades -content_id grade_id -name $projects_singular_name -plural_name $projects_name -description $projects_desc -weight 20 -package_id $package_id] content::item::set_live_revision -revision_id $revision_id Index: openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql,v diff -u -N -r1.18 -r1.19 --- openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql 17 Dec 2004 18:11:00 -0000 1.18 +++ openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql 24 Jan 2005 15:12:38 -0000 1.19 @@ -479,5 +479,61 @@ + + + + + select now + + + + + + + + select now + + + + + + + + select now + + + + + + + + select now + + + + + + + + select now + + + + + + + + select now + + + + + + + + select now + + + Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v diff -u -N -r1.23 -r1.24 --- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl 20 Jan 2005 18:49:26 -0000 1.23 +++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl 24 Jan 2005 15:12:38 -0000 1.24 @@ -511,25 +511,28 @@ set creation_date [db_string get_date { *SQL* }] } if { $new_item_p } { - ns_log Notice "Entro !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! \"$title\"" - set item_id [content::item::new -item_id $item_id \ - -parent_id $folder_id \ - -content_type $content_type \ - -name $item_name \ - -context_id $package_id \ - -mime_type $mime_type \ - -title $title \ - -creation_date $creation_date] - } + set item_id [content::item::new \ + -item_id $item_id \ + -parent_id $folder_id \ + -content_type $content_type \ + -name $item_name \ + -context_id $package_id \ + -mime_type $mime_type \ + -storage_type $storage_type \ + -creation_date $creation_date] + set revision_id [content::revision::new \ -item_id $item_id \ -content_type $content_type \ -mime_type $mime_type \ - -title $title \ + -title $title\ -creation_date $creation_date \ - -attributes [list [list answer_item_id $item_id] \ - [list party_id $party_id]] ] + -attributes [list [list answer_item_id $item_id] \ + [list party_id $party_id] \ + [list task_item_id $task_item_id]] ] + + # in order to find the file we have to set the name in cr_items the same that in cr_revisions db_dml update_item_name { *SQL* } return $revision_id