Index: openacs-4/packages/lars-blogger/www/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	28 Jan 2004 16:13:14 -0000	1.16
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	28 Jan 2004 17:03:06 -0000	1.17
@@ -26,6 +26,8 @@
     set page_title "Edit Blog Entry"
 }
 
+set valid_url_example "http://www.example.com/foo"
+
 # If we're in DisplayUserP mode, the user must have a screen name setup
 if { [parameter::get -parameter "DisplayUsersP" -default 0] } {
     acs_user::get -user_id [ad_conn user_id] -array user_info
@@ -53,7 +55,10 @@
             {html {size 50}}}
         {title_url:text,optional
             {label "Title URL"}
-            {html {size 50}}}
+            {help_text "If this entry is a rant on a web page you can \
+                put the full URL here, e.g. $valid_url_example"}
+            {html {size 50}}
+        }
     } \
     -export {return_url}
 
@@ -153,6 +158,16 @@
     -after_submit {
         ad_returnredirect $return_url
         ad_script_abort
-    }
+    } \
+    -validate {{
+        title_url
+        {[
+            expr {[empty_string_p $title_url] || \
+                [util_url_valid_p $title_url]
+            }
+        ]}
+        "Your input \"$title_url\" doesn't look like a valid URL. \
+            Example of a valid URL: $valid_url_example"
+    }}
 
 set context [list $page_title]