git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
fa5e779
)
Provide better <form /> specification by new: &My:Web::form_method
author
short
<>
Sun, 2 Oct 2005 05:58:47 +0000
(
05:58
+0000)
committer
short
<>
Sun, 2 Oct 2005 05:58:47 +0000
(
05:58
+0000)
project/captive/Index.pm
patch
|
blob
|
history
resume/ResumeJanKratochvil.pm
patch
|
blob
|
history
diff --git
a/project/captive/Index.pm
b/project/captive/Index.pm
index
1e2fcef
..
f28a8ca
100755
(executable)
--- a/
project/captive/Index.pm
+++ b/
project/captive/Index.pm
@@
-292,7
+292,7
@@
print <<"HERE";
<h2 id="lists">Mailing Lists</h2>
<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 />
<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
(file)
--- 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 />
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 />
<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 />