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
+}
+
Index: openacs-4/packages/assessment/tcl/as-assessment-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.xql,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/assessment/tcl/as-assessment-procs.xql	23 Jan 2005 18:10:48 -0000	1.9
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.xql	21 Nov 2005 15:10:25 -0000	1.9.2.1
@@ -133,5 +133,13 @@
 
 	</querytext>
 </fullquery>
-	
+
+<fullquery name="as::assessment::get_package_id.get_assessment_package_id">
+<querytext>
+    SELECT b.object_id as package_id 
+    FROM acs_objects as a,acs_objects as b  
+    WHERE a.context_id=:community_id and a.object_type='apm_package' and a.object_id=b.context_id and b.title='Assessment' 
+</querytext>
+</fullquery>
+
 </queryset>
Index: openacs-4/packages/assessment/tcl/as-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-callback-procs.tcl,v
diff -u -r1.1.2.8 -r1.1.2.9
--- openacs-4/packages/assessment/tcl/as-callback-procs.tcl	21 Nov 2005 09:17:57 -0000	1.1.2.8
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	21 Nov 2005 15:10:25 -0000	1.1.2.9
@@ -111,7 +111,7 @@
 } {
 #get assessment data
     db_1row get_assessment_data {}
-    db_1row get_assessment_package_id {}
+    set package_id [as::assessment::get_package_id -community_id $selected_community ]
 
 #create the assessment
     set new_assessment_id [as::assessment::new  -title $title   \