Index: openacs-4/packages/static-pages/www/admin/fs-scan-progress.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/admin/fs-scan-progress.tcl,v
diff -u -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/static-pages/www/admin/fs-scan-progress.tcl 11 Dec 2002 21:55:42 -0000 1.2.2.1
+++ openacs-4/packages/static-pages/www/admin/fs-scan-progress.tcl 12 Dec 2002 01:32:58 -0000 1.2.2.2
@@ -37,26 +37,35 @@
set title "Filesystem search"
set context_bar [ad_context_bar $title]
+#set context_bar [ad_admin_context_bar {index "Static Pages Admin"} $title]
ReturnHeaders
ns_write "$title
$title
$context_bar
-Starting scan
"
-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]
-sp_sync_cr_with_filesystem \
+# TODO: Add the fs_root parameter to the package:
+# --atp@piskorski.com, 2002/12/11 18:12 EST
+#set fs_root "[acs_root_dir][ad_parameter -package_id $package_id {fs_root}]"
+set fs_root "[acs_root_dir]/www"
+
+ns_write "
+
+[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]
+
+"
-
-ns_write "
Finished updating static pages\n"
+ns_write "