diff options
Diffstat (limited to 'lib/sisu/v0/sst_to_s_xml_node.rb')
| -rw-r--r-- | lib/sisu/v0/sst_to_s_xml_node.rb | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lib/sisu/v0/sst_to_s_xml_node.rb b/lib/sisu/v0/sst_to_s_xml_node.rb index 5c341956..09e9f740 100644 --- a/lib/sisu/v0/sst_to_s_xml_node.rb +++ b/lib/sisu/v0/sst_to_s_xml_node.rb @@ -458,27 +458,33 @@ WOK case @sto.format when /^(1):(\S*)/ xml_clean(para) - xml_structure(o,para,$1,$2) + t_o={:txt =>para,:ocn =>o.ocn,:format =>$1,:segname =>$2} # o,para,$1,$2 + xml_structure(@md,t_o) para=@sto.lev_para_ocn.heading_body1 when /^(2):(\S*)/ xml_clean(para) - xml_structure(o,para,$1,$2) + t_o={:txt =>para,:ocn =>o.ocn,:format =>$1,:segname =>$2} + xml_structure(@md,t_o) para=@sto.lev_para_ocn.heading_body2 when /^(3):(\S*)/ xml_clean(para) - xml_structure(o,para,$1,$2) + t_o={:txt =>para,:ocn =>o.ocn,:format =>$1,:segname =>$2} + xml_structure(@md,t_o) para=@sto.lev_para_ocn.heading_body3 when /^(4):(\S*)/ # work on see Split_text_object xml_clean(para) - xml_structure(o,para,$1,$2) + t_o={:txt =>para,:ocn =>o.ocn,:format =>$1,:segname =>$2} + xml_structure(@md,t_o) para=@sto.lev_para_ocn.heading_body4 when /^(5):(\S*)/ xml_clean(para) - xml_structure(o,para,$1,$2) + t_o={:txt =>para,:ocn =>o.ocn,:format =>$1,:segname =>$2} + xml_structure(@md,t_o) para=@sto.lev_para_ocn.heading_body5 when /^(6):(\S*)/ xml_clean(para) - xml_structure(o,para,$1,$2) + t_o={:txt =>para,:ocn =>o.ocn,:format =>$1,:segname =>$2} + xml_structure(@md,t_o) para=@sto.lev_para_ocn.heading_body6 else if para =~ /<:verse>/ |