+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 (executable)
--- 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" />