Mercurial > forge

changeset 12335:7a37b54c1333 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix writing repeated empty cells
author prnienhuis
date Thu, 23 Jan 2014 16:55:51 +0000
parents 695edbc8f785
children e3003bb6cead
files main/io/inst/private/__OCT_oct2ods__.m
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/main/io/inst/private/__OCT_oct2ods__.m	Thu Jan 23 16:54:34 2014 +0000
+++ b/main/io/inst/private/__OCT_oct2ods__.m	Thu Jan 23 16:55:51 2014 +0000
@@ -23,7 +23,7 @@
 ## Author: Philip Nienhuis <prnienhuis at users.sf.net>
 ## Created: 2014-01-18
 ## Updates:
-##
+## 2014-01-23 Fix writing repeated empty cells
 
 function [ ods, status ] = __OCT_oct2ods__ (obj, ods, wsh, crange, spsh_opts=0)
 
@@ -149,7 +149,7 @@
   endif
 
   ## Write data to sheet (actually table:table section in content.xml)
-  status  = __OCT__oct2ods_sh__ (fid, rawarr, wsh, lims, onc, onr, ods.sheets.sh_names{wsh})
+  status  = __OCT__oct2ods_sh__ (fid, rawarr, wsh, lims, onc, onr, ods.sheets.sh_names{wsh});
 
   ## E. Merge new/updated sheet into content.xml
   ## Read first chunk of content.xml until sht_idx<xx>
@@ -256,8 +256,8 @@
             ++tncr;
           endwhile
           if (tncr > 1)
-            tncr = sprintf (' table:number-columns-repeated="%d"', tncr);
-            fprintf (fid, '<table:table-cell%s />', tncr);
+%            tncr = sprintf (' table:number-columns-repeated="%d"', tncr);
+            fprintf (fid, '<table:table-cell table:number-columns-repeated="%d" />', tncr);
             jj += tncr - 1;
           else
             fprintf (fid, '<table:table-cell />');