[interchange-cvs] interchange - jon modified dist/lib/UI/pages/admin/layout_auto.html

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-06-19 15:08:11 GMT
Modified:  dist/lib/UI/pages/admin Tag: STABLE_4_8-branch
Modified:           layout_auto.html
Log:
Remove limit (effectively) on number of categories that can be generated
with the "auto-populate" admin function.

Revision  Changes    Path
No                   revision



No                   revision



2.0.2.1   +2 -2      interchange/dist/lib/UI/pages/admin/layout_auto.html


rev 2.0.2.1, prev_rev 2.0
Index: layout_auto.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/layout_auto.html,v
retrieving revision 2.0
retrieving revision 2.0.2.1
diff -u -u -r2.0 -r2.0.2.1
--- layout_auto.html	18 Jul 2001 02:22:00 -0000	2.0
+++ layout_auto.html	19 Jun 2002 15:08:11 -0000	2.0.2.1
@@ -150,7 +150,7 @@
 		$adb->config('AUTO_NUMBER', '1000') if ! $adb->config('_Auto_number');
 		return "area column $acol doesn't exist"
 			unless $pdb->column_exists($acol);
-		my $ary = $pdb->query("select distinct $acol from $ptab order by $acol")
+		my $ary = $pdb->query({ sql => "select distinct $acol from $ptab order by $acol $limit", ml => 10000 })
 			or return "area column query failed";
 		for(@$ary) {
 			my ($area) = (@$_);
@@ -168,7 +168,7 @@
 		$cdb->config('AUTO_NUMBER', '1000') if ! $cdb->config('_Auto_number');
 		return "cat column $ccol doesn't exist"
 			unless $pdb->column_exists($ccol);
-		my $ary = $pdb->query("select $acol, $ccol from $ptab order by $ccol")
+		my $ary = $pdb->query({ sql => "select $acol, $ccol from $ptab order by $ccol $limit", ml => 10000 })
 			or return "cat column query failed";
 		for(@$ary) {
 			my ($area, $cat) = (@$_);