read data from RDBMS using DBI

[webpac2] / bin / ovid-download-results.pl

diff --git a/bin/ovid-download-results.pl b/bin/ovid-download-results.pl
index b5b7f21..5d4b9aa 100755 (executable)
--- a/bin/ovid-download-results.pl
+++ b/bin/ovid-download-results.pl
@@ -52,12 +52,12 @@ $mech->submit_form(
        },
 );
 save_mech;
+       
+# $mech->form_id( 'nav-results' ); # XXX not supported by older WWW::Mechanize
+$mech->form_number(3);
 
 while (1) {
 
-       # $mech->form_id( 'nav-results' ); # XXX not supported by older WWW::Mechanize
-       $mech->form_number(3);
-
        my @records = $mech->find_all_inputs(
                type => 'radio',
                name => 'cmRecordSelect',