|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alex_Radich 2:5020/400 13 Dec 2002 13:43:38
To : All
Subject : CGI.pm - JavaScript function
--------------------------------------------------------------------------------
Hi All!
Подскажите, pls, где ошибка и как исправить?
Hе получается использовать при генерир. CGI.pm страницы JavaScript function:
Хочу:
<html><head>
<style TYPE="text/css">
.pi1{background-color:#EFF2F5; font-size:12px; color:#093068}
</style>
<SCRIPT language=JavaScript type=text/javascript>
<!--
function Active1() { alert('dgdg') }
//-->
</SCRIPT>
</head>
<body bgcolor="#fffee0">
<FORM name=dForm method=post>
<INPUT class=pi1 onfocus=Active1() name=Name>
</FORM>
</body>
</html>
-------------------------------
пишу почти хелпный вариант в .pl:
#!C:/Perl/bin/perl
use CGI qw(:standard);
$newStyle=<<END;
.pi1{background-color:#EFF2F5; font-size:12px; color:#093068}
END
$JSCRIPT=<<JEND;
<!--
function Active1() { alert('dgdg'); }
//-->
JEND
print header(-charset=>"windows-1251"),
start_html (-style =>{-code=>$newStyle},
-script=>{-language=>'JAVASCRIPT',
-code=>$JSCRIPT},
-bgcolor=>"#fffee0");
print start_form(-action=>url()),
textfield(-name=>"Name",
-class=>pi1,
-onFocus=>"Active1()"
),
end_form();
print end_html;
CSS применяется, а в функцию Active1() не перехожу... :(
Best regards,
Alex
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
