Changeset 14080


Ignore:
Timestamp:
05/18/07 12:03:36 (14 years ago)
Author:
lh92
Message:

fix a bug in HTMLPlug for old style HDL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/HTMLPlug.pm

    r14018 r14080  
    297297   
    298298    print PROD "<!--\n";
    299     while (($curtoclevel > $toclevel) ||
    300        (!$firstsection && $curtoclevel == $toclevel)) {
     299    while ($curtoclevel > 0) {
    301300    $curtoclevel--;
    302301    print PROD "</Section>\n";
    303302    }
    304     print PROD "</Section>\n";
    305303    print PROD "-->\n";
    306304   
     
    309307    return $tmp_filename;
    310308}       
     309
     310sub shorten {
     311    my $self = shift (@_);
     312    my ($text) = @_;
     313
     314    return "\"$text\"" if (length($text) < 100);
     315
     316    return "\"" . substr ($text, 0, 50) . "\" ... \"" .
     317    substr ($text, length($text)-50) . "\"";
     318}
    311319
    312320sub convert_tidy_or_oldHDL_file
Note: See TracChangeset for help on using the changeset viewer.