[interchange-cvs] interchange - heins modified code/UI_Tag/write_relative_file.coretag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Tue Jun 8 00:11:36 EDT 2004


User:      heins
Date:      2004-06-08 04:11:36 GMT
Modified:  code/UI_Tag write_relative_file.coretag
Log:
* Ensure compatibility with the many write_relative_file() calls in
  custom UserTag and UI applications.

Revision  Changes    Path
1.6       +4 -0      interchange/code/UI_Tag/write_relative_file.coretag


rev 1.6, prev_rev 1.5
Index: write_relative_file.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/write_relative_file.coretag,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- write_relative_file.coretag	8 Jun 2004 03:01:54 -0000	1.5
+++ write_relative_file.coretag	8 Jun 2004 04:11:35 -0000	1.6
@@ -19,6 +19,10 @@
 sub {
 	my ($file, $opt, $data) = @_;
 #::logDebug("writing $file");
+	unless(defined $data) {
+		$data = $opt;
+		$opt = {};
+	}
 	return undef unless Vend::File::allowed_file($file, 1);
 	$opt->{auto_create_dir} = 1 unless defined $opt->{auto_create_dir};
 	Vend::File::writefile(">$file", $data, $opt);








More information about the interchange-cvs mailing list