- Now writing out additional attributes only for files

www/file-tree.json.tcl

@@ -211,11 +211,14 @@ ${indent}\t\"live_version_id\":$live_version_id,
 ${indent}\t\"name\":\"$quoted_file_name\",
 ${indent}\t\"iconCls\":\"icon-$type\",
 ${indent}\t\"expanded\":$expanded,
-${indent}\t\"versions\":\[[join $version_list ", "]
-${indent}\t\],
 "
+    if {"file" eq $type} {
+	append file_json "\
+${indent}\t\"versions\":\[[join $version_list ", "]\n${indent}\t\],
+"
+    }
 
-    if {"folder" == $type && 0 == $num_children} {
+    if {"folder" eq $type && 0 == $num_children} {
 	append file_json "${indent}\t\"children\":\[\],\n"
     }