Index: openacs-4/packages/static-pages/www/admin/fs-scan.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/admin/fs-scan.tcl,v
diff -u -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/static-pages/www/admin/fs-scan.tcl	12 Dec 2002 01:29:36 -0000	1.2.2.1
+++ openacs-4/packages/static-pages/www/admin/fs-scan.tcl	12 Dec 2002 01:32:58 -0000	1.2.2.2
@@ -12,7 +12,6 @@
     file_items:multirow
 }
 
-
 # sp_sync_cr_with_filesystem callbacks to fill file_items with info.
 #
 proc sp_old_item { path id } {
@@ -40,16 +39,19 @@
 
 set title "Filesystem search"
 set context [list $title]
+#set context_bar [ad_admin_context_bar {index "Static Pages Admin"} $title]
 
-set root_folder_id [sp_root_folder_id [ad_conn package_id]]
+set package_id [ad_conn package_id]
+set root_folder_id [sp_root_folder_id $package_id]
+set fs_root "[acs_root_dir]/www"
 
-sp_sync_cr_with_filesystem \
+set result [sp_sync_cr_with_filesystem \
 	-file_unchanged_proc sp_old_item \
 	-file_add_proc sp_new_item \
 	-file_change_proc sp_changed_item \
         -file_read_error_proc sp_error_item \
 	-folder_add_proc sp_new_item \
 	-folder_unchanged_proc sp_old_item \
-	"[acs_root_dir]/www" $root_folder_id
+	$fs_root $root_folder_id]
 
 ad_return_template