Index: openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-oracle.xql 13 Jan 2005 23:43:26 -0000 1.1 +++ openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-oracle.xql 4 Apr 2005 18:23:47 -0000 1.2 @@ -3,62 +3,14 @@ oracle8.1.6 - - - - select et.task_name, - round(et.weight,2) as task_weight, - et.task_id - from evaluation_tasksi et, cr_items cri - where grade_item_id = :grade_item_id - and cri.live_revision = et.task_id - $evaluations_orderby - - - - - - - - select et.task_name, - et.task_item_id, - et.weight as t_weight, - eg.weight as g_weight, - round((et.weight*eg.weight)/100,2) as task_weight, - et.number_of_members, - et.task_id - from evaluation_grades eg, - evaluation_tasksi et, - cr_items cri - where eg.grade_id = :grade_id - and eg.grade_item_id = et.grade_item_id - and cri.live_revision = et.task_id - $evaluations_orderby - - - - - - select nvl((select etg2.group_id from evaluation_task_groups etg2, - evaluation_tasks et2, - acs_rels map - where map.object_id_one = etg2.group_id - and map.object_id_two = :user_id - and etg2.task_item_id = et2.task_item_id - and et2.task_id = :task_id),0) - from evaluation_tasks et3 - where et3.task_id = :task_id - --- select evaluation__party_id(:user_id,:task_id) - + select evaluation.party_id(:user_id,:task_id) from dual - select round(ese.grade,2) as grade, ese.evaluation_id, ese.description as comments, @@ -67,55 +19,19 @@ from evaluation_student_evalsi ese, cr_items cri where ese.task_item_id = :task_item_id and cri.live_revision = ese.evaluation_id - and ese.party_id = - ( select - CASE - WHEN et3.number_of_members = 1 THEN :user_id - ELSE - (select etg2.group_id from evaluation_task_groups etg2, - evaluation_tasks et2, - acs_rels map - where map.object_id_one = etg2.group_id - and map.object_id_two = :user_id - and etg2.task_item_id = et2.task_item_id - and et2.task_id = :task_id) - END as nom - from evaluation_tasks et3 - where et3.task_id = :task_id - ) --- evaluation__party_id(:user_id,:task_id) - + and ese.party_id = evaluation.party_id(:user_id,:task_id) - select ea.data as answer_data, ea.title as answer_title, ea.answer_id from evaluation_answersi ea, cr_items cri where ea.task_item_id = :task_item_id and cri.live_revision = ea.answer_id - and ea.party_id = - ( select - CASE - WHEN et3.number_of_members = 1 THEN :user_id - ELSE - (select etg2.group_id from evaluation_task_groups etg2, - evaluation_tasks et2, - acs_rels map - where map.object_id_one = etg2.group_id - and map.object_id_two = :user_id - and etg2.task_item_id = et2.task_item_id - and et2.task_id = :task_id) - END as nom - from evaluation_tasks et3 - where et3.task_id = :task_id - ) - --- evaluation__party_id(:user_id,:task_id) - + and ea.party_id = evaluation.party_id(:user_id,:task_id) Index: openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-postgresql.xql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-postgresql.xql 11 Sep 2004 00:41:09 -0000 1.5 +++ openacs-4/packages/evaluation-portlet/lib/evaluations-chunk-postgresql.xql 4 Apr 2005 18:23:47 -0000 1.6 @@ -3,44 +3,8 @@ postgresql7.3 - - - - select et.task_name, - round(et.weight,2) as task_weight, - et.task_id - from evaluation_tasksi et, cr_items cri - where grade_item_id = :grade_item_id - and cri.live_revision = et.task_id - $evaluations_orderby - - - - - - - - select et.task_name, - et.task_item_id, - et.weight as t_weight, - eg.weight as g_weight, - round((et.weight*eg.weight)/100,2) as task_weight, - et.number_of_members, - et.task_id - from evaluation_grades eg, - evaluation_tasksi et, - cr_items cri - where eg.grade_id = :grade_id - and eg.grade_item_id = et.grade_item_id - and cri.live_revision = et.task_id - $evaluations_orderby - - - - - select coalesce((select etg2.group_id from evaluation_task_groups etg2, evaluation_tasks et2, acs_rels map @@ -52,13 +16,11 @@ where et3.task_id = :task_id -- select evaluation__party_id(:user_id,:task_id) - - select round(ese.grade,2) as grade, ese.evaluation_id, ese.description as comments, @@ -84,13 +46,11 @@ where et3.task_id = :task_id ) -- evaluation__party_id(:user_id,:task_id) - - select ea.data as answer_data, ea.title as answer_title, ea.answer_id @@ -113,9 +73,7 @@ from evaluation_tasks et3 where et3.task_id = :task_id ) - -- evaluation__party_id(:user_id,:task_id) - Index: openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.xql 7 Jul 2004 17:27:27 -0000 1.2 +++ openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.xql 4 Apr 2005 18:23:47 -0000 1.3 @@ -1,14 +1,42 @@ - postgresql7.3 + select grade_plural_name, weight as grade_weight from evaluation_grades where grade_id = :grade_id + + - select grade_plural_name, weight as grade_weight from evaluation_grades where grade_id = :grade_id - + + + select et.task_name, + round(et.weight,2) as task_weight, + et.task_id + from evaluation_tasksi et, cr_items cri + where grade_item_id = :grade_item_id + and cri.live_revision = et.task_id + $evaluations_orderby + + + select et.task_name, + et.task_item_id, + et.weight as t_weight, + eg.weight as g_weight, + round((et.weight*eg.weight)/100,2) as task_weight, + et.number_of_members, + et.task_id + from evaluation_grades eg, + evaluation_tasksi et, + cr_items cri + where eg.grade_id = :grade_id + and eg.grade_item_id = et.grade_item_id + and cri.live_revision = et.task_id + $evaluations_orderby + + + Index: openacs-4/packages/evaluation-portlet/lib/tasks-chunk-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/tasks-chunk-oracle.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/evaluation-portlet/lib/tasks-chunk-oracle.xql 19 Jan 2005 00:07:47 -0000 1.2 +++ openacs-4/packages/evaluation-portlet/lib/tasks-chunk-oracle.xql 4 Apr 2005 18:23:47 -0000 1.3 @@ -5,7 +5,6 @@ - select et.task_name, et.number_of_members, et.task_id, to_char(et.due_date,'YYYY-MM-DD HH24:MI:SS') as due_date_ansi, et.online_p, @@ -14,7 +13,7 @@ et.item_id, et.requires_grade_p, et.description, et.grade_item_id, nvl(round(cr.content_length/1024,0),0) as content_length, - et.data as task_data, + cr.filename as task_data, crmt.label as pretty_mime_type, cr.title as task_title, et.task_id as revision_id @@ -27,13 +26,11 @@ and cri.live_revision = et.task_id and et.mime_type = crmt.mime_type $assignments_orderby - - select et.task_name, et.number_of_members, et.task_id, to_char(et.due_date,'YYYY-MM-DD HH24:MI:SS') as due_date_ansi, et.online_p, @@ -43,7 +40,7 @@ et.due_date, et.requires_grade_p, et.description, et.grade_item_id, cr.title as task_title, - et.data as task_data, + cr.filename as task_data, et.task_id as revision_id, nvl(round(cr.content_length/1024,0),0) as content_length, et.late_submit_p, @@ -57,84 +54,28 @@ and cri.live_revision = et.task_id and et.mime_type = crmt.mime_type $assignments_orderby - - select 1 from dual where :due_date > sysdate - - - select nvl((select etg2.group_id from evaluation_task_groups etg2, - evaluation_tasks et2, - acs_rels map - where map.object_id_one = etg2.group_id - and map.object_id_two = :user_id - and etg2.task_item_id = et2.task_item_id - and et2.task_id = :task_id),0) - from evaluation_tasks et3 - where et3.task_id = :task_id - --- select evaluation__party_id(:user_id,:task_id) - + select evaluation.party_id(:user_id,:task_id) from dual - - - - select eg.grade_name, eg.grade_plural_name - from evaluation_grades eg, cr_items cri - where eg.grade_item_id = :grade_item_id - and cri.live_revision = eg.grade_id - - - - - - - - select ets.solution_id - from evaluation_tasks_sols ets, cr_items cri - where ets.task_item_id = :task_item_id - and cri.live_revision = ets.solution_id - - - - - select ea.answer_id from evaluation_answers ea, cr_items cri where ea.task_item_id = :task_item_id and cri.live_revision = ea.answer_id - and ea.party_id = - ( select - CASE - WHEN et3.number_of_members = 1 THEN :user_id - ELSE - (select etg2.group_id from evaluation_task_groups etg2, - evaluation_tasks et2, - acs_rels map - where map.object_id_one = etg2.group_id - and map.object_id_two = :user_id - and etg2.task_item_id = et2.task_item_id - and et2.task_id = :task_id) - END as nom - from evaluation_tasks et3 - where et3.task_id = :task_id - ) - - --evaluation__party_id(:user_id,:task_id) - + and ea.party_id = evaluation.party_id(:user_id,:task_id) Index: openacs-4/packages/evaluation-portlet/lib/tasks-chunk-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/tasks-chunk-postgresql.xql,v diff -u -r1.10 -r1.11 --- openacs-4/packages/evaluation-portlet/lib/tasks-chunk-postgresql.xql 11 Sep 2004 00:41:09 -0000 1.10 +++ openacs-4/packages/evaluation-portlet/lib/tasks-chunk-postgresql.xql 4 Apr 2005 18:23:47 -0000 1.11 @@ -14,7 +14,7 @@ et.item_id, et.requires_grade_p, et.description, et.grade_item_id, coalesce(round(cr.content_length/1024,0),0) as content_length, - et.data as task_data, + cr.filename as task_data, crmt.label as pretty_mime_type, cr.title as task_title, et.task_id as revision_id @@ -87,28 +87,6 @@ - - - - select eg.grade_name, eg.grade_plural_name - from evaluation_grades eg, cr_items cri - where eg.grade_item_id = :grade_item_id - and cri.live_revision = eg.grade_id - - - - - - - - select ets.solution_id - from evaluation_tasks_sols ets, cr_items cri - where ets.task_item_id = :task_item_id - and cri.live_revision = ets.solution_id - - - - Index: openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl 11 Sep 2004 00:41:10 -0000 1.5 +++ openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl 4 Apr 2005 18:23:47 -0000 1.6 @@ -33,3 +33,194 @@ } +ad_proc -private evaluation_assignments_portlet::after_install {} { + Create the datasources needed by the evaluation assignments portlet. +} { + + db_transaction { + set ds_id [portal::datasource::new \ + -name "evaluation_assignments_portlet" \ + -description "[_ evaluation-portlet.lt_Evaluation_Assignment]"] + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key shadeable_p \ + -value t + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key hideable_p \ + -value t + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key user_editable_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key shaded_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key link_hideable_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p f \ + -key package_id \ + -value "" + + register_portal_datasource_impl + + } +} + +ad_proc -private evaluation_evaluations_portlet::after_install {} { + Create the datasources needed by the evaluation evaluations portlet. +} { + + db_transaction { + set ds_id [portal::datasource::new \ + -name "evaluation_evaluations_portlet" \ + -description "[_ evaluation-portlet.lt_Evaluation_Evaluation]"] + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key shadeable_p \ + -value t + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key hideable_p \ + -value t + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key user_editable_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key shaded_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key link_hideable_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p f \ + -key package_id \ + -value "" + + register_portal_datasource_impl + + } +} + +ad_proc -private evaluation_admin_portlet::after_install {} { + Create the datasources needed by the evaluation portlet. +} { + + db_transaction { + set ds_id [portal::datasource::new \ + -name "evaluation_admin_portlet" \ + -description "[_ evaluation-portlet.lt_Evaluation_Admin_Port]"] + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key shadeable_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key hideable_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key user_editable_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key shaded_p \ + -value f + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p t \ + -key link_hideable_p \ + -value t + + portal::datasource::set_def_param \ + -datasource_id $ds_id \ + -config_required_p t \ + -configured_p f \ + -key package_id \ + -value "" + + register_portal_datasource_impl + } +} + +ad_proc -private evaluation_assignments_portlet::uninstall {} { + Evaluation Portlet package uninstall proc +} { + unregister_implementations + set ds_id [portal::get_datasource_id evaluation_assignments_portlet] + db_exec_plsql delete_assignments_ds { *SQL* } +} + +ad_proc -private evaluation_evaluations_portlet::uninstall {} { + Evaluation Portlet package uninstall proc +} { + unregister_implementations + set ds_id [portal::get_datasource_id evaluation_evaluations_portlet] + db_exec_plsql delete_evaluations_ds { *SQL* } +} + +ad_proc -private evaluation_admin_portlet::uninstall {} { + Evaluation Portlet package uninstall proc +} { + unregister_implementations + set ds_id [portal::get_datasource_id evaluation_admin_portlet] + db_exec_plsql delete_admin_ds { *SQL* } +} + Index: openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl 11 Sep 2004 00:41:10 -0000 1.5 +++ openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl 4 Apr 2005 18:23:47 -0000 1.6 @@ -99,7 +99,35 @@ -template_src "evaluation-assignments-portlet" } +ad_proc -private evaluation_assignments_portlet::register_portal_datasource_impl {} { + Create the service contracts needed by the evaluation assignments portlet. +} { + set spec { + name "evaluation_assignments_portlet" + contract_name "portal_datasource" + owner "evaluation-portlet" + aliases { + GetMyName evaluation_assignments_portlet::get_my_name + GetPrettyName evaluation_assignments_portlet::get_pretty_name + Link evaluation_assignments_portlet::link + AddSelfToPage evaluation_assignments_portlet::add_self_to_page + Show evaluation_assignments_portlet::show + Edit evaluation_assignments_portlet::edit + RemoveSelfFromPage evaluation_assignments_portlet::remove_self_from_page + } + } + + acs_sc::impl::new_from_spec -spec $spec +} +ad_proc -private evaluation_assignments_portlet::unregister_implementations {} { + Unregister service contract implementations +} { + acs_sc::impl::delete \ + -contract_name "portal_datasource" \ + -impl_name "evaluation_assignments_portlet" +} + # # evaluation evaluations namespace # @@ -175,8 +203,6 @@ -value $package_id } - - ad_proc -public evaluation_evaluations_portlet::show { cf } { @@ -186,6 +212,39 @@ -template_src "evaluation-evaluations-portlet" } +ad_proc -private evaluation_evaluations_portlet::register_portal_datasource_impl {} { + Create the service contracts needed by the evaluation evaluations portlet. +} { + set spec { + name "evaluation_evaluations_portlet" + contract_name "portal_datasource" + owner "evaluation-portlet" + aliases { + GetMyName evaluation_evaluations_portlet::get_my_name + GetPrettyName evaluation_evaluations_portlet::get_pretty_name + Link evaluation_evaluations_portlet::link + AddSelfToPage evaluation_evaluations_portlet::add_self_to_page + Show evaluation_evaluations_portlet::show + Edit evaluation_evaluations_portlet::edit + RemoveSelfFromPage evaluation_evaluations_portlet::remove_self_from_page + } + } + + acs_sc::impl::new_from_spec -spec $spec +} + +ad_proc -private evaluation_evaluations_portlet::unregister_implementations {} { + Unregister service contract implementations +} { + acs_sc::impl::delete \ + -contract_name "portal_datasource" \ + -impl_name "evaluation_evaluations_portlet" +} + +# +# evaluation admin namespace +# + ad_proc -private evaluation_admin_portlet::get_my_name {} { return "evaluation_admin_portlet" } @@ -254,12 +313,6 @@ } - - -# -# evaluation assignments namespace -# - ad_proc -private evaluation_admin_portlet::get_my_name {} { return "evaluation_admin_portlet" } @@ -328,218 +381,6 @@ } -ad_proc -private evaluation_assignments_portlet::after_install {} { - Create the datasources needed by the evaluation assignments portlet. -} { - - db_transaction { - set ds_id [portal::datasource::new \ - -name "evaluation_assignments_portlet" \ - -description "[_ evaluation-portlet.lt_Evaluation_Assignment]"] - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key shadeable_p \ - -value t - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key hideable_p \ - -value t - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key user_editable_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key shaded_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key link_hideable_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p f \ - -key package_id \ - -value "" - - register_portal_datasource_impl - - } -} - -ad_proc -private evaluation_assignments_portlet::register_portal_datasource_impl {} { - Create the service contracts needed by the evaluation assignments portlet. -} { - set spec { - name "evaluation_assignments_portlet" - contract_name "portal_datasource" - owner "evaluation-portlet" - aliases { - GetMyName evaluation_assignments_portlet::get_my_name - GetPrettyName evaluation_assignments_portlet::get_pretty_name - Link evaluation_assignments_portlet::link - AddSelfToPage evaluation_assignments_portlet::add_self_to_page - Show evaluation_assignments_portlet::show - Edit evaluation_assignments_portlet::edit - RemoveSelfFromPage evaluation_assignments_portlet::remove_self_from_page - } - } - - acs_sc::impl::new_from_spec -spec $spec -} - -ad_proc -private evaluation_evaluations_portlet::after_install {} { - Create the datasources needed by the evaluation evaluations portlet. -} { - - db_transaction { - set ds_id [portal::datasource::new \ - -name "evaluation_evaluations_portlet" \ - -description "[_ evaluation-portlet.lt_Evaluation_Evaluation]"] - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key shadeable_p \ - -value t - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key hideable_p \ - -value t - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key user_editable_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key shaded_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key link_hideable_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p f \ - -key package_id \ - -value "" - - register_portal_datasource_impl - - } -} - -ad_proc -private evaluation_evaluations_portlet::register_portal_datasource_impl {} { - Create the service contracts needed by the evaluation evaluations portlet. -} { - set spec { - name "evaluation_evaluations_portlet" - contract_name "portal_datasource" - owner "evaluation-portlet" - aliases { - GetMyName evaluation_evaluations_portlet::get_my_name - GetPrettyName evaluation_evaluations_portlet::get_pretty_name - Link evaluation_evaluations_portlet::link - AddSelfToPage evaluation_evaluations_portlet::add_self_to_page - Show evaluation_evaluations_portlet::show - Edit evaluation_evaluations_portlet::edit - RemoveSelfFromPage evaluation_evaluations_portlet::remove_self_from_page - } - } - - acs_sc::impl::new_from_spec -spec $spec -} - - -ad_proc -private evaluation_admin_portlet::after_install {} { - Create the datasources needed by the evaluation portlet. -} { - - db_transaction { - set ds_id [portal::datasource::new \ - -name "evaluation_admin_portlet" \ - -description "[_ evaluation-portlet.lt_Evaluation_Admin_Port]"] - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key shadeable_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key hideable_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key user_editable_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key shaded_p \ - -value f - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p t \ - -key link_hideable_p \ - -value t - - portal::datasource::set_def_param \ - -datasource_id $ds_id \ - -config_required_p t \ - -configured_p f \ - -key package_id \ - -value "" - - register_portal_datasource_impl - } -} - - - ad_proc -private evaluation_admin_portlet::register_portal_datasource_impl {} { Create the service contracts needed by the evaluation admin portlet. } { @@ -561,46 +402,6 @@ acs_sc::impl::new_from_spec -spec $spec } -ad_proc -private evaluation_assignments_portlet::uninstall {} { - Evaluation Portlet package uninstall proc -} { - unregister_implementations - set ds_id [portal::get_datasource_id evaluation_assignments_portlet] - db_exec_plsql delete_assignments_ds { *SQL* } -} - -ad_proc -private evaluation_evaluations_portlet::uninstall {} { - Evaluation Portlet package uninstall proc -} { - unregister_implementations - set ds_id [portal::get_datasource_id evaluation_evaluations_portlet] - db_exec_plsql delete_evaluations_ds { *SQL* } -} - -ad_proc -private evaluation_admin_portlet::uninstall {} { - Evaluation Portlet package uninstall proc -} { - unregister_implementations - set ds_id [portal::get_datasource_id evaluation_admin_portlet] - db_exec_plsql delete_admin_ds { *SQL* } -} - -ad_proc -private evaluation_assignments_portlet::unregister_implementations {} { - Unregister service contract implementations -} { - acs_sc::impl::delete \ - -contract_name "portal_datasource" \ - -impl_name "evaluation_assignments_portlet" -} - -ad_proc -private evaluation_evaluations_portlet::unregister_implementations {} { - Unregister service contract implementations -} { - acs_sc::impl::delete \ - -contract_name "portal_datasource" \ - -impl_name "evaluation_evaluations_portlet" -} - ad_proc -private evaluation_admin_portlet::unregister_implementations {} { Unregister service contract implementations } {