Daniel, your suggestion worked perfectly the first
time. Thank you very much!
I know it's not a red hat question, but this is a
pretty good mailing list to present lots of questions
to. Thanks again.
--- daniel <[EMAIL PROTECTED]> wrote:
> 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
__________________________________________________
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
