Index: openacs-4/packages/static-pages/www/admin/fs-scan.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/admin/fs-scan.adp,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/static-pages/www/admin/fs-scan.adp	6 Sep 2002 21:51:05 -0000	1.3
+++ openacs-4/packages/static-pages/www/admin/fs-scan.adp	12 Dec 2002 01:29:36 -0000	1.3.2.1
@@ -4,6 +4,6 @@
 
 <ul>
 <multiple name=file_items>
-  <li><code>@file_items.path@</code>: <i>@file_items.status@</i></li>
+  <li><code>@file_items.path@</code>: <i>@file_items.status@</i> @file_items.status_msg@</li>
 </multiple>
 </ul>
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 -r1.2.2.1
--- openacs-4/packages/static-pages/www/admin/fs-scan.tcl	6 Sep 2002 12:30:13 -0000	1.2
+++ openacs-4/packages/static-pages/www/admin/fs-scan.tcl	12 Dec 2002 01:29:36 -0000	1.2.2.1
@@ -12,25 +12,32 @@
     file_items:multirow
 }
 
+
 # sp_sync_cr_with_filesystem callbacks to fill file_items with info.
 #
 proc sp_old_item { path id } {
     upvar file_items file_items
-    multirow append file_items $path "unchanged"
+    multirow append file_items $path "unchanged" {}
 }
 proc sp_new_item { path id } {
     upvar file_items file_items
-    multirow append file_items $path "added"
+    multirow append file_items $path "added" {}
 }
 proc sp_changed_item { path id } {
     upvar file_items file_items
-    multirow append file_items $path "updated"
+    multirow append file_items $path "updated" {}
     # The title may have changed:
     sp_flush_page $id
 }
 
-multirow create file_items path status
+proc sp_error_item { path id msg } {
+    upvar file_items file_items
+    multirow append file_items $path {<strong>Error:</strong>} \
+        "<blockquote>$msg</blockquote>"
+}
 
+multirow create file_items path status status_msg
+
 set title "Filesystem search"
 set context [list $title]
 
@@ -40,6 +47,7 @@
 	-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