#======================================================================
package CT;
+
use Data::Dumper;
+
+use SL::CVar;
use SL::DBUtils;
sub get_tuple {
# add shipto
$form->add_shipto( $dbh, $form->{id}, "CT" );
+ CVar->save_custom_variables('dbh' => $dbh,
+ 'module' => 'CT',
+ 'trans_id' => $form->{id},
+ 'variables' => $form);
+
$rc = $dbh->commit();
$dbh->disconnect();
# add shipto
$form->add_shipto( $dbh, $form->{id}, "CT" );
+ CVar->save_custom_variables('dbh' => $dbh,
+ 'module' => 'CT',
+ 'trans_id' => $form->{id},
+ 'variables' => $form);
+
$rc = $dbh->commit();
$dbh->disconnect();
push(@values, conv_i($form->{business_id}));
}
+ my ($cvar_where, @cvar_values) = CVar->build_filter_query('module' => 'CT',
+ 'trans_id_field' => 'ct.id',
+ 'filter' => $form);
+
+ if ($cvar_where) {
+ $where .= qq| AND ($cvar_where)|;
+ push @values, @cvar_values;
+ }
+
my $query =
qq|SELECT ct.*, b.description AS business | .
qq|FROM $cv ct | .