Index: openacs-4/packages/ratings/sql/postgresql/ratings-procs.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ratings/sql/postgresql/ratings-procs.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ratings/sql/postgresql/ratings-procs.sql	19 May 2004 19:00:03 -0000	1.1
+++ openacs-4/packages/ratings/sql/postgresql/ratings-procs.sql	21 May 2004 07:48:04 -0000	1.2
@@ -199,7 +199,7 @@
        and owner_id = p_user;
 
     if v_rating_id is null then
-        PERFORM rating__new(null, p_dimension_id, p_object_id, p_rating, p_title, p_package_id, p_date, p_user, p_ip, p_context_id);
+        v_rating_id := rating__new(null, p_dimension_id, p_object_id, p_rating, p_title, p_package_id, p_date, p_user, p_ip, p_context_id);
     else
         UPDATE ratings
            SET rating = p_rating
Index: openacs-4/packages/ratings/tcl/rating-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ratings/tcl/rating-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ratings/tcl/rating-procs.tcl	20 May 2004 12:03:24 -0000	1.2
+++ openacs-4/packages/ratings/tcl/rating-procs.tcl	21 May 2004 07:48:05 -0000	1.3
@@ -178,7 +178,7 @@
                   [list ip [ad_conn peeraddr]] \
                  ]
 
-    package_exec_plsql -var_list $vars rating rate
+    return [package_exec_plsql -var_list $vars rating rate]
 }
 
 ad_proc -public ratings::icon::get {
Index: openacs-4/packages/ratings/www/rate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ratings/www/rate.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ratings/www/rate.tcl	20 May 2004 10:13:40 -0000	1.2
+++ openacs-4/packages/ratings/www/rate.tcl	21 May 2004 07:48:05 -0000	1.3
@@ -15,10 +15,10 @@
 
 set user_id [auth::require_login]
 
-ratings::rate -dimension_key $dimension_key \
-    -object_id $object_id \
-    -user_id $user_id \
-    -rating $rating
+set rating_id [ratings::rate -dimension_key $dimension_key \
+                   -object_id $object_id \
+                   -user_id $user_id \
+                   -rating $rating]
 
 if {[empty_string_p $return_url]} { 
     set return_url [get_referrer]