Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

JS code created by CGI::Ajax behaves unexpectedly

Status
Not open for further replies.

lcs01

Programmer
Aug 2, 2006
182
US
I wrote a small perl ajax code to do the following:

A form has three input areas: first name, last name, & login ID. When a user enters first/last name and clicked the login ID area, a login ID will be automatically populated through perl ajax code. But it should also let a user to pick his/her own login ID.

Here is my code:
Code:
 use CGI::Pretty qw( :html3 );
use CGI::Ajax;
my $fname = 'fname';
my $lname = 'lname';
my $cgi = new CGI::Pretty;
my $pjx = new CGI::Ajax( 'js_func' => \&pl_func );
print $pjx->build_html($cgi, \&Show_HTML);

sub pl_func {
  my $f = shift;
  my $l = shift;
  my $ret;
  if($l) {
    # Just a simple demo here. In reality, should check for
    # the uniqueness of $nInput against database
    my $nInput = "#$f".'-'."$l#";
    $ret = qq {
<div id="destID"> <label> ID: </label>
<input name="id" value="$nInput" type="text" id="idID" [b]onFocus[/b]="js_func(['fnID','lnID'], ['destID']);"/>
<a href='#' onclick="js_func(['idID'], ['destID']);">Check here</a>
</div>
    };
  }
  else {
    # again, just a simple demo here
    my $nInput = "##--$f--##" if($f);
    $ret = qq {
<div id="destID"> <label> ID: </label>
<input name="id" value="$nInput" type="text" id="idID" [b]onFocus[/b]="js_func(['fnID','lnID'], ['destID']);"/>
<a href='#' onclick="js_func(['idID'], ['destID']);">Check here</a>
</div>
    };
  }
  return( $ret );
}

sub Show_HTML {
  my $html = <<EOHTML;
<HTML>
<BODY>
<div> <label> First Name: </label>
<input type="text" name=$fname id="fnID">
</div>
<div> <label> Last Name: </label>
<input type="text" name=$lname id="lnID">
</div>
<div id="destID"> <label> ID: </label>
<input name="id" type="text" id="idID" [b]onFocus[/b]="js_func(['fnID', 'lnID'], ['destID']);"/>
<a href='#' onclick="js_func(['idID'], ['destID']);">Check here</a>
</div>
</BODY>
</HTML>
EOHTML
  return $html;
}

The problem is the 'onFocus' part:

Once you clicked the login ID area (means it is focused), a new ID is populated as design, which is Ok. But the cursor is gone afterwards so that a user can never enter his/her own login ID!!

I just don't understand why the cursor is gone after focus. I even wrote a simple html+js code to see how onfocus works.

Code:
<HTML>
<head>
<script type="text/javascript"> function setLoginID(userInput) {
var fname = document.getElementById("fnID").value;
var lname = document.getElementById("lnID").value;              userInput.value = fname + lname;
} 
</script> 
</head> 
<BODY> 
First Name: <input type="text" name="fname" id="fnID" /> <br> 
Last Name: <input type="text" name="lname" id="lnID" /> 
<br> 
Login ID: <input type="text" name="login" id="loginID" [b]onFocus[/b]="setLoginID(this);" /> 
</BODY> 
</HTML>

The 'onFocus()' in the above code works just fine.

So, what did I do wrong in perl ajax code?

Thank you for your advices.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top