Fix bug #20427.

* por-file-writer.c (write_variables): Write weight variable.
Reviewed by John Darrington.

diff --git a/src/data/ChangeLog b/src/data/ChangeLog
index 0da0c80e94a20480fddd8b018a3b62053fd6393f..cb0116e8239d3a0577c4f48bbdb01df3b85b5b96 100644 (file)
--- a/src/data/ChangeLog
+++ b/src/data/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-24  Ben Pfaff  <blp@gnu.org>
+
+       Fix bug #20427.
+       * por-file-writer.c (write_variables): Write weight variable.
+       Reviewed by John Darrington.
+
 2007-07-23  Ben Pfaff  <blp@gnu.org>
 
        Improvements to system file reader and writer.
@@ -129,6 +135,8 @@
        (write_zeros): New function.
        (write_spaces): New function.
 
+       Reviewed by John Darrington.
+
 2007-07-22  Ben Pfaff  <blp@gnu.org>
 
        Don't try to write very long strings to portable files.  The
@@ -140,11 +148,13 @@
        (write_value): Limit width of value written to MAX_POR_WIDTH.
        (write_variables): Limit width of variable and its output formats
        to MAX_POR_WIDTH.
+       Reviewed by John Darrington.
 
 2007-07-22  Ben Pfaff  <blp@gnu.org>
 
        * sys-file-reader.c (read_variable_to_value_map): Use max_warnings
        local variable instead of literal 5.
+       Reviewed by John Darrington.
        
 2007-07-22  Ben Pfaff  <blp@gnu.org>
 
@@ -189,6 +199,8 @@
        (var_clear_short_name): Renamed var_clear_short_names, changed to
        clear all short names.
        
+       Reviewed by John Darrington.
+
 2007-07-22  Ben Pfaff  <blp@gnu.org>
 
        * variable.c (var_set_width): Use new var_set_width function.
@@ -199,6 +211,8 @@
        * format.c (fmt_default_for_width): New function.
        (fmt_resize): New function.
 
+       Reviewed by John Darrington.
+
 2007-07-18 John Darrington <john@darrington.wattle.id.au>
 
        * datasheet.c (datasheet_delete_columns): Added assertion to check

diff --git a/src/data/por-file-writer.c b/src/data/por-file-writer.c
index be8aba96dc873a7dc079de3539a1669746e167c2..0bb1df60251929d656d8c8241cfca336971abad6 100644 (file)
--- a/src/data/por-file-writer.c
+++ b/src/data/por-file-writer.c
@@ -322,6 +322,12 @@ write_variables (struct pfm_writer *w, struct dictionary *dict)
 
   short_names_assign (dict);
 
+  if (dict_get_weight (dict) != NULL) 
+    {
+      buf_write (w, "6", 1);
+      write_string (w, var_get_short_name (dict_get_weight (dict), 0));
+    }
+  
   buf_write (w, "4", 1);
   write_int (w, dict_get_var_cnt (dict));
   write_int (w, 161);