77 |
|
|
78 |
# these should be left default unless the ${table}Select.gfd uses some weird names... |
# these should be left default unless the ${table}Select.gfd uses some weird names... |
79 |
# for an example, see product.neb |
# for an example, see product.neb |
80 |
$id_field=> '' |
$id_field=> '_table' |
81 |
$id_entry=> '' |
$id_entry=> '' |
82 |
|
|
83 |
$name_entry=> '' |
$name_entry=> '' |
117 |
my @data= split /\./, $target_field; |
my @data= split /\./, $target_field; |
118 |
if (scalar @data==2) { |
if (scalar @data==2) { |
119 |
($target_table, $target_field)= @data; |
($target_table, $target_field)= @data; |
120 |
if (($target_table!~ /^_.*_data$/) and ($with_history)){ |
#if (($target_table!~ /^_.*_data$/) and ($with_history)){ |
121 |
$target_table= "_${target_table}_data"; |
# $target_table= "_${target_table}_data"; |
122 |
} else { |
#} else { |
123 |
$target_table= "${target_table}"; |
# $target_table= "${target_table}"; |
124 |
} |
#} |
125 |
} |
} |
126 |
|
|
127 |
default (\$object, $table); |
default (\$object, $table); |
132 |
$use_code= 1; |
$use_code= 1; |
133 |
} |
} |
134 |
|
|
135 |
if ($table!~ /^_.*_data$/) { |
#if ($table!~ /^_.*_data$/) { |
136 |
$table= "_${table}_data"; |
# $table= "_${table}_data"; |
137 |
} |
#} |
138 |
default (\$id_field, "_table"); |
|
139 |
|
#default (\$id_field, "_table"); |
140 |
|
#default (\$id_field, "id"); |
141 |
default (\$name_field, "name"); |
default (\$name_field, "name"); |
142 |
if ($use_code) { |
if ($use_code) { |
143 |
default (\$code_field, "code"); |
default (\$code_field, "code"); |