Help for this page

Select Code to Download

Select or download this

    sub get_columns ($) {
       my $log = shift;
       ### Add this ###
       print "get_columns sub TOP: \$log = $log\n";
       my @Cols = ();

Select or download this

    my $sql = "SELECT * FROM $log";
    ### Add this print ###
    print "get_columns sub just before prepare: \$sql = $sql\n";    
    $sth = $dbobject->prepare($sql);