[interchange-cvs] interchange - heins modified scripts/interchange.PL

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-09-02 00:54:37 GMT
Modified:  scripts  Tag: STABLE_4_8-branch interchange.PL
Log:
* Flag database for write properly, closing Bugzilla #342.

Revision  Changes    Path
No                   revision



No                   revision



2.7.2.17  +5 -2      interchange/scripts/interchange.PL


rev 2.7.2.17, prev_rev 2.7.2.16
Index: interchange.PL
=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/scripts/interchange.PL,v
retrieving revision 2.7.2.16
retrieving revision 2.7.2.17
diff -u -r2.7.2.16 -r2.7.2.17
--- interchange.PL	14 Aug 2002 13:35:53 -0000	2.7.2.16
+++ interchange.PL	2 Sep 2002 00:54:35 -0000	2.7.2.17
@@ -50,7 +50,7 @@
 #
 # Interchange version 4.8.7
 #
-# $Id: interchange.PL,v 2.7.2.16 2002/08/14 13:35:53 kwalsh Exp $
+# $Id: interchange.PL,v 2.7.2.17 2002/09/02 00:54:35 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -517,7 +517,10 @@
 	return ($base, $thing) unless $thing =3D~ /^(\w+):+(.*)/;
 	my $t =3D $1;
 	my $c =3D $2;
-	$Vend::WriteDatabase =3D 1 if $::Scratch->{mv_data_enable} =3D~ / $t[: ]/;
+
+	# Security handled before this in update_data
+	$Vend::WriteDatabase{$t} =3D 1;
+
 	my $db =3D ::database_exists_ref($t);
 	return undef unless $db;
 	return ($db->ref(), $c);