6. Click this button to populate:
|
[button text="Populate"]
[flag type=write table="area"]
[flag type=write table="cat"]
[seti ui_failure]
[perl tables="area cat [cgi area_table]"]
my $go_page = $CGI->{mv_nextpage};
$CGI->{mv_nextpage} = '@@MV_PAGE@@';
my $ptab = $CGI->{area_table}
or return "no area source table";
my $pdb = $Db{$ptab}
or return "area source table bad";
my $adb = $Db{area}
or return "no area table";
my $cdb = $Db{cat}
or return "no cat table";
my $acol = $CGI->{area_column};
my $ccol = $CGI->{cat_column};
if(! $acol and ! $ccol ) {
return "no column to populate either";
}
my $selector = '';
my $selcode = '';
my %area_defaults = (
name => undef,
which_page => $CGI->{which_page} || 'all',
sort => '05',
sel => $CGI->{sel} || 'left',
display_type => 'name',
);
my %catmap;
my %cat_defaults = (
link_type => 'simple',
sort => '05',
display_type => 'name'
);
if($CGI->{nuke}) {
$adb->query('delete from area');
$cdb->query('delete from cat');
}
if($acol) {
$adb->config('AUTO_NUMBER', '1000') if ! $adb->config('_Auto_number');
return "area column $acol doesn't exist"
unless $pdb->column_exists($acol);
my $ary = $pdb->query("select distinct $acol from $ptab order by $acol")
or return "area column query failed";
for(@$ary) {
my ($area) = (@$_);
my $key = $adb->set_row('');
return "no autonumbering available" if ! $key;
$catmap{$area} = $key;
for(keys %area_defaults) {
$adb->set_field($key, $_, $area_defaults{$_} || $area);
}
}
}
my %catdone;
if($ccol) {
$cdb->config('AUTO_NUMBER', '1000') if ! $cdb->config('_Auto_number');
return "cat column $ccol doesn't exist"
unless $pdb->column_exists($ccol);
my $ary = $pdb->query("select $acol, $ccol from $ptab order by $ccol")
or return "cat column query failed";
for(@$ary) {
my ($area, $cat) = (@$_);
next if $catdone{$cat}++;
my $key = $cdb->set_row('');
return "no cat autonumbering available" if ! $key;
$cat_defaults{name} = $cat;
$cat_defaults{sel} = $catmap{$area};
$cat_defaults{selector} = "$ccol=$cat";
for(keys %cat_defaults) {
Log("setting col=$_ key=$key = $cat_defaults{$_}");
$cdb->set_field($key, $_, $cat_defaults{$_});
}
}
}
$CGI->{mv_nextpage} = $go_page;
my $out = $Tag->uneval( { ref => \%catmap } );
$out =~ s/,/,\n/g;
#return '' . $Tag->uneval( { ref => \%catmap } ) . "
|