From 18fc8cbec2f164b341c4854931175dada31c98f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michal=20=C4=8Ciha=C5=99?= <michal@cihar.com>
Date: Mon, 3 Feb 2003 21:02:11 +0000
Subject: [PATCH] Fix bug #679699

---
 ChangeLog     | 5 ++++-
 tbl_dump.php3 | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bbd0424e5..e555789b2 100755
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,8 +6,11 @@ $Id$
 $Source$
 
 2003-02-03 Michal Cihar  <nijel@users.sourceforge.net>
-    * libraries/display_tbl.lib.php3, tbl_change.php3: Show blob size (RFE #678729).
+    * libraries/display_tbl.lib.php3, tbl_change.php3: Show blob size (RFE
+      #678729).
     * tbl_replace_fields.php3, tbl_change.php3: Allow binary uploads.
+    * tbl_dump.php3: Fix bug #679699 (export to XML, save to file - Undefined
+      variable: charset_of_file).
     
 2003-02-03 Garvin Hicking <me@supergarv.de>
     * pdf_schema.php3, libraries/dbg/profiling.php3, 
diff --git a/tbl_dump.php3 b/tbl_dump.php3
index cb8a778f8..fea4069ee 100755
--- a/tbl_dump.php3
+++ b/tbl_dump.php3
@@ -245,7 +245,7 @@ else {
     // 'xml' case
     else if ($GLOBALS['what'] == 'xml') {
         // first add the xml tag
-        $dump_buffer         .= '<?xml version="1.0" encoding="' . (empty($asfile) ? $charset : $charset_of_file) . '"?>' . $crlf . $crlf;
+        $dump_buffer         .= '<?xml version="1.0" encoding="' . (empty($asfile) ? $charset : (isset($charset_of_file) ? $charset_of_file : $charset)) . '"?>' . $crlf . $crlf;
         // some comments
         $dump_buffer         .= '<!--' . $crlf
                              .  '-' . $crlf