[interchange-cvs] interchange - racke modified lib/Vend/Table/Shadow.pm

[interchange-core@icdevgroup.org]

User:      racke
Date:      2002-09-30 11:13:42 GMT
Modified:  lib/Vend/Table Shadow.pm
Log:
during an import the object has the wrong class in create method, so we fix
it

Revision  Changes    Path
1.12      +5 -2      interchange/lib/Vend/Table/Shadow.pm


rev 1.12, prev_rev 1.11
Index: Shadow.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/Shadow.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- Shadow.pm	27 Sep 2002 20:00:34 -0000	1.11
+++ Shadow.pm	30 Sep 2002 11:13:41 -0000	1.12
@@ -1,6 +1,6 @@
 # Vend::Table::Shadow - Access a virtual "Shadow" table
 #
-# $Id: Shadow.pm,v 1.11 2002/09/27 20:00:34 racke Exp $
+# $Id: Shadow.pm,v 1.12 2002/09/30 11:13:41 racke Exp $
 #
 # Copyright (C) 2002 Stefan Hornburg (Racke) <racke@linuxia.de>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
=20
 package Vend::Table::Shadow;
-$VERSION =3D substr(q$Revision: 1.11 $, 10);
+$VERSION =3D substr(q$Revision: 1.12 $, 10);
=20
 # TODO
 #
@@ -64,6 +64,9 @@
=20=09
 	no strict 'refs';
 	$obj =3D &{"Vend::Table::$config->{OrigClass}::create"}('',$config,$colum=
ns,$tablename);
+	# during an import the object has the wrong class, so we fix it here
+	bless $obj, "Vend::Table::$config->{OrigClass}";
+
 	my $s =3D [$config, $tablename, undef, $columns, undef, $obj];
 	bless $s, $class;
=20=09