Index: openacs-4/packages/acs-admin/www/apm/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/file-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/file-add.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/file-add.tcl	5 Apr 2001 18:23:38 -0000	1.2
@@ -46,8 +46,13 @@
 	doc_body_append "<tr><td></td><td>$relative_path (already registered to this package)</td></tr>\n"
     } else {
 	set type [apm_guess_file_type $package_key $relative_path]
-	doc_body_append "<tr><td><input type=checkbox name=file_index value=[llength $processed_files] checked>&nbsp;</td><td><b>$relative_path</b>: [apm_pretty_name_for_file_type $type]</td></tr>\n"
-	lappend processed_files [list $relative_path $type]
+	set db_type [apm_guess_db_type $package_key $relative_path]
+	doc_body_append "<tr><td><input type=checkbox name=file_index value=[llength $processed_files] checked>&nbsp;</td><td><b>$relative_path</b>: [apm_pretty_name_for_file_type $type]"
+        if { ![empty_string_p $db_type] } {
+            doc_body_append " ([apm_pretty_name_for_db_type $db_type])"
+        }
+        doc_body_append "</td></tr>\n"
+	lappend processed_files [list $relative_path $type $db_type]
     }
     incr counter
 }