[interchange-cvs] interchange - edl modified code/UI_Tag/flex_select.coretag

[interchange-cvs at icdevgroup.org]

User:      edl
Date:      2003-12-05 23:44:33 GMT
Modified:  code/UI_Tag flex_select.coretag
Log:
Mods so that key column can have formatting options via mv_metadata just like
all other columns in a table. This is a bit different than my original RFC
mod post: added in logic for calcs and entity encoding. The value that
is passed to the flex_editor is unadulterated in all cases.

Revision  Changes    Path
1.5       +18 -0     interchange/code/UI_Tag/flex_select.coretag


rev 1.5, prev_rev 1.4
Index: flex_select.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/flex_select.coretag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- flex_select.coretag	18 Nov 2003 00:11:50 -0000	1.4
+++ flex_select.coretag	5 Dec 2003 23:44:33 -0000	1.5
@@ -1059,6 +1059,24 @@
 
 #::logDebug("keyname=$ts->{keyname}");
 			$out .= "<td" . $data_cell_style->($ts->{keyname}) . ">";
+			$ecode = '';
+			if ($calcs[0]) {
+				my %item;
+				@item{@cols} = ($code, @$line);
+				if(ref($calcs[0]) eq 'CODE') {
+					$ecode = $calcs[0]->(\%item);
+				}
+				else {
+					$Vend::Interpolate::item = \%item;
+					$ecode = tag_calc($calcs[0]);
+				}
+			}
+			if ($filter_show[0]) {
+				$ecode = $code unless $ecode;
+				$ecode = $Tag->filter($filter_show[0], $ecode, $cols[0]);
+				$ecode =~ s/\[/&#91;/g;
+			}
+			$ecode = encode_entities($code) unless $ecode;
 			$out .= "$code_pre$ecode$code_post</td>";
 			my $i = 1;
 			for my $v (@$line) {