[interchange-cvs] interchange - racke modified code/UI_Tag/row_edit.coretag

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2004-03-19 11:27:08 GMT
Modified:  code/UI_Tag row_edit.coretag
Log:
display columns in the same order as in the columns parameter
needed for UI-offshore usage

Revision  Changes    Path
1.9       +3 -3      interchange/code/UI_Tag/row_edit.coretag


rev 1.9, prev_rev 1.8
Index: row_edit.coretag
===================================================================
RCS file: /anon_cvs/repository/interchange/code/UI_Tag/row_edit.coretag,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- row_edit.coretag	13 Jan 2004 21:33:55 -0000	1.8
+++ row_edit.coretag	19 Mar 2004 11:27:08 -0000	1.9
@@ -2,7 +2,7 @@
 UserTag row-edit Order key table size columns
 UserTag row-edit addAttr
 UserTag row-edit Interpolate 1
-UserTag row-edit Version $Revision: 1.8 $
+UserTag row-edit Version $Revision: 1.9 $
 UserTag row-edit Routine <<EOR
 sub {
 	my ($key,$table,$size,$columns,$opt) = @_;
@@ -78,10 +78,10 @@
 	if($columns ||= $view->{spread_cols} || $view->{attribute}) {
 		@cols = split /[\s,\0]+/, $columns;
 		my %col;
-		for(@cols) {
+		for($db->columns()) {
 			$col{$_} = 1;
 		}
-		@cols = grep defined $col{$_}, $db->columns();
+		@cols = grep defined $col{$_}, @cols;
 	}
 	else {
 		@cols = $db->columns();