Changeset 14912
- Timestamp:
- 2007-12-12T13:39:16+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/mgppbuildproc.pm
r13590 r14912 199 199 my ($documentendtag) = "\n</". $level_map{'document'} . ">\n"; 200 200 my ($sectiontag) = "\n<". $level_map{'section'} . ">\n"; 201 my ($sectionendtag) = "\n</". $level_map{'section'} . ">\n"; 202 201 203 my ($paratag) = ""; 202 204 … … 229 231 # but we want to keep the section numbers the same, so we just 230 232 # output section tags for each section (which is done above) 233 $text .= "$sectionendtag"; 231 234 $section = $doc_obj->get_next_section($section); 232 235 next; … … 329 332 } # foreach field 330 333 334 $text .= "$sectionendtag"; 331 335 $section = $doc_obj->get_next_section($section); 332 336 } # while defined section
Note:
See TracChangeset
for help on using the changeset viewer.