From 31756dd599fa25dce5b227c1580d57eda5439d9e Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 2 Oct 2005 05:58:47 +0000
Subject: [PATCH 1/1] Provide better <form /> specification by new:
 &My:Web::form_method

---
 project/captive/Index.pm      | 2 +-
 resume/ResumeJanKratochvil.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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 />
-- 
1.8.3.1