Help for this page

Select Code to Download


  1. or download this
    # -- connect to Voyager db
    my $dbh = DBI->connect( $voy_dsn,$voy_dbun,$voy_dbpass, { AutoCommit =
    +> 0, RaiseError => 0, PrintError => 1 } ) || die $DBI::errstr; 
    
    ...
        my @info = @row[$i .. $i+2];
        # write this day's info to drop down list
    }