Don't put password policy in password-changing code; OCW doesn't need

this.

diff --git a/v7/src/xdoc/db.scm b/v7/src/xdoc/db.scm
index 61665dbcd3dae132d292ef32b82120eb6eeccb9f..95225feb963a9118b754e54ebeb8aad9220ed3ba 100644 (file)
--- a/v7/src/xdoc/db.scm
+++ b/v7/src/xdoc/db.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: db.scm,v 1.1 2004/11/01 19:21:05 cph Exp $
+$Id: db.scm,v 1.2 2004/11/19 14:52:24 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -675,8 +675,6 @@ USA.
              " WHERE user_name = " (db-quote user-name)))
 \f
 (define (encrypt-password password)
-  (if (not (db-valid-password? password))
-      (error "Invalid password syntax:" password))
   (let ((pw-line
         (call-with-output-string
           (lambda (port)