Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.33 -r1.33.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	25 Sep 2003 12:30:22 -0000	1.33
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	19 Nov 2003 01:54:15 -0000	1.33.2.1
@@ -569,5 +569,22 @@
         return [parameter::get -parameter ArchiveExtension -default "txt"]
     }
 
+    ad_proc get_type_icon {
+	type
+    } {
+	returns the filename of the icon to be used to represent the particular type
+    } {
+
+	switch $type {
+	    "application/pdf"       { return "pdf.gif" }
+	    "application/msword"    { return "msword.gif" }
+	    "application/vnd.ms-excel" { return "msexcel.gif" }
+	    "url"                   { return "url.gif" }
+	    "folder"                { return "folder.png" }
+	}
+
+	return "file.png"
+    }
+
 }
 
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.xql,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	17 May 2003 10:39:21 -0000	1.12
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	19 Nov 2003 01:54:15 -0000	1.12.2.1
@@ -111,7 +111,7 @@
 
     <fullquery name="fs::publish_versioned_object_to_file_system.select_file_name">
         <querytext>
-            select filename
+            select content
             from cr_revisions
             where revision_id = :live_revision
         </querytext>