--- esi/dump.pl	2001/03/15 07:51:21	1.1.1.1
+++ esi/dump.pl	2001/03/17 17:28:57	1.2
@@ -3,10 +3,12 @@
 use DBI;
 
 my $connect = "DBI:Pg:dbname=corp";
-my $sql="select lse.date,lse.current as lse,ftse.current as ftse
-	from stocks as lse,stocks as ftse where lse.date=ftse.date
-		and lse.type='LSE' and ftse.type='FTSE'
-	order by date";
+my $sql="select date(s1.date),avg(s1.current) as zse,avg(s2.current) as ftse
+	from stocks as s1,stocks as s2 where time(s1.date) != '23:23:23' and
+		 time(s2.date) != '23:23:23' and s1.date=s2.date and
+		 s1.type='LSE' and s2.type='FTSE'
+	group by date(s1.date),date(s2.date)
+	";
 
 my $dbh = DBI->connect("$connect","","") || die $DBI::errstr;