[interchange-cvs] interchange - jon modified 2 files

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2003-08-12 20:00:37 GMT
Modified:  dist/lib/UI/pages/admin flex_group.html item_group.html
Log:
Fix syntax error in flex_group.html.

Remove apparently unused bits of code, probably left over from
copying item.html.

Revision  Changes    Path
2.3       +1 -5      interchange/dist/lib/UI/pages/admin/flex_group.html


rev 2.3, prev_rev 2.2
Index: flex_group.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/flex_group.html,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -u -r2.2 -r2.3
--- flex_group.html	17 Aug 2002 07:46:06 -0000	2.2
+++ flex_group.html	12 Aug 2003 20:00:37 -0000	2.3
@@ -127,7 +127,7 @@
 							||  $Scratch->{keyname};
 	$CGI->{ui_list_size} = $meta->{height}
 		if ! $CGI->{ui_list_size};
-	$CGI->{ui_show_fields ||= $meta->{ui_show_fields} || $meta->{field};
+	$CGI->{ui_show_fields} ||= $meta->{ui_show_fields} || $meta->{field};
 	if(! $CGI->{ui_show_fields}) {
 		$CGI->{ui_show_fields} = '*';
 		$CGI->{ui_description_fields} = join ",", $ref->columns();
@@ -135,10 +135,6 @@
 	else {
 		$CGI->{ui_show_fields} =~ s/[\0,\s]+/,/g;
 		$CGI->{ui_description_fields} = $CGI->{ui_show_fields};
-	}
-	@cols = split /[\s,\0]+/, $CGI->{ui_description_fields};
-	for(@cols) {
-		$numeric{$_} = 1 if $ref->numeric($_);
 	}
 
 	return $out_message;



2.3       +0 -4      interchange/dist/lib/UI/pages/admin/item_group.html


rev 2.3, prev_rev 2.2
Index: item_group.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/item_group.html,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -u -r2.2 -r2.3
--- item_group.html	1 May 2002 21:56:34 -0000	2.2
+++ item_group.html	12 Aug 2003 20:00:37 -0000	2.3
@@ -125,10 +125,6 @@
 		$CGI->{ui_show_fields} =~ s/[\0,\s]+/,/g;
 		$CGI->{ui_description_fields} = $CGI->{ui_show_fields};
 	}
-	@cols = split /[\s,\0]+/, $CGI->{ui_description_fields};
-	for(@cols) {
-		$numeric{$_} = 1 if $ref->numeric($_);
-	}
 
 	return $out_message;
 [/perl]