From: short <>
Date: Wed, 19 Nov 2003 14:49:16 +0000 (+0000)
Subject: +CGI argument 'Wabs' to produce absolute HREFs/SRCs.
X-Git-Tag: bp_apache20~109
X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=60a1c2ce7aab5041970857760b470d07b2c94b25

+CGI argument 'Wabs' to produce absolute HREFs/SRCs.
---

diff --git a/resume/Resume-JanKratochvil.html.pl b/resume/Resume-JanKratochvil.html.pl
index c9d2606..627ef5b 100755
--- a/resume/Resume-JanKratochvil.html.pl
+++ b/resume/Resume-JanKratochvil.html.pl
@@ -269,7 +269,7 @@ if (lc($W->{"args"}{"referees"}) ne "referees") {
 	print <<"HERE";
 		<tr><td style="padding: 10px;" colspan="2">
 			<hr />
-			<form method="post" action="@{[ $W->{"resume_url"} ]}">
+			<form method="post" action="@{[ top_dir $W->{"resume_url"} ]}">
 				<p>Enter the word '<b>referees</b>' (without quotes) to disclose e-mail addresses:</p>
 				<input type="text" size="15" name="referees" value="@{[ CGI::escapeHTML($W->{"args"}{"referees"}) ]}" />
 				<input type="submit" value="Submit" />