git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1369
07558da8-63fa-0310-ba24-
9fe276d99e06
# http://images.isiknowledge.com/WOK46/help/WOS/h_advanced_examples.html
our $q = 'AD=Croatia';
# http://images.isiknowledge.com/WOK46/help/WOS/h_advanced_examples.html
our $q = 'AD=Croatia';
+$q = 'AU=BRATKO, D';
+#$q = 'AD=(croat* OR hrvat*)';
my $overlap = 3; # between previous and this range
my $overlap = 3; # between previous and this range
my $citations = 0;
my $cited_reference = 0; # html tables
my $citations = 0;
my $cited_reference = 0; # html tables
-my $citing_articles = 1; # as many files as cited articles
+my $citing_articles = 0; # as many files as cited articles
-$mech->get( 'http://isiknowledge.com/?DestApp=WOS' );
+$mech->get( 'http://www.webofknowledge.com/?DestApp=WOS' );
my $to = $from + $range_size;
warn "# submit_form results $from - $to\n";
my $to = $from + $range_size;
warn "# submit_form results $from - $to\n";
- form_name => 'summary_output_form',
+ form_name => 'output_form',
- record_select_type => 'range',
+ 'value(record_select_type)' => 'range',
+ markFrom => $from,
+ markTo => $to,
+
mark_from => $from,
mark_to => $to,
mark_id => 'WOS',
mark_from => $from,
mark_to => $to,
mark_id => 'WOS',
- qo_fields => 'fullrecord',
- citedref => 'citedref',
+ fields_selection => 'ACCESSION_NUM FUNDING SUBJECT_CATEGORY JCR_CATEGORY LANG IDS PAGEC SABBR CITREFC ISSN PUBINFO KEYWORDS CITTIMES ADDRS CONFERENCE_SPONSORS DOCTYPE ABSTRACT CONFERENCE_INFO SOURCE TITLE AUTHORS',
+ filters => 'ACCESSION_NUM FUNDING SUBJECT_CATEGORY JCR_CATEGORY LANG IDS PAGEC SABBR CITREFC ISSN PUBINFO KEYWORDS CITTIMES ADDRS CONFERENCE_SPONSORS DOCTYPE ABSTRACT CONFERENCE_INFO SOURCE TITLE AUTHORS CITREF',
+ fullrec_fields_option => 'CITREF',
- save_options => 'plain_text',
+ save_options => 'fieldtagged',
+ format => 'saveToFile',
- fields => 'Full',
- format => 'save',
+ button => 'saveToFile',
$path .= '.' . $desc if $desc;
warn "save $from - $to into $path\n";
$path .= '.' . $desc if $desc;
warn "save $from - $to into $path\n";
- $mech->follow_link( url_regex => qr/save_file/ );
+ $mech->submit_form(
+ form_name => 'etsForm',
+ );
save_mech $path;
$from += $range_size - $overlap;
$mech->back;
$mech->back;
save_mech $path;
$from += $range_size - $overlap;
$mech->back;
$mech->back;