--- burst.pl	2001/05/05 19:48:33	1.9
+++ burst.pl	2001/05/05 20:21:29	1.10
@@ -412,17 +412,18 @@
 	if ($nr % $toc_on_page == 0) {
 		my $toc_nr=int($nr/$toc_on_page);
 
-		%item = (
+		$item = {
 			pre_html => $pre_ul,
 			accesskey => " ",	# space
 			href => "index-toc$toc_nr.html",
 			title => "...",
 			post_html => $post_ul,
 			more => 1,	# use style for more pages link (...)
-		)
-#		push @toc_entries, %item;
+		};
+		push @toc_entries, $item;
 
 		&closeOverview;
+		undef @toc_entries;
 		&openOverview("$overview-toc$toc_nr");
 		$last_toc_title='';
 	}
@@ -450,14 +451,14 @@
 		};
 		push @toc_entries,$item;
 	} else {
-		%item = (
+		$item = {
 			pre_html => $pre_ul,
 			tabindex => "$nr",
 			href => "slide$nr.html",
 			title => $title,
 			post_html => $post_ul,
-		)
-#		push @toc_entries,\%item;
+		};
+		push @toc_entries,$item;
 	}
 }
 ##
@@ -627,8 +628,10 @@
 # clean the html of the slide
 # remove all <div class="comment">blabla</div>
 sub clean_html {
-    $_[0] =~ s/<div\s+class\s*=\s*(?:comment[\s>]|\"comment\").*?<\/div>//igs;
-    return $_[0];
+	my $tmp=$_[0];
+	$tmp =~ s/<div\s+class\s*=\s*(?:comment[\s>]|\"comment\").*?<\/div>//igs;
+	$tmp =~ s,</*font[^>]+>,,ig;
+	return $tmp;
 }
 
 ##############################################################################
@@ -672,7 +675,7 @@
 ##############################################################################
 # make slide progress bar
 sub remove_anchor {
-	my $foo = $_[0];
-	$foo=~s/(.*)<A[^>]*>(.*)<\/A>(.*)/$1$2$3/ig;
-	return $foo;
+	my $tmp = $_[0];
+	$tmp =~ s/(.*)<A[^>]*>(.*)<\/A>(.*)/$1$2$3/ig;
+	return $tmp;
 }