fix warning

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

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',