[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