Index: openacs-4/packages/cms/www/modules/types/attributes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/attributes.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/types/attributes.tcl	16 Nov 2004 22:32:52 -0000	1.1
+++ openacs-4/packages/cms/www/modules/types/attributes.tcl	13 Apr 2005 21:32:34 -0000	1.2
@@ -29,7 +29,7 @@
 db_multirow -extend { widget_links } attribute_types get_attr_types "" {
     set edit_widget_url [export_vars -base widget-register {attribute_id widget content_type }]
     set unregister_widget_url [export_vars -base widget-unregister {attribute_id content_type}]
-    if {[string match $can_edit_widgets "t"]} {
+    if {$can_edit_widgets_p} {
 	if {[string match $object_type $content_type] && [expr ! [string match $object_type "content_revision"]]} {
 	    if {[template::util::is_nil widget]} {
 		set widget_links "<a href=\"$edit_widget_url\">Register Widget</a>"