perl/modules/W3C/LinkChecker/bin checklink,3.39,3.40

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv8193

Modified Files:
	checklink 
Log Message:
Use relative self-referencing URL without the query string for the form action.


Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 3.39
retrieving revision 3.40
diff -u -d -r3.39 -r3.40
--- checklink	7 May 2004 16:32:32 -0000	3.39
+++ checklink	7 May 2004 21:37:28 -0000	3.40
@@ -2155,7 +2155,7 @@
     <label for=\"cookie\"><input type=\"checkbox\" id=\"cookie\" name=\"cookie\" value=\"set\"> Save options in a <a href=\"http://www.w3.org/Protocols/rfc2109/rfc2109\">cookie</a></label>";
   }
 
-  print "<form action=\"", $q->self_url(), "\" method=\"get\" onsubmit=\"return uriOk()\">
+  print "<form action=\"", $Opts{_Self_URI}, "\" method=\"get\" onsubmit=\"return uriOk()\">
 <p><label for=\"uri\">Enter the address (<a href=\"http://www.w3.org/Addressing/\">URL</a>)
 of a document that you would like to check:</label></p>
 <p><input type=\"text\" size=\"50\" id=\"uri\" name=\"uri\" value=\"\"></p>

Received on Friday, 7 May 2004 17:37:58 UTC