Index: openacs-4/packages/acs-templating/tcl/file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/file-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-templating/tcl/file-procs.tcl	21 Jun 2005 13:41:46 -0000	1.8
+++ openacs-4/packages/acs-templating/tcl/file-procs.tcl	29 Jul 2006 23:10:33 -0000	1.9
@@ -40,8 +40,18 @@
     return 1
 }
 
-ad_proc -public template::util::file::get_property { what file_list } {
+ad_proc -public template::util::file::get_property {
+    what
+    file_list
+} {
+    Return a property from a file datatype structure.
 
+    @param what Which property to return (filename, etc).
+    @param file_list The file datatype structure.
+
+    @return The requested property from the file datatype structure.
+} {
+
     switch $what {
         filename {
             return [lindex $file_list 0]