Index: openacs-4/contrib/packages/resource-list/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/resource-list/www/one.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/resource-list/www/one.tcl	20 Feb 2004 01:11:53 -0000	1.2
+++ openacs-4/contrib/packages/resource-list/www/one.tcl	2 Mar 2004 21:32:32 -0000	1.3
@@ -11,10 +11,10 @@
     @return resources Multirow data set of resources.
 } {
 
-    resource_item_id:integer
+    resource_item_id:integer,multiple
 
 } -properties {
-
+    url:onevalue
     context_bar:onevalue
     res:multirow
     create:multirow
@@ -28,17 +28,25 @@
 
 # --------------------------------------------------------------- #
 
+if {[llength $resource_item_id] > 1} {
+    set resource_item_id [lindex $resource_item_id 0]
+}
+
 # set up context bar
 set context_bar [ad_context_bar "View"]
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
 set user_id    [ad_verify_and_get_user_id]
+set url        [ad_conn package_url]
 
 
-db_1row res_query {} -column_array res
+if {![db_0or1row res_query {} -column_array res]} {
+    ad_return_forbidden "No such resource" "There is no such resource. If you believe this is erroneous, please contact the system administrator"
+    ad_script_abort
+}
 
-set edit_link "add-edit?resource_revision_id=$res(resource_revision_id)"
+set edit_link "[set url]add-edit?resource_revision_id=$res(resource_revision_id)"
 
 set res(resource_description) [ad_text_to_html $res(resource_description)]
 
@@ -60,9 +68,9 @@
 
 db_1row create_query {} -column_array create
 
-set comments [general_comments_get_comments -print_content_p 1 $res(resource_item_id) "[ad_conn url]?resource_item_id=$res(resource_item_id)"]
+set comments [general_comments_get_comments -print_content_p 1 $res(resource_item_id) "[set url]view/$res(resource_item_id)"]
 
-set comments_link [general_comments_create_link -object_name resource-list -link_text "Comment on this resource" -context_id $package_id $res(resource_item_id) "[ad_conn url]?resource_item_id=$resource_item_id"]
+set comments_link [general_comments_create_link -object_name resource-list -link_text "Comment on this resource" -context_id $package_id $res(resource_item_id) "[set url]view/$resource_item_id"]
 
 db_multirow cats get_categories { }