--- trunk2/all2all.pl	2004/06/16 15:48:42	361
+++ trunk2/all2all.pl	2004/06/16 16:50:30	362
@@ -34,11 +34,7 @@
 
 print "rows: $maxmfn\n\n";
 
-my $rec = $webpac->{'data'}->{1};
-
-
-for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
-	my $rec = $webpac->{'data'}->{$mfn} || die "no record with mfn $mfn";
+while (my $rec = $webpac->fetch_rec) {
 
 	print "-- ",$webpac->parse($rec,'v250^a / [v562^4] v562^a'),"\n";