Changeset 14912

Show
Ignore:
Timestamp:
12.12.2007 13:39:16 (12 years ago)
Author:
qq6
Message:

updated by Veronica

Files:
1 modified

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