Kalau mau masukin variabel dari perl ke dalam javascript ini gimana ya?
Dari js yang ada ini pada
durl = "lc_load_menu2.pl?unit="+ durl; akan menghasilkan
./lc_load_menu2.pl?unit=AMONIA ( NIlai amonia diperoleh dari hasil
value yang diselect dari mysql )
Saya pengin mencetak ./lc_load_menu2.pl?pabrik=P1B&unit=AMONIA
dimankah saya set variabel tersebut dalam js nya ?
Saya telan mencoba memasukkan variabel ini bentuk fixed value var durl
pada jsnya seperti ini
durl = "lc_load_menu2.pl?pabrik=P1B&unit="+ durl
it works
Tapi nggak bisa untuk valuenya diset variabel dari perl
mohon bantuan dan penjelesan
cb
#!/usr/bin/perl -w
use CGI_Lite;
use DBD::mysql;
$q = new CGI_Lite;
%data = $q->parse_form_data;
$pabrik = $data{'pabrik'};
$nama_pabrik = $pabrik;
$nama_pabrik =~ s/P//ig;
$table = $pabrik."_SITE";
# print header of the page :
print "Content-type: text/html \n\n";
# print header HTML dan Javascript
print << 'JS';
<HTML><HEAD>
<SCRIPT LANGUAGE="JavaScript">
function pilihan() {
durl =
(document.comboform.unit.options[document.comboform.unit.select
durl = "lc_load_menu2.pl?unit="+ durl;
parent.menu2.location = durl;
parent.body.location = "../../Entry/body_entry_ctrl.html"
}
</SCRIPT></HEAD>
JS
print '<BODY BGCOLOR="#7F0000" LINK="#0000FF" VLINK="#990000" TEXT="#00000
print '<FORM NAME="comboform">';
print '<CENTER><FONT SIZE="-1" COLOR="#CCCCFF" FACE="Tahoma,Verdana,Arial,H
print "<B>UNIT : </B>";
#set combo site untuk tiap unit
print '<TD WIDTH=30><SELECT NAME="unit" OnClick = pilihan()>';
#ambil data dari IDENTITAS.$pabrik_SITE
$dbh = DBI->connect("DBI:mysql:IDENTITAS","root",undef) || die "Akses database
error. $!";
$sth = $dbh->prepare("select distinct UNIT from $table");
$sth->execute || die "Eksekusi perintah ke database error. $!";
while ($unit_row = $sth->fetchrow_array) {
print "<OPTION VALUE='$unit_row'>$unit_row</OPTION> \n";
}
$sth->finish;
$dbh->disconnect;
print "</FORM></FONT></CENTER></BODY></HTML>";
-=== FREE Handphone @ http://www.indoglobal.com/dedicated.php3 ===-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
