Index: openacs-4/packages/project-manager/www/rate-project.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/rate-project.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/rate-project.adp	29 Jul 2005 23:31:43 -0000	1.1
@@ -0,0 +1,10 @@
+<master>
+<property name="title">@title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+@output_page;noquote@
+
+<br><br>
+<center><a href="one?project_item_id=@project_item_id@" class="button">Done</a></center>
+
+
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/rate-project.tcl	29 Jul 2005 23:31:43 -0000	1.1
@@ -0,0 +1,30 @@
+# packages/project-manager/www/rate-project
+
+ad_page_contract {
+    Creates the chunk to rate one project
+
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+} {
+    project_id:integer,notnull
+    project_item_id:integer,notnull
+}
+
+set title "Rate this Project"
+
+set context [list [list "one?project_id=$project_id" "One Project"] $title]
+
+set user_id [ad_conn user_id]
+
+set users_list [pm::project::assignee_role_list -project_item_id $project_item_id]
+
+set output_page ""
+foreach user $users_list {
+    set assignee_id [lindex $user 0]
+    acs_user::get -user_id $assignee_id -array user_info
+    set role [pm::role::name -role_id [lindex $user 1]]
+    append output_page "<h3>Rate $user_info(first_names) $user_info(last_name) ($role):</h3>"    
+    append output_page [ratings::dimension_form -dimensions_key_list "" -object_id $user_id -context_object_id $project_id]
+    append output_page "<br><br>"
+}
+