Changeset 14912


Ignore:
Timestamp:
12/12/07 13:39:16 (13 years ago)
Author:
qq6
Message:

updated by Veronica

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/mgppbuildproc.pm

    r13590 r14912  
    199199    my ($documentendtag) = "\n</". $level_map{'document'} . ">\n";
    200200    my ($sectiontag) = "\n<". $level_map{'section'} . ">\n";
     201    my ($sectionendtag) = "\n</". $level_map{'section'} . ">\n";
     202
    201203    my ($paratag) = "";
    202204   
     
    229231        # but we want to keep the section numbers the same, so we just
    230232        # output section tags for each section (which is done above)
     233        $text .= "$sectionendtag";
    231234        $section = $doc_obj->get_next_section($section);
    232235        next;
     
    329332    } # foreach field
    330333   
     334    $text .= "$sectionendtag";
    331335    $section = $doc_obj->get_next_section($section);
    332336    } # while defined section
Note: See TracChangeset for help on using the changeset viewer.