[ic] [PATCH] Interchange UI: Hide columns
Stefan Hornburg
racke@linuxia.de
03 Sep 2000 12:59:35 +0200
This patch hides table columns from edition if you specify
'hidden' as type in mv_metadata:
--- dist/lib/UI/vars/UI_STD_DBEDIT_TABLE Mon Aug 7 11:10:47 2000
+++ dist/lib/UI/vars/UI_STD_DBEDIT_TABLE Sun Sep 3 12:37:00 2000
@@ -138,6 +138,10 @@
key => $key,
default => $currval,
});
+ unless ($label) {
+ $Document->write ($display);
+ next;
+ }
$Document->write(<<EOF) if $break{$col};
<tr>
<td colspan=2 bgcolor=__UI_C_INTBLOCKBAR__><img src="admin/cleardot.gif" width=__UI_MAIN_WIDTH__ height=1></td>
--- dist/lib/UI/usertag/field_label Mon Aug 7 11:10:46 2000
+++ dist/lib/UI/usertag/field_label Sun Sep 3 12:34:43 2000
@@ -18,6 +18,7 @@
else {
return "<B>$column</B>" if ! ::tag_data($meta, 'type', $keyloc);
}
+ return '' if ::tag_data($meta, 'type', $keyloc) eq 'hidden';
my $label;
$label = Vend::Interpolate::tag_data($meta, 'label', $keyloc) || $column;
my $out;
--
LinuXia Systems && Cobolt NetServices, eCommerce and more
Shop- und Datenbanklösungen mit MiniVend, Firewalls auf Debian-Basis
http://www.linuxia.de - http://www.cobolt.net