Changeset 14080

Timestamp:

2007-05-18T12:03:36+12:00 (17 years ago)

Author:

lh92

Message:

fix a bug in HTMLPlug for old style HDL

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -297 +297 @@
     
     print PROD "<!--\n";
-    while (($curtoclevel > $toclevel) ||
-       (!$firstsection && $curtoclevel == $toclevel)) {
+    while ($curtoclevel > 0) {
     $curtoclevel--;
     print PROD "</Section>\n";
     }
-    print PROD "</Section>\n";
     print PROD "-->\n";
     
@@ -309 +307 @@
     return $tmp_filename;
 }       
+
+sub shorten {
+    my $self = shift (@_);
+    my ($text) = @_;
+
+    return "\"$text\"" if (length($text) < 100);
+
+    return "\"" . substr ($text, 0, 50) . "\" ... \"" . 
+    substr ($text, length($text)-50) . "\"";
+}
 
 sub convert_tidy_or_oldHDL_file