Fisheye: Tag 1.1.2.2 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/www/folder-add.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.2.3 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/www/folder-add.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.31.2.21 -r1.31.2.22
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	28 Jul 2006 07:57:28 -0000	1.31.2.21
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	2 Aug 2006 01:03:12 -0000	1.31.2.22
@@ -93,7 +93,6 @@
     lappend actions "#file-storage.Delete_this_folder#" ${fs_url}folder-delete?[export_vars folder_id] "#file-storage.Delete_this_folder#"
 }
 if {$admin_p} {
-    lappend actions "#file-storage.Folder_Add#" "${fs_url}folder-add?folder_id=$folder_id" "#file-storage.Add_folder_from_fs#"
     lappend actions "#file-storage.Edit_Folder#" "${fs_url}folder-edit?folder_id=$folder_id" "#file-storage.Rename_this_folder#"
     lappend actions "#file-storage.lt_Modify_permissions_on_1#" "${fs_url}permissions?[export_vars -override {{object_id $folder_id}} {{return_url "[ad_conn url]"}}]" "#file-storage.lt_Modify_permissions_on_1#"
     if { $expose_rss_p } {
Index: openacs-4/packages/forums-portlet/www/forums-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet.tcl,v
diff -u -r1.12.2.1 -r1.12.2.2
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	27 Jul 2006 12:34:48 -0000	1.12.2.1
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	2 Aug 2006 01:03:12 -0000	1.12.2.2
@@ -18,8 +18,6 @@
 
 set shaded_p $config(shaded_p)
 set list_of_package_ids $config(package_id)
-
-ns_log Notice "$list_of_package_ids"
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
 set query select_forums
@@ -32,12 +30,4 @@
 
 set user_id [ad_conn user_id]
 
-set old_list_of_package_ids $list_of_package_ids
-set list_of_package_ids [list]
-foreach package_id $old_list_of_package_ids {
-    if {[permission::permission_p -object_id $package_id -privilege "read"]} {
-	lappend list_of_package_ids $package_id
-    }
-}
-
 db_multirow forums $query {}