--- trunk/bin/isi-download-results.pl	2009/09/19 20:35:43	1292
+++ trunk/bin/isi-download-results.pl	2009/09/19 22:54:45	1294
@@ -8,12 +8,16 @@
 
 our $q = 'AD=Croatia';
 my $range_size = 500;
-my $overlap    = 10; # between previous and this range
-
-$q = 'TS=psychology AND AD=Croatia' if @ARGV; # FIXME debug
+my $overlap    = 3; # between previous and this range
 
 my $max_cites = 5000; # ISI limit to get cites
-our @ranges;
+
+if ( 0 ) {
+	$q = 'TS=psychology AND AD=Croatia';
+	$range_size = 50;
+	$overlap    = 0;
+	$max_cites  = 50;
+}
 
 use WWW::Mechanize;
 use Data::Dump qw(dump);
@@ -25,6 +29,7 @@
 );
 
 our $step = 0;
+our @ranges;
 
 my $dir = '/tmp/isi/';
 rmtree $dir if -e $dir;
@@ -206,6 +211,7 @@
 	if ( @ranges ) {
 		$part .= $ranges[0]->[0] . '.';
 		search;
+		citations;
 	}
 	$part .= 'citing';
 	get_results $part;