[interchange-cvs] interchange - heins modified dist/lib/UI/pages/admin/flex_select.html

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-08-10 02:38:43 GMT
Modified:  dist/lib/UI/pages/admin flex_select.html
Log:
* Allow editing "instant database".

Revision  Changes    Path
2.10      +10 -1     interchange/dist/lib/UI/pages/admin/flex_select.html


rev 2.10, prev_rev 2.9
Index: flex_select.html
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/flex_select.html,v
retrieving revision 2.9
retrieving revision 2.10
diff -u -r2.9 -r2.10
--- flex_select.html	2 Aug 2002 04:43:35 -0000	2.9
+++ flex_select.html	10 Aug 2002 02:38:43 -0000	2.10
@@ -101,6 +101,9 @@
 	}
=20
 	my $tab =3D $CGI->{mv_data_table} or return;
+	if($tab =3D~ s/\.(txt|asc)$/_$1/) {
+		$tab =3D~ s:.*/::;
+	}
 	my $db =3D $Db{$tab};
 	if(! $db) {
 		$Scratch->{ui_error} =3D errmsg('no %s database', $tab);
@@ -214,6 +217,11 @@
 		$Scratch->{keypos} =3D 0;
 	}
=20
+	if( $tab ne $ref->config('name')) {
+		## Probably transient database
+		$CGI->{mv_data_table_real} =3D $tab =3D $ref->config('name');
+	}
+
 	$meta ||=3D {};
=20
 	if($CGI->{ui_flex_key}) {
@@ -399,9 +407,10 @@
 				if $ref->numeric($CGI->{ui_sort_field});=20
 	}=20
=20
+	my $fi =3D $CGI->{mv_data_table_real} || $CGI->{mv_data_table};
 	$Scratch->{sparams} =3D $Scratch->{tmp_like_spec} ? '' : <<EOF;
=20
-	fi=3D$CGI->{mv_data_table}
+	fi=3D$fi
 	st=3Ddb
 	$CGI->{ui_text_qualification}
 	su=3D1