[interchange-cvs] interchange - racke modified dist/lib/UI/usertag/display.tag

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Fri Apr 12 13:39:01 2002


User:      racke
Date:      2002-04-12 17:38:15 GMT
Modified:  dist/lib/UI/usertag Tag: STABLE_4_8-branch display.tag
Log:
don't display empty labels (' ' is a truth value !)

Revision  Changes    Path
No                   revision



No                   revision



2.3.2.2   +2 -2      interchange/dist/lib/UI/usertag/Attic/display.tag


rev 2.3.2.2, prev_rev 2.3.2.1
Index: display.tag
===================================================================
RCS file: /anon_cvs/repository/interchange/dist/lib/UI/usertag/Attic/display.tag,v
retrieving revision 2.3.2.1
retrieving revision 2.3.2.2
diff -u -r2.3.2.1 -r2.3.2.2
--- display.tag	6 Dec 2001 23:17:27 -0000	2.3.2.1
+++ display.tag	12 Apr 2002 17:38:15 -0000	2.3.2.2
@@ -39,7 +39,7 @@
 #::logDebug("data call failed: $@") if $@;
 
 	if(! $CGI::values{ui_no_meta_display}) {
-#::logDebug("meta call: table=$table col=$column key='$key' text=$text");
+::logDebug("meta call: table=$table col=$column key='$key' text=$text");
 		($widget, $label, $help, $help_url) = UI::Primitive::meta_display($table,$column,$key,$text,undef,undef,$opt);
 #::logDebug("past meta_display, help=$help url=$help_url label=$label");
 		$widget =~ s/<(input|select)\s+/<$1 $opt->{js} /i
@@ -74,7 +74,7 @@
 EOF
 	}
 	return $widget unless $template;
-	$label = $column if ! $label;
+	$label = $column if $label !~ /\S/;
 	my %sub = (
 		WIDGET		=> $widget,
 		HELP		=> $opt->{applylocale} ? errmsg($help) : $help,