Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.26.2.5 -r1.26.2.6
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	25 Oct 2005 13:25:14 -0000	1.26.2.5
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	21 Nov 2005 15:10:25 -0000	1.26.2.6
@@ -587,3 +587,16 @@
 
 
 }
+
+ad_proc -private as::assessment::get_package_id {
+    -community_id
+} {
+    lfuente@it.uc3m.es
+    Get assessment package id from an specific community
+} {
+        if {[info exist community_id]==0} {set community_id [ad_conn community_id]}
+        ns_log Notice "community_id: $community_id"
+        db_1row get_assessment_package_id {} 
+        return $package_id
+}
+