Select Code to Download

my @quarters = qw/none first second third fourth/;

...
                        ." database search failed: $DBI::errstr" );
}

sub termgrades {
    my ($period, $quarter) = @_;
...
                        ." database search failed: $DBI::errstr" );
    return $sth; # perhaps ... see text
}