Index: openacs-4/packages/xowiki/www/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/edit.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/xowiki/www/edit.tcl	27 Feb 2006 12:37:30 -0000	1.10
+++ openacs-4/packages/xowiki/www/edit.tcl	13 Apr 2006 19:19:37 -0000	1.11
@@ -46,23 +46,17 @@
 }
 
 #
-# setting up file selector fs
+# setting up folder id for file selector (use community folder if available)
 #
 set fs_folder_id ""
 if {[info commands dotlrn_fs::get_community_shared_folder] ne ""} {
   set fs_folder_id [dotlrn_fs::get_community_shared_folder \
 			-community_id [dotlrn_community::get_community_id]]
 }
-if {$fs_folder_id ne ""} {
-  set folderspec "folder_id $fs_folder_id"
-} else {
-  set folderspec ""
-}
 
-set form_class [$object_type getFormClass]
-$form_class create ::xowiki::f1 -volatile \
+[$object_type getFormClass] create ::xowiki::f1 -volatile \
     -data $page \
-    -folderspec $folderspec
+    -folderspec [expr {$fs_folder_id ne "" ? "folder_id $fs_folder_id" : ""}]
 #ns_log notice "-- form f1 has class [::xowiki::f1 info class]"
 
 ::xowiki::f1 generate