--- parse_log.cgi	2003/10/07 07:26:28	1.6
+++ parse_log.cgi	2003/10/07 14:39:58	1.7
@@ -153,7 +153,7 @@
 						'sg'=>"$group/$service",
 						'from'=>$fail{$id},
 						'to'=>$utime,
-						'dur'=>($utime-$fail{id}),
+						'dur'=>($utime-$fail{$id}),
 						'desc'=>$desc };
 				}
 				$sg_filter->{"$group/$service"}++;
@@ -175,7 +175,7 @@
 						'sg'=>"$group/$service",
 						'from'=>$fail{$id},
 						'to'=>$utime,
-						'dur'=>($utime-$fail{id}),
+						'dur'=>($utime-$fail{$id}),
 						'desc'=>'[failure again]'};
 					$fail{$id} = $utime;
 				}
@@ -210,20 +210,20 @@
 		),
 	),td(
 	em("Other options:"),br,
-	$q->checkbox(-name=>'rep_reset',-default=>0,
+	$q->checkbox(-name=>'rep_reset',-checked=>0,
 	-label=>"show repeated failures on same service as individual failures"),
 	br,
-	$q->checkbox(-name=>'print_orphans',-default=>0,
+	$q->checkbox(-name=>'print_orphans',-checked=>0,
 	-label=>"show records which are not complete in this interval"),
 	br,
-	$q->checkbox(-name=>'use_date_limit',-default=>1,
+	$q->checkbox(-name=>'use_date_limit',-checked=>1,
 	-label=>"use date limit from:"),
 	$q->textfield(-name=>'from_date',-size=>20,-default=>$from_date),
 	" to: ",
 	$q->textfield(-name=>'to_date',-size=>20,-default=>$to_date),
 	small('Using <a href="http://search.cpan.org/search?mode=module&query=Time::ParseDate">Time::ParseDate</a>'),
 	br,
-	$q->checkbox(-name=>'use_time_limit',-default=>1,
+	$q->checkbox(-name=>'use_time_limit',-checked=>1, -value=>'on',
 	-label=>"use time limit for each day:"),
 	$q->textfield(-name=>'from_time_interval',-size=>8,-default=>$from_time_interval),
 	" to: ",
@@ -241,7 +241,8 @@
 		]
 		),
 	$q->submit(-name=>'show',-value=>'Show report'),
-	)),end_table;
+	)),end_table,
+	end_form;
 
 # dump report
 #
@@ -348,6 +349,5 @@
 		td(small("in ".$sg_count->{$sg}." failures"))),"\n";
 }
 
-print end_table,
-	end_form;
+print end_table;