without going into too much detail (since this insn't really a redhat
question) i'd suggest that you need to use a combination of the
"onsubmit=<newwindowfunction>" and the "target=<name>" attribute in the form
tag:
<form method="post" action="/cgi-bin/script.cgi" target="newwindow"
onsubmit=newwindow()>
...
</form>
your newwindow() function would open a window name it "newwindow". the
results from the form output would be placed in that window.
_________________________________
daniel a. g. quinn
starving programmer
thanks be to god that gave me stubborness when i know i am right.
- john adams
----- Original Message -----
Sent: Friday, June 14, 2002 10:55 AM
Subject: Javascript help
| Hello all,
|
| I'm in the process of writing a CGI web page using
| perl with some Javascript added (I'm new to
| Javascript), and I've run into something that seems
| simple enough to do but haven't had much luck with it.
|
| The web page has two radio buttons and a submit button
| inside of one form. What I'm trying to do is open a
| new window when the user presses the submit button and
| have the value of the radio button get passed to the
| new window and display it. Here's the main script:
|
| test1.pl
|
| #!/usr/bin/perl
| use DBI;
| use FileHandle;
| print "Content-type: text/html\n\n";
|
| print "<HTML>\n";
| print "<TITLE>TEST1</TITLE>\n";
| print "<BODY BGCOLOR=\"#ffffff\">\n";
|
| print "<SCRIPT language=\"JavaScript\">\n";
| print "function open_new_window()\n";
| print " {\n";
| print " var = open(\"test2.pl\", \"test2\",
| \"resizable=yes,height=500,width=600\")\n";
| print " }\n";
| print "</SCRIPT>\n";
| print "<FORM method=\"post\" action=\"test2.pl\">\n";
| print "<TABLE width=\"700\">\n";
| print "<TR>\n";
| print " <TD width=\"700\" align=left>\n";
| print " <B><U>Members<U></B>\n";
| print " </TD>\n";
| print "</TR>\n";
| print "</TABLE>\n";
| print "<TABLE width=\"700\">\n";
| print "<TR>\n";
| print " <TD width=\"700\" align=left>\n";
| print " <input type=radio name=member value=create>
| Create a new member\n";
| print " </TD>\n";
| print "</TR>\n";
| print "<TR>\n";
| print " <TD width=\"700\" align=left>\n";
| print " <input type=radio name=member value=delete>
| Delete a member\n";
| print " </TD>\n";
| print "</TR>\n";
| print "<TR>\n";
| print " <TD width=\"700\" align=left>\n";
| print " <input type=button name=\"memberbutton\"
| value=\"Submit\"";
| print " onClick=\"open_new_window()\">";
| print " </TD>\n";
| print "</TR>\n";
| print "</TABLE>\n";
| print "</FORM>\n";
| print "</BODY>\n";
| print "</HTML>\n";
|
|
| Here is the script that it's calling:
|
| test2.pl
|
| #!/usr/bin/perl
| use DBI;
| use FileHandle;
| print "Content-type: text/html\n\n";
| read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
| @pairs = split(/&/, $buffer);
| foreach $pair (@pairs)
| {
| ($name, $value) = split(/=/, $pair);
| $value =~ tr/+/ /;
| $value =~
| s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
| print "name = $name, value = $value\n";
| if ( $name eq 'member' ) { $member_action =
| $value; }
| }
| print "<HTML>\n";
| print "<TITLE>OnCall</TITLE>\n";
| print "<BODY BGCOLOR=\"#ffffff\">\n";
| print "MEMBER ACTION = $member_action\n";
| print "</BODY>\n";
| print "</HTML>\n";
|
|
| Can anyone help me out?
|
| Thanks!
|
| -Stephen Spalding
|
|
| __________________________________________________
| Do You Yahoo!?
| Yahoo! - Official partner of 2002 FIFA World Cup
| http://fifaworldcup.yahoo.com
|
|
|
| _______________________________________________
| Redhat-list mailing list
| [EMAIL PROTECTED]
| https://listman.redhat.com/mailman/listinfo/redhat-list
|
_______________________________________________
Redhat-list mailing list
[EMAIL PROTECTED]
https://listman.redhat.com/mailman/listinfo/redhat-list
