$form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
if ($form->{"selected_cp_${_}"});
} qw(title greeting));
-#
+
+ #
# escape '
map { $form->{$_} =~ s/\'/\'\'/g }
qw(customernumber name street zipcode city country homepage contact notes cp_title cp_greeting language pricegroup);
ustid = '$form->{ustid}',
username = '$form->{username}',
salesman_id = '$form->{salesman_id}',
- user_password = '$form->{user_password}',
+ user_password = | . $dbh->quote($form->{user_password}) . qq|,
c_vendor_id = '$form->{c_vendor_id}',
klass = '$form->{klass}'
WHERE id = $form->{id}|;
# add shipto
$form->add_shipto($dbh, $form->{id});
- $dbh->disconnect;
+ $rc = $dbh->disconnect;
$main::lxdebug->leave_sub();
+ return $rc;
}
sub save_vendor {
# add shipto
$form->add_shipto($dbh, $form->{id});
- $dbh->disconnect;
+ $rc = $dbh->disconnect;
$main::lxdebug->leave_sub();
+ return $rc;
}
sub delete {