Changeset 14912 for gsdl/trunk/perllib/mgppbuildproc.pm

Timestamp:

2007-12-12T13:39:16+13:00 (16 years ago)

Author:

qq6

Message:

updated by Veronica

File:

• gsdl/trunk/perllib/mgppbuildproc.pm (modified) (3 diffs)

gsdl/trunk/perllib/mgppbuildproc.pm

@@ -199 +199 @@
     my ($documentendtag) = "\n</". $level_map{'document'} . ">\n";
     my ($sectiontag) = "\n<". $level_map{'section'} . ">\n";
+    my ($sectionendtag) = "\n</". $level_map{'section'} . ">\n";
+
     my ($paratag) = "";
     
@@ -229 +231 @@
         # but we want to keep the section numbers the same, so we just
         # output section tags for each section (which is done above)
+        $text .= "$sectionendtag";
         $section = $doc_obj->get_next_section($section);
         next;
@@ -329 +332 @@
     } # foreach field
     
+    $text .= "$sectionendtag";
     $section = $doc_obj->get_next_section($section);
     } # while defined section