Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl,v diff -u -N -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl 24 Aug 2020 15:03:23 -0000 1.10.2.1 +++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl 24 Aug 2020 15:04:39 -0000 1.10.2.2 @@ -1,7 +1,7 @@ ad_library { - + Procs to set up the dotLRN evaluation applet - + @author jopez@galileo.edu @cvs-id $Id$ } @@ -39,11 +39,11 @@ } ad_proc -public dotlrn_evaluation::remove_applet {} { - One time destroy. + One time destroy. } { set applet_id [dotlrn_applet::get_applet_id_from_key [my_package_key]] - db_exec_plsql delete_applet_from_communities { *SQL* } - db_exec_plsql delete_applet { *SQL* } + db_exec_plsql delete_applet_from_communities { *SQL* } + db_exec_plsql delete_applet { *SQL* } # dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key] } @@ -54,7 +54,7 @@ } { set portal_id [dotlrn_community::get_portal_id -community_id $community_id] - # create the evaluation package instance + # create the evaluation package instance set package_id [dotlrn::instantiate_and_mount $community_id [package_key]] # set up the admin portal @@ -65,7 +65,7 @@ evaluation_admin_portlet::add_self_to_page \ -portal_id $admin_portal_id \ -package_id $package_id - + set args [ns_set create] ns_set put $args package_id $package_id add_portlet_helper $portal_id $args @@ -130,8 +130,8 @@ ad_proc -public dotlrn_evaluation::add_portlet { portal_id } { - A helper proc to add the underlying portlet to the given portal. - + A helper proc to add the underlying portlet to the given portal. + @param portal_id } { # simple, no type specific stuff, just set some dummy values @@ -155,26 +155,26 @@ -portal_id $portal_id \ -package_id [ns_set get $args package_id] \ -param_action [ns_set get $args param_action] \ - -force_region [parameter::get -parameter AssignmentsPortletRegion -package_id [ns_set get $args package_id]] \ - -page_name [parameter::get -parameter EvaluationPageName -package_id [ns_set get $args package_id]] + -force_region [parameter::get -parameter AssignmentsPortletRegion -package_id [ns_set get $args package_id]] \ + -page_name [parameter::get -parameter EvaluationPageName -package_id [ns_set get $args package_id]] evaluation_evaluations_portlet::add_self_to_page \ -portal_id $portal_id \ -package_id [ns_set get $args package_id] \ -param_action [ns_set get $args param_action] \ - -force_region [parameter::get -parameter EvaluationsPortletRegion -package_id [ns_set get $args package_id]] \ - -page_name [parameter::get -parameter EvaluationPageName -package_id [ns_set get $args package_id]] + -force_region [parameter::get -parameter EvaluationsPortletRegion -package_id [ns_set get $args package_id]] \ + -page_name [parameter::get -parameter EvaluationPageName -package_id [ns_set get $args package_id]] } ad_proc -public dotlrn_evaluation::remove_portlet { portal_id args } { - A helper proc to remove the underlying portlet from the given portal. - + A helper proc to remove the underlying portlet from the given portal. + @param portal_id @param args A list of key-value pairs (possibly user_id, community_id, and more) -} { +} { evaluation_assignments_portlet::remove_self_from_page \ -portal_id $portal_id \ -package_id [ns_set get $args package_id] @@ -196,54 +196,54 @@ -community_id $old_community_id \ -applet_key [applet_key] ] - + set grades [db_list_of_lists get_grades {}] - + db_dml delete_grades {} foreach grade $grades { - set grade_id [db_nextval acs_object_id_seq] - set revision_id [evaluation::new_grade -new_item_p t -item_id $grade_id -content_type evaluation_grades -content_table evaluation_grades -content_id grade_id -name [lindex $grade 0] -plural_name [lindex $grade 1] -description [lindex $grade 2] -weight [lindex $grade 3] -package_id $new_package_id] - content::item::set_live_revision -revision_id $revision_id - - set grade_item_id [lindex $grade 4] - set tasks [db_list_of_lists get_tasks {}] - - - foreach task $tasks { - set forums_related_p [lindex $task 12] - set points [lindex $task 13] - set relative_weight [lindex $task 14] - set perfect_score [lindex $task 15] - set task_id [db_nextval acs_object_id_seq] - set task_revision_id [evaluation::new_task -new_item_p t -item_id $task_id \ - -content_type evaluation_tasks \ - -content_table evaluation_tasks \ - -content_id task_id \ - -name [lindex $task 0] \ - -description [lindex $task 1] \ - -weight [lindex $task 2] \ - -grade_item_id $grade_id \ - -number_of_members [lindex $task 3] \ - -online_p [lindex $task 4] \ - -storage_type [lindex $task 5] \ - -due_date [lindex $task 6] \ - -late_submit_p [lindex $task 7] \ - -requires_grade_p [lindex $task 8] \ - -title [lindex $task 9] \ - -mime_type [lindex $task 10] \ - -estimated_time [lindex $task 11] \ - -package_id $new_package_id] - - content::item::set_live_revision -revision_id $task_revision_id - - # by the moment, since I'm having a date problem with oracle10g, I have to do this in order - # to store the entire date - - db_dml update_tasks {} - } + set grade_id [db_nextval acs_object_id_seq] + set revision_id [evaluation::new_grade -new_item_p t -item_id $grade_id -content_type evaluation_grades -content_table evaluation_grades -content_id grade_id -name [lindex $grade 0] -plural_name [lindex $grade 1] -description [lindex $grade 2] -weight [lindex $grade 3] -package_id $new_package_id] + content::item::set_live_revision -revision_id $revision_id + + set grade_item_id [lindex $grade 4] + set tasks [db_list_of_lists get_tasks {}] + + + foreach task $tasks { + set forums_related_p [lindex $task 12] + set points [lindex $task 13] + set relative_weight [lindex $task 14] + set perfect_score [lindex $task 15] + set task_id [db_nextval acs_object_id_seq] + set task_revision_id [evaluation::new_task -new_item_p t -item_id $task_id \ + -content_type evaluation_tasks \ + -content_table evaluation_tasks \ + -content_id task_id \ + -name [lindex $task 0] \ + -description [lindex $task 1] \ + -weight [lindex $task 2] \ + -grade_item_id $grade_id \ + -number_of_members [lindex $task 3] \ + -online_p [lindex $task 4] \ + -storage_type [lindex $task 5] \ + -due_date [lindex $task 6] \ + -late_submit_p [lindex $task 7] \ + -requires_grade_p [lindex $task 8] \ + -title [lindex $task 9] \ + -mime_type [lindex $task 10] \ + -estimated_time [lindex $task 11] \ + -package_id $new_package_id] + + content::item::set_live_revision -revision_id $task_revision_id + + # by the moment, since I'm having a date problem with oracle10g, I have to do this in order + # to store the entire date + + db_dml update_tasks {} + } } - + return $new_package_id } @@ -252,10 +252,10 @@ event old_value new_value -} { - listens for the following events: -} { -} +} { + listens for the following events: +} { +} # Local variables: