get input onchange into link

[cyrene]

I have some links such as web,images and Sound file and an input text with default value(query). When no changes in input text and user click on any link,it will go to search the qurey according to the link.

But the problem is when there is changes in input text and user click on the link.It keep to search the old query according to link.

I wish it able to detect and search new query.

Here my code:

<script LANGUAGE="JavaScript">
function setquery(newquery) { 
    var query = newquery;
} 
</script>


print qq(<a href="/cgi-bin/result.cgi?cat=1&query=$query">WEB</a>&nbsp;&nbsp;
			<a href="/cgi-bin/result.cgi?cat=2&query=$query">IMAGES</a>&nbsp;&nbsp;
			<a href="/cgi-bin/result.cgi?cat=3&query=$query">SOUND FILE</a>&nbsp;&nbsp;		
			
			<br>
			<form name="form_search" method="post" action="/cgi-bin/result.cgi">
        	        <div align="center"> 
        	        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="text" name="query" value="$query" size="30" onchange="setquery(this.value)">
        	        &nbsp;&nbsp; 
        	        <input type="submit" name="submit" value="Web Search" style="background-color:  #FFFAFA;">
        	        &nbsp;&nbsp;<a href="/adsearch.html" class="one"><font size="-1">advanced web
        	        search</a> 
        	        <input type="hidden" name="cat" value=1>
        	        </div>
        	        </form>);								}

How Perl can get the changes in input text and assign it into link when user click on it?

[QuietDean]

Could you post a link to it? I would like to view source on it after it has been parsed by perl

[cyrene]

i solve this problem by having some new links for old query and set input text for new query only