Index: openacs-4/packages/ams/tcl/address-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/address-widget-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/ams/tcl/address-widget-procs.tcl	4 Dec 2005 17:52:12 -0000	1.12
+++ openacs-4/packages/ams/tcl/address-widget-procs.tcl	30 Jan 2006 22:44:59 -0000	1.13
@@ -174,7 +174,11 @@
     if {[::string length $delivery_address] > [parameter::get_from_package_key -parameter "DefaultStreetSize" -package_key "ams" -default "100"] } {
 	lappend message "[_ ams.Your_delivery_address_is_too_long]"
     }
+    if { [::llength [::split $delivery_address "\n"]] > [parameter::get_from_package_key -parameter "DefaultStreetLines" -package_key "ams" -default "3"] } {
+	lappend message "[_ ams.Your_delivery_address_is_too_many_lines]"
+    }
 
+
     # Country Specific Validation
     switch $country_code {
         CA {
@@ -219,7 +223,7 @@
         }
     }
     set message [join $message " "]
-    ns_log notice "MESSAGE: $message"
+    # ns_log notice "MESSAGE: $message"
     if { [exists_and_not_null message] } {
         return 0
     } else {