Back button

Mon Dec 9 00:20:01 CST 2002

~sdpm~
The HTML version of this program works perfectly. I was hoping for a perl
version.
===================================
#!/perl/bin/perl -w

use CGI;my $co = new CGI;

print $co->header,
$co->start_html(-title=>'JS4.pl');              #<html><body>

#START JAVASCRIPT------------------------------
print '<SCRIPT LANGUAGE = "JavaScript">';
print
'function GoBack1()
{
  alert("we got here")
  history.go(-1)
}
function GoBack2(location)
{
  alert(location)
  top.location = location
}';

print '</SCRIPT>';
#END JAVASCRIPT--------------------------------
print $co->start_form(-name=>'form1');
print $co->submit(-name=>'Back1', -value=>'GoBack1', -onclick=>'GoBack1()');
print
$co->submit(-name=>'Back2', -value=>'GoBack2', -onclick=>'GoBack2("javascrip
t:history.back(1)")');
print $co->end_form(),$co->end_html;            #</body></html>

--
Joel Fentin    tel: 760-749-8863    FAX: 760-749-8864

email: joel at fentin.com    web: http://fentin.com

~sdpm~

The posting address is: san-diego-pm-list at hfb.pm.org

List requests should be sent to: majordomo at hfb.pm.org

If you ever want to remove yourself from this mailing list,
you can send mail to <majordomo at happyfunball.pm.org> with the following
command in the body of your email message:

    unsubscribe san-diego-pm-list

If you ever need to get in contact with the owner of the list,
(if you have trouble unsubscribing, or have questions about the
list itself) send email to <owner-san-diego-pm-list at happyfunball.pm.org> .
This is the general rule for most mailing lists when you need
to contact a human.