Permalink
Browse files

replace appearances of startform() in Pod and examples with start_form()

  • Loading branch information...
1 parent 6b7e9d2 commit 5de421d891ee34c84354810f33f65f9126d1d95b @srezic srezic committed Aug 31, 2009
Showing with 7 additions and 7 deletions.
  1. +1 −1 examples/clickable_image.cgi
  2. +1 −1 examples/frameset.cgi
  3. +1 −1 examples/internal_links.cgi
  4. +2 −2 examples/multiple_forms.cgi
  5. +1 −1 examples/popup.cgi
  6. +1 −1 lib/CGI.pm
@@ -10,7 +10,7 @@ print <<END;
END
print "Sorry, this isn't very exciting!\n";
-print $query->startform;
+print $query->start_form;
print $query->image_button('picture',"./wilogo.gif");
print "Give me a: ",$query->popup_menu('letter',['A','B','C','D','E','W']),"\n"; #
print "<P>Magnification: ",$query->radio_group('magnification',['1X','2X','4X','20X']),"\n";
@@ -54,7 +54,7 @@ sub print_end {
sub print_query {
$script_name = $query->script_name;
print "<H1>Frameset Query</H1>\n";
- print $query->startform(-action=>"$script_name/response",-TARGET=>"response");
+ print $query->start_form(-action=>"$script_name/response",-TARGET=>"response");
print "What's your name? ",$query->textfield('name');
print "<P>What's the combination?<P>",
$query->checkbox_group(-name=>'words',
@@ -17,7 +17,7 @@ print "<A NAME=\"start\"></A>\n"; # an anchor point at the top
# pick a default starting value;
$query->param('amenu','FOO1') unless $query->param('amenu');
-print $query->startform;
+print $query->start_form;
print $query->popup_menu('amenu',[('FOO1'..'FOO9')]);
print $query->submit,$query->endform;
@@ -8,7 +8,7 @@ print $query->start_html('Multiple Forms');
print "<H1>Multiple Forms</H1>\n";
# Print the first form
-print $query->startform;
+print $query->start_form;
$name = $query->remote_user || 'anonymous@' . $query->remote_host;
print "What's your name? ",$query->textfield('name',$name,50);
@@ -22,7 +22,7 @@ print $query->endform;
# Print the second form
print "<HR>\n";
-print $query->startform;
+print $query->start_form;
print "Some radio buttons: ",$query->radio_group('radio buttons',
[qw{one two three four five}],'three'),"\n";
print "<P>What's the password? ",$query->password_field('pass','secret');
View
@@ -8,7 +8,7 @@ print $query->start_html('Popup Window');
if (!$query->param) {
print "<H1>Ask your Question</H1>\n";
- print $query->startform(-target=>'_new');
+ print $query->start_form(-target=>'_new');
print "What's your name? ",$query->textfield('name');
print "<P>What's the combination?<P>",
$query->checkbox_group(-name=>'words',
View
@@ -7269,7 +7269,7 @@ start_html() method provides a convenient way to create this section.
Similarly, you can create a form that checks itself over for
consistency and alerts the user if some essential value is missing by
creating it this way:
- print startform(-onSubmit=>"validateMe(this)");
+ print start_form(-onSubmit=>"validateMe(this)");
See the javascript.cgi script for a demonstration of how this all
works.

0 comments on commit 5de421d

Please sign in to comment.