Format of alter_col

$editor->alter_col($column_name,
{
size => 20,
type => 'int'
});

'form_names' => [
'Affiliate 1',
'Affiliate 2'
],
'form_values' => [
'Affiliate 1',
'Affiliate 2'
],

my $editor = $DB->editor('Links');
$editor->alter_col('PartOfAffiliate', {
form_name => 'tyest'
# form_names => $vals,
# form_values => $vals
}) || die $GT::SQL::error;

my $editor = $DB->editor('Links');
$editor->alter_col('PartOfAffiliate', {
type => 'CHAR',
size => '255',
form_names => 'test
test2
test3',
form_values => 'test
test2
test3'
}) || die $GT::SQL::error;

my $tbl = $DB->table('AffiliatePrograms');
$tbl->select_options('ORDER BY Name ASC');

my $sth = $tbl->select( ) || die $GT::SQL::error;

my @loop;
while (my $hit = $sth->fetchrow_hashref) {
push @loop, $hit->{Name};
}

print qq|<h2>Updated PartOfAffilite field, with the following entries:</h2>| . join('<br />',@loop);

my $editor = $DB->editor('Links');
$editor->alter_col('PartOfAffiliate', {
type => 'CHAR',
size => '255',
form_names => join("\r\n",@loop),
form_values => join("\r\n",@loop),
form_type => 'SELECT',
form_size => 1,
form_display=> 'Part of Affiliate Program'
}) || die $GT::SQL::error;

'PartOfAffiliate' => {
'form_display' => 'Part of Affiliate Program',
'form_names' => 'another test
Program 1
test',
'form_size' => '1',
'form_type' => 'SELECT',
'form_values' => 'another test
Program 1
test',
'pos' => '68',
'size' => '255',
'type' => 'CHAR'
},

my $tbl = $DB->table('AffiliatePrograms');
$tbl->select_options('ORDER BY Name ASC');

my $loop = $tbl->select( ['Name'] )->fetchrow_arrayref;

use Data::Dumper;
print Dumper($loop);

$VAR1 = [ 'another test' ];

my $tbl = $DB->table('AffiliatePrograms');
$tbl->select_options('ORDER BY Name ASC');

my @results = $tbl->select('Name')->fetchall_list;
use Data::Dumper;
print Dumper(@results);


print qq|<h2>Updated PartOfAffilite field, with the following entries:</h2>| . join('<br />');

my $editor = $DB->editor('Links');
$editor->alter_col('PartOfAffiliate', {
type => 'CHAR',
size => '255',
form_names => @results,
form_values => @results,
form_type => 'SELECT',
form_size => 1,
form_display=> 'Part of Affiliate Program'
}) || die $GT::SQL::error;

$VAR1 = 'another test'; $VAR2 = 'Program 1'; $VAR3 = 'test';

sub UpdateLinksTable {

print $IN->header;

print $css;

my $tbl = $DB->table('AffiliatePrograms');
$tbl->select_options('ORDER BY Name ASC');

my $results = $tbl->select( ['Name'] )->fetchall_arrayref;
use Data::Dumper;
print Dumper($results);

# print qq|<h2>Updated PartOfAffilite field, with the following entries:</h2>| . join('<br />');

my $editor = $DB->editor('Links');
$editor->alter_col('PartOfAffiliate', {
type => 'CHAR',
size => '255',
form_names => $results,
form_values => $results,
form_type => 'SELECT',
form_size => 1,
form_display=> 'Part of Affiliate Program'
}) || die $GT::SQL::error;

print qq|<br /><br />DONE|;

}