[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,