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

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-09-02 00:52:30 GMT
Modified:  scripts  interchange.PL
Log:
* Flag database for write properly, closing Bugzilla #342.

Revision  Changes    Path
2.54      +5 -2      interchange/scripts/interchange.PL


rev 2.54, prev_rev 2.53
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: /var/cvs/interchange/scripts/interchange.PL,v
retrieving revision 2.53
retrieving revision 2.54
diff -u -r2.53 -r2.54
--- interchange.PL	1 Sep 2002 13:13:46 -0000	2.53
+++ interchange.PL	2 Sep 2002 00:52:29 -0000	2.54
@@ -3,7 +3,7 @@
 #
 # Interchange version 4.9.3
 #
-# $Id: interchange.PL,v 2.53 2002/09/01 13:13:46 mheins Exp $
+# $Id: interchange.PL,v 2.54 2002/09/02 00:52:29 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. and others.
 # http://www.icdevgroup.org/
@@ -495,7 +495,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);