--- burst.pl	2001/05/05 19:43:52	1.8
+++ burst.pl	2001/05/05 20:21:29	1.10
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# SLies Copyright 2001 Dobrica Pavlinusic <dpavlin@rot13.org>
+# PLies Copyright 2001 Dobrica Pavlinusic <dpavlin@rot13.org>
 #
 # this tool is based on SlideMaker and XLSies tool
 # split a all.htm into slide*.htm
@@ -240,7 +240,7 @@
 
 ## step 1: record anchors
 for($i=0; $i<$total; $i++) {
-	my $tmp = $table[($i*2)];
+	my $tmp = $table[($i*2)].$table[($i*2)+1];
 	while ($tmp =~ s,<a +name="*([^>"]+)"*>,,i) {
 		$anchor_on_slide{$1}=($i+1);
 		print "\tslide ",($i+1)," anchor: $1\n" if ($debug);
@@ -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;
 }