[interchange-cvs] interchange - heins modified lib/Vend/Table/DBI.pm

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-07-18 19:31:32 GMT
Modified:  lib/Vend/Table DBI.pm
Log:
* Add BASE_CAPABILITY configuration parameter to allow testing of a new
  SQL database type with settings based on one of the known types. If
  behavior is different in particulars, that capability can be modified
  in the config file.

Revision  Changes    Path
2.25      +5 -2      interchange/lib/Vend/Table/DBI.pm


rev 2.25, prev_rev 2.24
Index: DBI.pm
=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: /anon_cvs/repository/interchange/lib/Vend/Table/DBI.pm,v
retrieving revision 2.24
retrieving revision 2.25
diff -u -r2.24 -r2.25
--- DBI.pm	18 Jul 2002 19:27:57 -0000	2.24
+++ DBI.pm	18 Jul 2002 19:31:32 -0000	2.25
@@ -1,6 +1,6 @@
 # Vend::Table::DBI - Access a table stored in an DBI/DBD database
 #
-# $Id: DBI.pm,v 2.24 2002/07/18 19:27:57 mheins Exp $
+# $Id: DBI.pm,v 2.25 2002/07/18 19:31:32 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
=20
 package Vend::Table::DBI;
-$VERSION =3D substr(q$Revision: 2.24 $, 10);
+$VERSION =3D substr(q$Revision: 2.25 $, 10);
=20
 use strict;
=20
@@ -211,6 +211,9 @@
 sub check_capability {
 	my ($config, $driver_name) =3D @_;
 	return if $config->{_Checked_capability}++;
+
+	$driver_name =3D $config->{BASE_CAPABILITY}
+		if $config->{BASE_CAPABILITY};
=20
 	my ($k, $known);
 	while ( ($k, $known) =3D each %known_capability ) {