RE: [cgiapp] Ajax?

[Ron Savage <suppressed>]

On Wed, 19 Oct 2005 16:18:55 -0400, Jesse Erlbaum wrote:

Hi Jesse

> Your Javascript would make an HTTP request on timeout (for example,
> when the user stops typing for a couple seconds).  That request
> would be internal, and would get back a line-delimited list of
> options, which would then be displayed via DHTML.

The below is based on JavaScript::RPC::Server::CGI.

I don't use timeout, I send every char back to a Perl module (RPC.pm), which 
connects to the db, and then does:

(This Perl is from my Database.pm):
# -----------------------------------------------

sub find_entity_via_keystrokes
{
	my($self, $prefix)	= @_;
	my($sql)			= "select entity_id, entity_name from entity where entity_name_key 
like lower('$prefix%') order by entity_name";
	my($result)			= $$self{'_dbh'} -> selectcol_arrayref($sql, {Columns => [1, 
2]});
	$result				= [1, '-'] if ($#$result < 0);

	join($;, @$result);

}	# End of find_entity_via_keystrokes.

# -----------------------------------------------

sub find_position_title_via_keystrokes
{
	my($self, $prefix)	= @_;
	my($sql)			= "select position_title_id, position_title_name from position_title 
where position_title_name_key like lower('$prefix%') order by 
position_title_name";
	my($result)			= $$self{'_dbh'} -> selectcol_arrayref($sql, {Columns => [1, 
2]});
	$result				= [1, '-'] if ($#$result < 0);

	join($;, @$result);

}	# End of find_position_title_via_keystrokes.

# -----------------------------------------------

For those of you who don't remember the bad old times, this char-by-char 
narrowing down of a search is called 'progressive search', although I assume it 
has other names too.

The corresponding Javascript is:

function find_position_title(prefix)
{
	if (prefix != '')
	{
		jsrsExecute('/cgi-bin/rpc-server.cgi', find_position_title_callback, 
'find_position_title', prefix);
	}
	else
	{
		document.tree.input_edit_person_position_title_id.options.length = 0;
		document.tree.input_edit_person_position_title_id.options[0] = new Option();
		document.tree.input_edit_person_position_title_id.options[0].value = 1;
		document.tree.input_edit_person_position_title_id.options[0].text = '-';
	}
}

function find_position_title_callback(result)
{
	var a = result.split(/\x1c/); // Perl's $; is 0x1c in JS.
	var count = - 1;
	document.tree.input_edit_person_position_title_id.options.length = 0;
	var i;

	for (i = 0; i < a.length; i++, i++)
	{
		count++;
		document.tree.input_edit_person_position_title_id.options[count] = new 
Option();
		document.tree.input_edit_person_position_title_id.options[count].value = a[i];
		document.tree.input_edit_person_position_title_id.options[count].text = a[i + 
1];
	}
}

The Perl module that the JS talks to does:
use base qw(JavaScript::RPC::Server::CGI);
and then creates a db object and then delegates to the above Perl subs.

The HTML is then:
	<td><input name="position_title_prefix" tabindex="2412" size="5" 
onKeyUp="find_position_title(this.value)"></td>

All this would make a good demo, no?
-- 
Cheers
Ron Savage, suppressed on 20/10/2005
http://savage.net.au/index.html
Let the record show: Microsoft is not an Australian company



---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/suppressed/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed