diff options
Diffstat (limited to 'eg')
| -rw-r--r-- | eg/cgi/frameset.cgi | 2 | ||||
| -rw-r--r-- | eg/cgi/javascript.cgi | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/eg/cgi/frameset.cgi b/eg/cgi/frameset.cgi index ff730268e9..fc86e92e9a 100644 --- a/eg/cgi/frameset.cgi +++ b/eg/cgi/frameset.cgi @@ -47,7 +47,7 @@ sub print_html_header { } sub print_end { - print qq{<P><hr><A HREF="cgi_docs.html">Go to the documentation</A>}; + print qq{<P><hr><A HREF="../index.html" TARGET="_top">More Examples</A>}; print $query->end_html; } diff --git a/eg/cgi/javascript.cgi b/eg/cgi/javascript.cgi index 20496c0e80..91c2b9e648 100644 --- a/eg/cgi/javascript.cgi +++ b/eg/cgi/javascript.cgi @@ -1,6 +1,6 @@ #!/usr/local/bin/perl -# This script illustrates how to use JavaScript to validage fill-out +# This script illustrates how to use JavaScript to validate fill-out # forms. use CGI qw(:standard); @@ -68,7 +68,7 @@ print header; print start_html(-title=>'Personal Profile',-script=>$JSCRIPT); print h1("Big Brother Wants to Know All About You"), - strong("Note: "),"This page uses JavaScript and requires", + strong("Note: "),"This page uses JavaScript and requires ", "Netscape 2.0 or higher to do anything special."; &print_prompt(); @@ -97,7 +97,7 @@ sub print_prompt { sub print_response { import_names('Q'); print h2("Your profile"), - "You are a ",b($Q::age)," year old ",b($Q::color,$Q::gender),".", + "You claim to be a ",b($Q::age)," year old ",b($Q::color,$Q::gender),".", "You should be ashamed of yourself for lying so ", "blatantly to big brother!", hr; |