From: short <>
Date: Sun, 2 Oct 2005 05:58:47 +0000 (+0000)
Subject: Provide better <form /> specification by new: &My:Web::form_method
X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=31756dd599fa25dce5b227c1580d57eda5439d9e;hp=fa5e779fb28f0e266bf01cc7834b15739eb8c642

Provide better <form /> specification by new: &My:Web::form_method
---

diff --git a/project/captive/Index.pm b/project/captive/Index.pm
index 1e2fcef..f28a8ca 100755
--- a/project/captive/Index.pm
+++ b/project/captive/Index.pm
@@ -292,7 +292,7 @@ print <<"HERE";
 
 <h2 id="lists">Mailing Lists</h2>
 
-<form action="@{[ uri_escaped(path_web "/Mailman.pm") ]}" method="post">
+<form action="@{[ uri_escaped(path_web "/Mailman.pm") ]}" @{[ form_method "post" ]}>
 	<table border="1" class="mailman" style="border-collapse: collapse; border-style: solid; border-width: 1px;">
 		<tr>@{[ map('<th>'.$_.'@jankratochvil.net</th>',@lists) ]}</tr>
 		<tr><td>New version announcements<br />
diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index 55f51b8..41ef8f8 100644
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -290,7 +290,7 @@ if (lc($W->{"args"}{"referees"}) ne "referees") {
 	print <<"HERE";
 		<tr><td style="padding: 10px;" colspan="2">
 			<hr />
-			<form method="post" action="@{[ uri_escaped(path_web $W->{"resume_url"}) ]}">
+			<form action="@{[ uri_escaped(path_web $W->{"resume_url"}) ]}" @{[ form_method "post" ]}>
 				<p>Enter the word '<b>referees</b>' (without quotes) to disclose e-mail addresses:<br />
 				<input type="text" size="15" name="referees" value="@{[ escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
 				<input type="submit" value="Submit" /><br />