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.2.1 -r1.33.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	19 Nov 2003 01:54:15 -0000	1.33.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	19 Nov 2003 02:19:33 -0000	1.33.2.2
@@ -569,22 +569,5 @@
         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"
-    }
-
 }