richtiges Quoten des User-Passworts, wichtig bei MD5 Passwoertern

diff --git a/SL/CT.pm b/SL/CT.pm
index 1db023b..a7b0a2f 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -318,7 +318,7 @@ sub save_customer {
               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}|;