diff options
| author | Lincoln Stein <lstein@genome.wi.mit.edu> | 1997-04-29 05:58:26 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-05-16 10:15:00 +1200 |
| commit | 7d37aa8ee0fac2db54fce8cbb5b1e5e3c1188e88 (patch) | |
| tree | 69e5a66c9a58a98feb3ba3a6816ae06d45439a45 /eg | |
| parent | 5dd86c535ddf2793b0ed7f949292e22a18aeded6 (diff) | |
| download | perl-7d37aa8ee0fac2db54fce8cbb5b1e5e3c1188e88.tar.gz | |
Refresh CGI.pm to 2.36
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; |