Index: branches/RC/themes/default2007/platform/designs/content_boxes.tpl
===================================================================
diff -u -r9646 -r9649
--- branches/RC/themes/default2007/platform/designs/content_boxes.tpl	(.../content_boxes.tpl)	(revision 9646)
+++ branches/RC/themes/default2007/platform/designs/content_boxes.tpl	(.../content_boxes.tpl)	(revision 9649)
@@ -159,7 +159,7 @@
 <inp2:m_DefineElement name="file_element">
 	<tr>
 		<td class="file-list-icon">
-			<img src="<inp2:m_TemplatesBase module="In-Portal"/>img/icon_file.gif" alt="" width="10" height="12" border="0" /><br />
+			<img src="<inp2:m_TemplatesBase module="In-Portal"/>img/file_icons/<inp2:FileIcon default="icon_file.gif"/>" alt="" width="10" height="12" border="0" /><br />
 		</td>
 		<td class="file-list-label">
 			<a href="<inp2:DownloadFileLink />"><inp2:Field name="FileName"/></a>
Index: branches/RC/kernel/units/files/file_tp.php
===================================================================
diff -u -r9616 -r9649
--- branches/RC/kernel/units/files/file_tp.php	(.../file_tp.php)	(revision 9616)
+++ branches/RC/kernel/units/files/file_tp.php	(.../file_tp.php)	(revision 9649)
@@ -9,6 +9,17 @@
 
 			return $this->ItemLink($params);
 		}
+
+		function FileIcon($params)
+		{
+			$object =& $this->getObject($params);
+			/* @var $object kDBItem */
+
+			$last_dot = strrpos($object->GetDBField('FilePath'), '.');
+			$ext = ($last_dot !== false) ? substr($object->GetDBField('FilePath'), $last_dot + 1).'.gif' : '';
+
+			return $ext ? $ext : $params['default'];
+		}
 	}
 
 ?>
\ No newline at end of file
Index: branches/RC/core/units/files/file_tp.php
===================================================================
diff -u -r9616 -r9649
--- branches/RC/core/units/files/file_tp.php	(.../file_tp.php)	(revision 9616)
+++ branches/RC/core/units/files/file_tp.php	(.../file_tp.php)	(revision 9649)
@@ -9,6 +9,17 @@
 
 			return $this->ItemLink($params);
 		}
+
+		function FileIcon($params)
+		{
+			$object =& $this->getObject($params);
+			/* @var $object kDBItem */
+
+			$last_dot = strrpos($object->GetDBField('FilePath'), '.');
+			$ext = ($last_dot !== false) ? substr($object->GetDBField('FilePath'), $last_dot + 1).'.gif' : '';
+
+			return $ext ? $ext : $params['default'];
+		}
 	}
 
 ?>
\ No newline at end of file