Index: openacs-4/packages/fs-portlet/www/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	16 Jan 2002 21:46:41 -0000	1.2
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	21 Feb 2002 19:00:21 -0000	1.3
@@ -1,11 +1,12 @@
-# www/fs-portlet.tcl
+# fs-portlet/www/fs-portlet.tcl
+
 ad_page_contract {
     The display logic for the fs portlet
 
     @author Arjun Sanyal (arjun@openforce.net)
     @cvs_id $Id$
 } -properties {
-    
+    folders:multirow
 }
 
 array set config $cf
@@ -15,20 +16,24 @@
 # set up the multirow datasource using the db_multirow proc and 1 id
 set my_folder_id [lindex $list_of_folder_ids 0]
 
-db_multirow -local foo select_files_and_folders {} {
+db_multirow -local folders select_files_and_folders {} {
 
     # we can set array vars for this row
-    set foo(url) [dotlrn_community::get_url_from_package_id \
-        -package_id [db_string select_package_id {}]]       
+    set folders(url) [site_nodes::get_url_from_package_id \
+        -package_id [db_string select_package_id {}] \
+    ]       
+
 }
 
 foreach my_folder_id [lrange $list_of_folder_ids 1 end] {  
 
     # use the append switch to add rows to the datasource
-    db_multirow -local -append foo select_files_and_folders {} {        
-        set foo(url) [dotlrn_community::get_url_from_package_id \
-            -package_id [db_string select_package_id {}]]        
+    db_multirow -local -append folders select_files_and_folders {} {        
+        set folders(url) [site_nodes::get_url_from_package_id \
+            -package_id [db_string select_package_id {}] \
+        ]        
     }
+
 }
 
 ad_return_template