Permalink
Browse files

$q->endform to $q->end_form

When updating to CGI 4.06, it turns out that $q->endform
is no longer defined.
  • Loading branch information...
kensanata committed Oct 10, 2014
1 parent ac3c892 commit c8f606f9dc60236e323e8e388455866ee982f1d6
Showing with 19 additions and 19 deletions.
  1. +7 −7 modules/joiner.pl
  2. +1 −1 modules/mail.pl
  3. +1 −1 modules/search-freetext.pl
  4. +1 −1 modules/static-hybrid.pl
  5. +1 −1 modules/thread.pl
  6. +1 −1 modules/timezone.pl
  7. +1 −1 modules/translation-links.pl
  8. +6 −6 wiki.pl
@@ -366,7 +366,7 @@ sub JoinerDoRegister {
$table .= $q->Tr($q->td(), $q->td($q->submit(-name=>'Submit', -value=>T('Submit'))));
print $q->table($table);
print JoinerGetQuestion();
print $q->endform;
print $q->end_form;
print $q->end_div();
PrintFooter();
@@ -530,7 +530,7 @@ sub JoinerDoLogin {
$table .= $q->Tr($q->td(), $q->td($q->submit(-name=>'Submit', -value=>T('Submit'))));
print $q->table($table);
print JoinerGetQuestion();
print $q->endform;
print $q->end_form;
print $q->start_p();
print ScriptLink('action=joiner_forgot_password', T('Forgot your password?'));
@@ -705,7 +705,7 @@ sub JoinerDoChangePassword {
$q->td($q->password_field(-name=>'joiner_repeat_new_password', -id=>'joiner_repeat_new_password')));
$table .= $q->Tr($q->td(), $q->td($q->submit(-name=>'Submit', -value=>T('Submit'))));
print $q->table($table);
print $q->endform;
print $q->end_form;
print $q->end_div();
PrintFooter();
@@ -790,7 +790,7 @@ sub JoinerDoForgotPassword {
$table .= $q->Tr($q->td(), $q->td($q->submit(-name=>'Submit', -value=>T('Submit'))));
print $q->table($table);
print JoinerGetQuestion();
print $q->endform;
print $q->end_form;
print $q->end_div();
PrintFooter();
@@ -891,7 +891,7 @@ sub JoinerDoChangeEmail {
$q->td($q->password_field(-name=>'joiner_password', -id=>'joiner_password')));
$table .= $q->Tr($q->td(), $q->td($q->submit(-name=>'Submit', -value=>T('Submit'))));
print $q->table($table);
print $q->endform;
print $q->end_form;
print $q->end_div();
PrintFooter();
@@ -1082,7 +1082,7 @@ sub JoinerDoBan {
$q->td($q->textfield(-name=>'joiner_username', -id=>'joiner_username')));
$table .= $q->Tr($q->td(), $q->td($q->submit(-name=>'Ban', -value=>T('Ban'))));
print $q->table($table);
print $q->endform;
print $q->end_form;
print $q->start_p();
print T('Enter username of the account to unban:');
@@ -1096,7 +1096,7 @@ sub JoinerDoBan {
$q->td($q->textfield(-name=>'joiner_username', -id=>'joiner_username')));
$table .= $q->Tr($q->td(), $q->td($q->submit(-name=>'Unban', -value=>T('Unban'))));
print $q->table($table);
print $q->endform;
print $q->end_form;
print $q->end_div();
PrintFooter();
@@ -247,7 +247,7 @@ sub DoMailSubscriptions {
print $q->p(ScriptLink('action=subscriptions;mail=', T('Change email address'),
'change subscriptions'));
}
print $q->endform(), $q->end_div();
print $q->end_form(), $q->end_div();
PrintFooter();
}
@@ -546,7 +546,7 @@ sub NewSearchFreePrintFooter {
$q->p(GetHiddenValue('id', $id), GetHiddenValue('action', 'retag'),
T('Tags:'), $q->br(), GetTextArea('tags', join(' ', @tags), 2),
$q->br(), $q->submit(-name=>'Save', -value=>T('Save'))),
$q->endform());
$q->end_form());
} elsif ($id and @tags) {
print $q->div({-class=>'tags'},
$q->p(T('Tags:'), map { $_ = "\[\[tag:$_\]\]";
@@ -368,7 +368,7 @@ sub StaticGetCommentForm {
-override=>1, -size=>40, -maxlength=>100)),
$q->p($q->submit(-name=>'Save', -accesskey=>T('s'), -value=>T('Save')), ' ',
$q->submit(-name=>'Preview', -value=>T('Preview'))),
$q->endform());
$q->end_form());
}
return '';
}
@@ -111,7 +111,7 @@ sub ThreadAdd {
. '</td></tr></table>'
. '<p>'
. $q->p($q->submit(-name=>'Save', -value=>T('Save')))
. $q->endform());
. $q->end_form());
print $q->end_html;
} else {
my ($page, $thread) = ThreadExtract($id);
@@ -75,6 +75,6 @@ sub DoTZ {
-values=>\@names,
-default=>GetParam('time', $defaultTZ)),
$q->submit('dotz', T('Set')));
print $q->endform . $q->end_div();
print $q->end_form . $q->end_div();
PrintFooter();
}
@@ -208,7 +208,7 @@ sub DoTranslationLink {
$q->input({-type=>'hidden', -name=>'missing',
-value=>GetParam('missing', '')}),
$q->submit('dotranslate', T('Go!')));
print $q->endform, $q->end_div();
print $q->end_form, $q->end_div();
PrintFooter();
}
}
12 wiki.pl
@@ -1716,7 +1716,7 @@ sub GetFilterForm {
-default=>GetParam('lang', ''))));
}
return GetFormStart(undef, 'get', 'filter') . $q->p($form) . $q->table($table)
. $q->p($q->submit('dofilter', T('Go!'))) . $q->endform;
. $q->p($q->submit('dofilter', T('Go!'))) . $q->end_form;
}
sub RcHtml {
@@ -1791,7 +1791,7 @@ sub RcHtml {
$more .= ";$_=$val" if $val;
}
$html .= $q->p({-class=>'more'}, ScriptLink($more, T('More...'), 'more'));
return GetFormStart(undef, 'get', 'rc') . $html . $q->endform;
return GetFormStart(undef, 'get', 'rc') . $html . $q->end_form;
}
sub PrintRcHtml { # to append RC to existing page, or action=rc directly
@@ -2442,7 +2442,7 @@ sub GetCommentForm {
-override=>1, -size=>40, -maxlength=>100))),
$q->p($q->submit(-name=>'Save', -accesskey=>T('s'), -value=>T('Save')), ' ',
$q->submit(-name=>'Preview', -accesskey=>T('p'), -value=>T('Preview'))),
$q->endform());
$q->end_form());
}
return '';
}
@@ -2470,7 +2470,7 @@ sub GetSearchForm {
-default=>GetParam('lang', '')) . ' ';
}
return GetFormStart(undef, 'get', 'search')
. $q->p($form . $q->submit('dosearch', T('Go!'))) . $q->endform;
. $q->p($form . $q->submit('dosearch', T('Go!'))) . $q->end_form;
}
sub GetValidatorLink {
@@ -3041,7 +3041,7 @@ sub GetEditForm {
} elsif ($UploadAllowed or UserIsAdmin()) {
$html .= $q->p(ScriptLink('action=edit;upload=1;id=' . UrlEncode($page_name), T('Replace this text with a file'), 'upload'));
}
$html .= $q->endform();
$html .= $q->end_form();
return $html;
}
@@ -3093,7 +3093,7 @@ sub DoPassword {
print GetFormStart(undef, undef, 'password'),
$q->p(GetHiddenValue('action', 'password'), T('Password:'), ' ',
$q->password_field(-name=>'pwd', -size=>20, -maxlength=>50),
$q->submit(-name=>'Save', -accesskey=>T('s'), -value=>T('Save'))), $q->endform;
$q->submit(-name=>'Save', -accesskey=>T('s'), -value=>T('Save'))), $q->end_form;
} else {
print $q->p(T('This site does not use admin or editor passwords.'));
}

0 comments on commit c8f606f

Please sign in to comment.