Index: openacs-4/packages/project-manager/www/rate-project.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/rate-project.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/project-manager/www/rate-project.tcl	3 May 2006 18:20:41 -0000	1.8
+++ openacs-4/packages/project-manager/www/rate-project.tcl	10 Aug 2006 06:35:47 -0000	1.9
@@ -64,36 +64,39 @@
 set created_elements [list]
 
 # We generate the form
-foreach dimension $dimensions_list {
-    foreach user $users_list {
-	set assignee_id [lindex $user 0]
-	set label [lindex $user 1]
-	ad_form -extend -name rate_project -form [ratings::dimension_ad_form_element -object_id $assignee_id \
-						      -dimension_key [lindex $dimension 0] \
-						      -section  "[lindex $dimension 1]:" \
-						      -label "{$label}" \
-						      -show_stars_p "f"]
-	lappend created_elements "${assignee_id}.[lindex $dimension 0]"
+if {[llength $users_list]>0} {
+    foreach dimension $dimensions_list {
+	foreach user $users_list {
+	    set assignee_id [lindex $user 0]
+	    set label [lindex $user 1]
+	    ad_form -extend -name rate_project -form [ratings::dimension_ad_form_element -object_id $assignee_id \
+							  -dimension_key [lindex $dimension 0] \
+							  -section  "[lindex $dimension 1]:" \
+							  -label "{$label}" \
+							  -show_stars_p "f"]
+	    lappend created_elements "${assignee_id}.[lindex $dimension 0]"
+	}
     }
-}
-
-ad_form -extend -name rate_project -on_submit {
-    foreach element $created_elements {
-	set element_info [split $element "."]
-	set rating [template::element::get_value rate_project $element]
-	if {![empty_string_p $rating]} {
-	    set object_id [lindex $element_info 0]
-	    set dimension_key [lindex $element_info 1]
-	    set rating_id [ratings::rate -dimension_key $dimension_key \
-			       -object_id $object_id \
-			       -user_id $user_id \
-			       -rating $rating \
-			       -nomem_p "t"]
-	    db_dml update_context_id { }
+    
+    ad_form -extend -name rate_project -on_submit {
+	foreach element $created_elements {
+	    set element_info [split $element "."]
+	    set rating [template::element::get_value rate_project $element]
+	    if {![empty_string_p $rating]} {
+		set object_id [lindex $element_info 0]
+		set dimension_key [lindex $element_info 1]
+		set rating_id [ratings::rate -dimension_key $dimension_key \
+				   -object_id $object_id \
+				   -user_id $user_id \
+				   -rating $rating \
+				   -nomem_p "t"]
+		db_dml update_context_id { }
+	    }
+	    
 	}
-
+    } -after_submit {
+	ad_returnredirect "one?project_id=$project_id"
     }
-} -after_submit {
+} else {
     ad_returnredirect "one?project_id=$project_id"
-}
-
+}
\ No newline at end of file