cleanup $results and $citations options

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

diff --git a/bin/isi-download-results.pl b/bin/isi-download-results.pl
index 6ce59b7..dfab364 100755 (executable)
--- a/bin/isi-download-results.pl
+++ b/bin/isi-download-results.pl
@@ -14,7 +14,8 @@ use Text::Unaccent;
 our $q = 'AD=Croatia';
 my $range_size = 500;
 my $overlap    = 3; # between previous and this range
-my $skip_results = 1;
+my $results = 0;
+my $citations = 0;
 my $cites_by_year = 0;
 
 my $max_cites = 5000; # ISI limit to get cites
@@ -213,19 +214,21 @@ sub years {
 
 search;
 years;
-get_results unless $skip_results;
+get_results 'results' if $results;
 
+if ( $citations ) {
 
-citations;
+       citations;
 
-do {
-       my $part;
-       if ( @ranges ) {
-               $part .= $ranges[0]->[0] . '.';
-               search;
-               citations;
-       }
-       $part .= 'citing';
-       get_results $part;
-} while ( @ranges );
+       do {
+               my $part;
+               if ( @ranges ) {
+                       $part .= $ranges[0]->[0] . '.';
+                       search;
+                       citations;
+               }
+               $part .= 'citing';
+               get_results $part;
+       } while ( @ranges );
 
+}