unaccent search query

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

diff --git a/bin/isi-download-results.pl b/bin/isi-download-results.pl
index 9f7c971..4d497f3 100755 (executable)
--- a/bin/isi-download-results.pl
+++ b/bin/isi-download-results.pl
@@ -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 @@ if ( 0 ) {
        $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,