- fixed typo

c29f5e0c · Frank Bergmann · 090cd5f9 · c29f5e0c
Commit c29f5e0c authored Jan 25, 2013 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

new.tcl www/projects/new.tcl +2 -2

No files found.
--- a/www/projects/new.tcl
+++ b/www/projects/new.tcl
@@ -817,8 +817,8 @@ if {[form is_valid $form_id]} {
    # in order to reduce "ugly error messages"
    if {[info exists presales_probability] && $presales_probability >= 100.0} { ad_return_complaint 1 "<br><b>Presales Probability > 100, please choose a smaller number</b><br>&nbsp;" }
    if {[info exists presales_probability] && $presales_probability < 0} { ad_return_complaint 1 "<br><b>Presales Probability is negative, please choose a positive number</b><br>&nbsp;" }
-    if {[llength $project_nr] > 100} { ad_return_complaint 1 "<br><b>Project Nr too long </b><br>&nbsp;" }
-    if {[llength $project_path] > 100} { ad_return_complaint 1 "<br><b>Project Path too long </b><br>&nbsp;" }
+    if {[string length $project_nr] >= 100} { ad_return_complaint 1 "<br><b>Project Nr too long </b><br>&nbsp;" }
+    if {[string length $project_path] >= 100} { ad_return_complaint 1 "<br><b>Project Path too long </b><br>&nbsp;" }


    # -----------------------------------------------------------------