You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by ro...@apache.org on 2002/07/29 00:08:58 UTC
cvs commit: tcl-site/websh/examples emailform.html emailform.ws3 emailform_ws3.txt
ronnie 2002/07/28 15:08:58
Modified: websh/examples emailform.html emailform.ws3
emailform_ws3.txt
Log:
- fix back link
Revision Changes Path
1.3 +18 -18 tcl-site/websh/examples/emailform.html
Index: emailform.html
===================================================================
RCS file: /home/cvs/tcl-site/websh/examples/emailform.html,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- emailform.html 10 Jul 2002 18:11:52 -0000 1.2
+++ emailform.html 28 Jul 2002 22:08:58 -0000 1.3
@@ -191,42 +191,42 @@
</dl>
You should recieve a confirmation by e-mail shortly.
<br>
- {web::put <a href=\"[web::cmdurl default]\">Order more</a>}
+ {web::put "</FONT></B><a href=\<B><FONT COLOR="#BC8F8F">"[web::cmdurl default]\">Order more</a>"</FONT></B>}
cool stuff.
}
}
}
-# register the "</FONT></B>default<B><FONT COLOR="#BC8F8F">" command
-#
-# This command will be used whenever no specific command has been specified.
-# We use it to show an empty form for address submission.
-web::command default {
+<I><FONT COLOR="#B22222"># register the "default" command
+</FONT></I><I><FONT COLOR="#B22222">#
+</FONT></I><I><FONT COLOR="#B22222"># This command will be used whenever no specific command has been specified.
+</FONT></I><I><FONT COLOR="#B22222"># We use it to show an empty form for address submission.
+</FONT></I>web::command default {
showForm 0
}
-# register command "</FONT></B>submit<B><FONT COLOR="#BC8F8F">"
-#
-# This is the "</FONT></B>action<B><FONT COLOR="#BC8F8F">" of our form. The form data is validated. If
-# the formdata is incomplete or invalid, the form is re-displayed with
-# an error info, where the original input is displayed as well.
-#
-# If the data is valid, the confirmation page is shown and
-# an e-mail is sent to the specified address.
-
+<I><FONT COLOR="#B22222"># register command "submit"
+</FONT></I><I><FONT COLOR="#B22222">#
+</FONT></I><I><FONT COLOR="#B22222"># This is the "action" of our form. The form data is validated. If
+</FONT></I><I><FONT COLOR="#B22222"># the formdata is incomplete or invalid, the form is re-displayed with
+</FONT></I><I><FONT COLOR="#B22222"># an error info, where the original input is displayed as well.
+</FONT></I><I><FONT COLOR="#B22222">#
+</FONT></I><I><FONT COLOR="#B22222"># If the data is valid, the confirmation page is shown and
+</FONT></I><I><FONT COLOR="#B22222"># an e-mail is sent to the specified address.
+</FONT></I>
web::command submit {
- if { [set res [checkFormData]] == 0 } {
+ <B><FONT COLOR="#A020F0">if</FONT></B> { [<B><FONT COLOR="#A020F0">set</FONT></B> res [checkFormData]] == 0 } {
sendEmail
showConfirmationPage
} else {
- showForm $res
+ showForm $<FONT COLOR="#B8860B">res</FONT>
}
}
-web::dispatch</FONT></B></PRE>
+web::dispatch</PRE>
<HR>
<ADDRESS>Generated by <A HREF="http://www.iki.fi/~mtr/genscript/">GNU enscript 1.6.3</A>.</ADDRESS>
</BODY>
1.3 +1 -1 tcl-site/websh/examples/emailform.ws3
Index: emailform.ws3
===================================================================
RCS file: /home/cvs/tcl-site/websh/examples/emailform.ws3,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- emailform.ws3 10 Jul 2002 06:25:49 -0000 1.2
+++ emailform.ws3 28 Jul 2002 22:08:58 -0000 1.3
@@ -180,7 +180,7 @@
</dl>
You should recieve a confirmation by e-mail shortly.
<br>
- {web::put <a href=\"[web::cmdurl default]\">Order more</a>}
+ {web::put "<a href=\"[web::cmdurl default]\">Order more</a>"}
cool stuff.
}
}
1.3 +1 -1 tcl-site/websh/examples/emailform_ws3.txt
Index: emailform_ws3.txt
===================================================================
RCS file: /home/cvs/tcl-site/websh/examples/emailform_ws3.txt,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- emailform_ws3.txt 10 Jul 2002 18:11:52 -0000 1.2
+++ emailform_ws3.txt 28 Jul 2002 22:08:58 -0000 1.3
@@ -180,7 +180,7 @@
</dl>
You should recieve a confirmation by e-mail shortly.
<br>
- {web::put <a href=\"[web::cmdurl default]\">Order more</a>}
+ {web::put "<a href=\"[web::cmdurl default]\">Order more</a>"}
cool stuff.
}
}
---------------------------------------------------------------------
To unsubscribe, e-mail: tcl-site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: tcl-site-cvs-help@tcl.apache.org