$cites_by_year as default for faster searching

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1300 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/bin/isi-download-results.pl b/bin/isi-download-results.pl
index b599264..3a385e8 100755 (executable)
--- a/bin/isi-download-results.pl
+++ b/bin/isi-download-results.pl
@@ -10,6 +10,7 @@ our $q = 'AD=Croatia';
 my $range_size = 500;
 my $overlap    = 3; # between previous and this range
 my $skip_results = 1;
+my $cites_by_year = 1;
 
 my $max_cites = 5000; # ISI limit to get cites
 
@@ -170,10 +171,17 @@ sub years {
 
        my @y = sort keys %$years;
 
+       @ranges = ();
+
+       if ( $cites_by_year ) {
+               push @ranges, [ $_ ] foreach @y;
+               warn "# cites_by_year ranges ", dump @ranges;
+               return;
+       }
+
        my $y = shift @y;
        my $size = $years->{$y};
 
-       @ranges = ();
        my $cites_range;
        $cites_range = [$y] if $y;