Index: openacs-4/packages/acs-object-management/www/admin/object-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/www/admin/object-type.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-object-management/www/admin/object-type.tcl	27 Nov 2009 00:38:50 -0000	1.1
+++ openacs-4/packages/acs-object-management/www/admin/object-type.tcl	9 May 2011 02:03:46 -0000	1.2
@@ -14,36 +14,50 @@
 set context [list [list . "Object Types"] $page_title]
 set return_url [ad_conn url]?[ad_conn query]
 
+set actions ""
+if { $type_info(dynamic_p) } {
+    set actions [list "[_ acs-object-management.add_attribute]" [export_vars -base attribute {object_type}] "[_ acs-object-management.add_attribute]"]
+}
+
 list::create \
     -name attributes \
     -caption [_ acs-object-management.attributes] \
     -multirow attributes \
     -key attribute_id \
     -pass_properties {
         object_type
-    } -actions [list "[_ acs-object-management.add_attribute]" [export_vars -base attribute {object_type}] "[_ acs-object-management.add_attribute]"] \
+    } -actions $actions \
     -elements {
         pretty_name {
             label "[_ acs-object-management.attribute]"
-            link_url_eval $attribute_url
+            display_template "
+              <if @attributes.attribute_url@ ne \"\">
+                <a href=\"@attributes.attribute_url@\" title=\"@attributes.pretty_name@\">
+              </if>
+              @attributes.pretty_name@
+              <if @attributes.attribute_url@ ne \"\">
+                </a>
+              </if>"
         }
         datatype {
             label "[_ acs-object-management.datatype]"
         }
         action {
             label "[_ acs-object-management.Action]"
             display_template "
+              <if @attributes.attribute_url@ ne \"\">
                 <a class=\"button\" href=\"@attributes.delete_url@\" title=\"[_ acs-object-management.delete]\">
                   [_ acs-object-management.delete]
-                </a>"
+                </a>
+              </if>"
         }
     } -filters {
         object_type {}
     }
 
 db_multirow -cache_pool acs_metadata -cache_key t::${object_type}::get_attributes \
     -extend { attribute_url delete_url} attributes get_attributes {} {
-    set attribute_url [export_vars -base attribute {attribute_id object_type}]
+    set attribute_url [expr {$type_info(dynamic_p) ? [export_vars -base attribute {attribute_id object_type}] : "" }]
     set delete_url [export_vars -base attribute-delete {object_type attribute_name}]
 }