/[webpac2]/trunk/bin/isi-download-results.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/isi-download-results.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1333 by dpavlin, Sat May 22 20:05:33 2010 UTC revision 1334 by dpavlin, Fri Jun 4 17:43:29 2010 UTC
# Line 14  use Text::Unaccent; Line 14  use Text::Unaccent;
14  our $q = 'AD=Croatia';  our $q = 'AD=Croatia';
15  my $range_size = 500;  my $range_size = 500;
16  my $overlap    = 3; # between previous and this range  my $overlap    = 3; # between previous and this range
17  my $skip_results = 1;  my $results = 0;
18    my $citations = 0;
19  my $cites_by_year = 0;  my $cites_by_year = 0;
20    
21  my $max_cites = 5000; # ISI limit to get cites  my $max_cites = 5000; # ISI limit to get cites
# Line 213  sub years { Line 214  sub years {
214    
215  search;  search;
216  years;  years;
217  get_results unless $skip_results;  get_results 'results' if $results;
218    
219    if ( $citations ) {
220    
221  citations;          citations;
222    
223  do {          do {
224          my $part;                  my $part;
225          if ( @ranges ) {                  if ( @ranges ) {
226                  $part .= $ranges[0]->[0] . '.';                          $part .= $ranges[0]->[0] . '.';
227                  search;                          search;
228                  citations;                          citations;
229          }                  }
230          $part .= 'citing';                  $part .= 'citing';
231          get_results $part;                  get_results $part;
232  } while ( @ranges );          } while ( @ranges );
233    
234    }
Legend:
Removed from v.1333  
changed lines
  Added in v.1334
  ViewVC Help
Powered by ViewVC 1.1.26