--- trunk/bin/isi-download-results.pl 2010/04/18 10:56:01 1331 +++ trunk/bin/isi-download-results.pl 2010/04/18 11:04:49 1332 @@ -3,14 +3,19 @@ use warnings; use strict; +use WWW::Mechanize; +use Data::Dump qw(dump); +use File::Path; +use Text::Unaccent; + # Advanced search syntax: # http://images.isiknowledge.com/WOK46/help/WOS/h_advanced_examples.html 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 $skip_results = 0; +my $cites_by_year = 0; my $max_cites = 5000; # ISI limit to get cites @@ -21,11 +26,7 @@ $max_cites = 50; } -$q = join(' ', @ARGV) if @ARGV; - -use WWW::Mechanize; -use Data::Dump qw(dump); -use File::Path; +$q = unac_string( 'utf-8', join(' ', @ARGV) ) if @ARGV; our $mech = WWW::Mechanize->new( autocheck => 1,