|
|
|
Your time zone has not been set. We invite you to customize our pages to your own time zone. In the meantime, all times default to Eastern Time. 2003/04 Block Feeds
<% my $dbh; $| = 1; # No output buffering. $ENV{PATH}=''; use strict; use PerlEx::DBI; use KET::PerlEx; use KET::Schedule; use CGI; my $cgi = new CGI; my $dbh = DBI->connect( "DBI:ODBC:tvschedule", undef, undef, {LongReadLen=>2000, LongTruncOk=>0}); # ReOpenDatabase allows for persistent connections. if (!$dbh) { print "Could not open database.\n"; exit 1; # Will trigger PerlEx to reload channel. } my $nola = $cgi->param('nola') ; my $nola_root = $cgi->param('nola_root') ; #print "nola is [$nola] \n"; #print "nola_root is [$nola_root] \n"; if (!$nola && !$nola_root) { print " No nola code specified in $ENV{SCRIPT_NAME} \n"; exit; } my $header = $cgi->param('header'); my $where_nola = nola2where($nola, $nola_root); #print "WHERE $where_nola WHERE $where_nola \n$statement\n"; if (length($where_nola) < 3) { #print "where_nola too short: [$where_nola] ... bypassing select \n"; $statement = "select 'nullop' where 0 = 1"; } #print " $statement"; my $sth = $dbh->prepare($statement) or warn "Can't prepare sth: $statement"; $sth->execute() or warn "Can't execute sth: \n$statement\n";; %> <% my ($row, $OUT, $some_title, $various_titles); while ($row = $sth->fetchrow_hashref()) { my $pretty_seconds = pretty_seconds($row->{seconds_exact}); $pretty_seconds = "$pretty_seconds." if $pretty_seconds; $OUT .= < \n"; $OUT =~ s[] []g; } else { #print "Omitting monotonous title \n"; $OUT =~ s[.*?] []g; } if ($OUT) { print "$header \n
|
|
Kentucky Academic Expectations This program relates to the following Kentucky Academic Expectations.
|
Kentucky Archaeology |
Entrepreneurs in Kentucky |