From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 4 Jun 2010 17:43:29 +0000 (+0000)
Subject: cleanup $results and $citations options
X-Git-Url: http://git.rot13.org/?p=webpac2;a=commitdiff_plain;h=55bb3ece8bd54ba90e9003c6cbe0431baf3ac668

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
--- 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 );
 
+}