Homesalam...
nk mntk tlg klu ade expert2 on perl n ajax yg leh ajr cmne nk wat multiple ajax ni.klu x leh ajax onchange pn ok je...
nk mntk tlg klu ade expert2 on perl n ajax yg leh ajr cmne nk wat multiple ajax ni.klu x leh ajax onchange pn ok je...
2 posters
perl....how tu put multiple ajax or javascript on cgi file
salmia- Ahli Baharu
- Number of posts : 3
Registration date : 08/02/2010
- Post n°1
perl....how tu put multiple ajax or javascript on cgi file
by salmia Mon Feb 08, 2010 5:27 pm
johnburn- Moderators
- Gender : Male Number of posts : 755
Location : Terengganu
Registration date : 07/03/2009
- Post n°2
Re: perl....how tu put multiple ajax or javascript on cgi file
by johnburn Mon Feb 08, 2010 6:40 pm
apa yg cik salmia maksudkan dgn multiple ajax tu?
bleh bg cnth situasi x?
onchange tu bkn ajax, just event handler dlm javascript je.
bleh bg cnth situasi x?
onchange tu bkn ajax, just event handler dlm javascript je.
salmia- Ahli Baharu
- Number of posts : 3
Registration date : 08/02/2010
- Post n°3
Re: perl....how tu put multiple ajax or javascript on cgi file
by salmia Mon Feb 08, 2010 7:13 pm
ye, mksd sy klu xleh ajax pn, onchange javascript pn xpe...
ok, lupekn sal ajax..
cmni, sy nk wat 3 dropdown list.list ke2 bergantung kpd id list yg 1st dan list ke3 based on list ke2.tp sume nye amik data dr database.ni kne gune perl.da wat coding tp yg jd nye 1st n 2nd list je.3rd list xkuar pape2...ade idea x???klu xclear lg plez gtau...
ok, lupekn sal ajax..
cmni, sy nk wat 3 dropdown list.list ke2 bergantung kpd id list yg 1st dan list ke3 based on list ke2.tp sume nye amik data dr database.ni kne gune perl.da wat coding tp yg jd nye 1st n 2nd list je.3rd list xkuar pape2...ade idea x???klu xclear lg plez gtau...
johnburn- Moderators
- Gender : Male Number of posts : 755
Location : Terengganu
Registration date : 07/03/2009
- Post n°4
Re: perl....how tu put multiple ajax or javascript on cgi file
by johnburn Mon Feb 08, 2010 7:35 pm
lg clear kl bg script yg dh ada kot
sbb yg 1st ngan 2nd dh jd, ptt sama je ngan yg 3rd pn
sbb yg 1st ngan 2nd dh jd, ptt sama je ngan yg 3rd pn
salmia- Ahli Baharu
- Number of posts : 3
Registration date : 08/02/2010
- Post n°5
Re: perl....how tu put multiple ajax or javascript on cgi file
by salmia Mon Feb 08, 2010 8:08 pm
$ajx_ctrl = $query->param('ajx_ctrl');
$co_id = $query -> param('select_co');
my $exported_fx = sub {
my $searchterm = shift;
my $sql = qq< select file_name from file_name where id_module = ? >;
my $dbh_label = $dbh_label;
my $sth = $dbh_label->prepare( $sql );
$sth->execute( $searchterm . '%' );
my $html1 = "";
$html1 = qq!<select name="file_name" id="id_module" $input_style >
#OnChange="details( ['users'],['ddiv'] ); return true;">\n!;
my $firstrow = $sth->fetch();
if ( defined $firstrow ) {
$html1 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;
$html1.= qq!<option>! . $firstrow->[0] . qq!</option>\n!;
# dot on each option from the db
while ( my $row = $sth->fetch() ) {
$html1.= qq!<option>! . $row->[0] . qq!</option>\n!;
}
}
else
{$html1 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;}
$html1 .= qq!</select>\n!;
#&common_error("$html1");
return($html1);
};
my $dbh_label = $dbh_label;
$file_base .=qq~ <select name="file_name" $input_style>
<option>- Select One -</option>
</select>
~;
my $exported_form = sub {
my $searchterm2 = shift;
my $sql2 = qq< select form_action from form where id_file = $id >;
my $dbh_label = $dbh_label;
my $sth2 = $dbh_label->prepare( $sql2 );
$sth2->execute( $searchterm2 . '%' );
my $html2 = "";
$html2 = qq!<select name="form_action" id="id_file" $input_style >
#OnChange="details( ['users'],['ddiv'] ); return true;">\n!;
my $firstrow2 = $sth2->fetch();
if ( defined $firstrow2 ) {
$html2 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;
$html2.= qq!<option>! . $firstrow2->[0] . qq!</option>\n!;
# dot on each option from the db
while ( my $row = $sth2->fetch() ) {
$html2.= qq!<option>! . $row->[0] . qq!</option>\n!;
}
}
else
{$html2 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;}
# close off the select and return
$html2 .= qq!</select>\n!;
return($html2);
};
$form_base .=qq~ <select name="form_name" $input_style>
<option>- Select One -</option>
</select>
~;
#--- get module ---#
$sql = qq~
SELECT id, module
FROM module
~;
$sth = $dbh_label->prepare($sql);
$sth->execute() or &common_error("SQL","Couldn't execute statement : $DBI::errstr",1);
$sel_module .=qq~
<option value="">- Select One -</option>
~;
while (($id, $module) = $sth->fetchrow_array())
{
$sel_module .=qq~
<option value="$id" >$module</option>
~;
}
$sth->finish();
#----------------------#
### start add company form ##
my $Show_Form = sub {
my $html = "";
$html .= <<EOT;
<HTML>
<HEAD><title>CGI::Ajax Example</title>
</HEAD>
<BODY>
<form action="setting_label_ajax.cgi" method=post name="mainform">
<input type="hidden" value="Save" name="action">
<input type="hidden" value="2" name="link">
<tr height="20">
<td bgcolor="$table_color"><div name="co_level" id="co_level"><$table_title> <b>$forwhat</b></font></div></td>
</tr>
<tr>
<td width="729">
<div align="left">
<!-- WE REPLACE THE HIDDEN TABLE ABOVE WITH THIS NEW ONE -->
<table width="100%" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber21">
<tr>
<td>
<center>
<table border="0" cellpadding="1" cellspacing="2" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber20" width="90%">
<tr height="8"><td></td></tr>
<tr height="25">
<td width="22%"><$content_style>Module</font></td>
<td width="2%"><$content_style>:</font></td>
<td width="76%" align="left"><select name="module" id="module" OnChange="search( ['module','NO_CACHE'],['ddiv'] ); return true;" $input_style>
$sel_module
</select>
</td>
</tr>
<tr height="25">
<td><$content_style>File Name</font></td>
<td><$content_style>:</font></td>
<td>
<div id="ddiv">
<select name="file" id="file_name" OnChange="search( ['file_name','NO_CACHE'],['ddiv'] ); return true;" $input_style>
$file_base
</select>
</div>
</td>
</tr>
<tr height="25">
<td><$content_style>Form</font></td>
<td><$content_style>:</font></td>
<td>
<div id="ddiv">
$form_base
</select>
</div>
</td>
</tr>
<tr height="8"><td colspan="3"></td></tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="right">
<input type="hidden" name="type" value="$type">
<input type="button" name="back" value="Back" onClick="document.location = 'setting_label.cgi?'" $button_style>
<input type="submit" name="Save" value="Save" $button_style>
</td>
</tr>
</table>
<!-- NEW TABLE ENDS HERE -->
<tr><td> </td></tr>
<tr>
<td align="left">
<div align="left">
</div>
</td>
</tr>
</form>
</BODY>
</HTML>
EOT
return($html);
};
my $pjx = CGI::Ajax->new(
search => $exported_fx,
);
$tmpl ="";
if($ajx_ctrl eq 1)
{
$tmpl = "GLOBAL";
}
else
{
$tmpl = "";
}
$ajx_ctrl =0;
# not show the html, which will include the embedded javascript code
# to handle the ajax interaction
$content="";
$pjx->JSDEBUG(0);
$pjx->DEBUG(0);
$content = $pjx->build_html($query,$Show_Form); # this outputs the html for the page
$module = '<a href="hrms_setting.cgi"><span class="flow_link">HRMS Application Setting</span></a>';
$module_func = '<a href="setting_company.cgi"><span class="flow_link">Company Setting</span></a><span class="flow_link"> - </span><span class="flow_title">Add New Company</span>';
#&common_error("$content")
&output($content, $module, $module_func, $search_link, $tmpl);
$forwhat = "";
$file_base = "";
$form_base = "";
------------------------------------------
sy bru je berjinak2 ngn perl ni.ajax ngn javascript pn bru nk explore.klu salah declare tu tlg tnjukkn...
p/s:pertolongan anda amat dihargai
$co_id = $query -> param('select_co');
my $exported_fx = sub {
my $searchterm = shift;
my $sql = qq< select file_name from file_name where id_module = ? >;
my $dbh_label = $dbh_label;
my $sth = $dbh_label->prepare( $sql );
$sth->execute( $searchterm . '%' );
my $html1 = "";
$html1 = qq!<select name="file_name" id="id_module" $input_style >
#OnChange="details( ['users'],['ddiv'] ); return true;">\n!;
my $firstrow = $sth->fetch();
if ( defined $firstrow ) {
$html1 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;
$html1.= qq!<option>! . $firstrow->[0] . qq!</option>\n!;
# dot on each option from the db
while ( my $row = $sth->fetch() ) {
$html1.= qq!<option>! . $row->[0] . qq!</option>\n!;
}
}
else
{$html1 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;}
$html1 .= qq!</select>\n!;
#&common_error("$html1");
return($html1);
};
my $dbh_label = $dbh_label;
$file_base .=qq~ <select name="file_name" $input_style>
<option>- Select One -</option>
</select>
~;
my $exported_form = sub {
my $searchterm2 = shift;
my $sql2 = qq< select form_action from form where id_file = $id >;
my $dbh_label = $dbh_label;
my $sth2 = $dbh_label->prepare( $sql2 );
$sth2->execute( $searchterm2 . '%' );
my $html2 = "";
$html2 = qq!<select name="form_action" id="id_file" $input_style >
#OnChange="details( ['users'],['ddiv'] ); return true;">\n!;
my $firstrow2 = $sth2->fetch();
if ( defined $firstrow2 ) {
$html2 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;
$html2.= qq!<option>! . $firstrow2->[0] . qq!</option>\n!;
# dot on each option from the db
while ( my $row = $sth2->fetch() ) {
$html2.= qq!<option>! . $row->[0] . qq!</option>\n!;
}
}
else
{$html2 .= qq!<option >! .qq!- Select One -! . qq!</option>\n!;}
# close off the select and return
$html2 .= qq!</select>\n!;
return($html2);
};
$form_base .=qq~ <select name="form_name" $input_style>
<option>- Select One -</option>
</select>
~;
#--- get module ---#
$sql = qq~
SELECT id, module
FROM module
~;
$sth = $dbh_label->prepare($sql);
$sth->execute() or &common_error("SQL","Couldn't execute statement : $DBI::errstr",1);
$sel_module .=qq~
<option value="">- Select One -</option>
~;
while (($id, $module) = $sth->fetchrow_array())
{
$sel_module .=qq~
<option value="$id" >$module</option>
~;
}
$sth->finish();
#----------------------#
### start add company form ##
my $Show_Form = sub {
my $html = "";
$html .= <<EOT;
<HTML>
<HEAD><title>CGI::Ajax Example</title>
</HEAD>
<BODY>
<form action="setting_label_ajax.cgi" method=post name="mainform">
<input type="hidden" value="Save" name="action">
<input type="hidden" value="2" name="link">
<tr height="20">
<td bgcolor="$table_color"><div name="co_level" id="co_level"><$table_title> <b>$forwhat</b></font></div></td>
</tr>
<tr>
<td width="729">
<div align="left">
<!-- WE REPLACE THE HIDDEN TABLE ABOVE WITH THIS NEW ONE -->
<table width="100%" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber21">
<tr>
<td>
<center>
<table border="0" cellpadding="1" cellspacing="2" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber20" width="90%">
<tr height="8"><td></td></tr>
<tr height="25">
<td width="22%"><$content_style>Module</font></td>
<td width="2%"><$content_style>:</font></td>
<td width="76%" align="left"><select name="module" id="module" OnChange="search( ['module','NO_CACHE'],['ddiv'] ); return true;" $input_style>
$sel_module
</select>
</td>
</tr>
<tr height="25">
<td><$content_style>File Name</font></td>
<td><$content_style>:</font></td>
<td>
<div id="ddiv">
<select name="file" id="file_name" OnChange="search( ['file_name','NO_CACHE'],['ddiv'] ); return true;" $input_style>
$file_base
</select>
</div>
</td>
</tr>
<tr height="25">
<td><$content_style>Form</font></td>
<td><$content_style>:</font></td>
<td>
<div id="ddiv">
$form_base
</select>
</div>
</td>
</tr>
<tr height="8"><td colspan="3"></td></tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="right">
<input type="hidden" name="type" value="$type">
<input type="button" name="back" value="Back" onClick="document.location = 'setting_label.cgi?'" $button_style>
<input type="submit" name="Save" value="Save" $button_style>
</td>
</tr>
</table>
<!-- NEW TABLE ENDS HERE -->
<tr><td> </td></tr>
<tr>
<td align="left">
<div align="left">
</div>
</td>
</tr>
</form>
</BODY>
</HTML>
EOT
return($html);
};
my $pjx = CGI::Ajax->new(
search => $exported_fx,
);
$tmpl ="";
if($ajx_ctrl eq 1)
{
$tmpl = "GLOBAL";
}
else
{
$tmpl = "";
}
$ajx_ctrl =0;
# not show the html, which will include the embedded javascript code
# to handle the ajax interaction
$content="";
$pjx->JSDEBUG(0);
$pjx->DEBUG(0);
$content = $pjx->build_html($query,$Show_Form); # this outputs the html for the page
$module = '<a href="hrms_setting.cgi"><span class="flow_link">HRMS Application Setting</span></a>';
$module_func = '<a href="setting_company.cgi"><span class="flow_link">Company Setting</span></a><span class="flow_link"> - </span><span class="flow_title">Add New Company</span>';
#&common_error("$content")
&output($content, $module, $module_func, $search_link, $tmpl);
$forwhat = "";
$file_base = "";
$form_base = "";
------------------------------------------
sy bru je berjinak2 ngn perl ni.ajax ngn javascript pn bru nk explore.klu salah declare tu tlg tnjukkn...
p/s:pertolongan anda amat dihargai
Sponsored content