Proceed is only autochecked if creating new wobject.

This commit is contained in:
JT Smith 2002-05-22 02:35:42 +00:00
parent f0b799fed3
commit 2f97b596c2
2 changed files with 10 additions and 4 deletions

View file

@ -107,12 +107,15 @@ sub www_deleteQuestionConfirm {
#-------------------------------------------------------------------
sub www_edit {
my ($f, $output, @question, $sth);
my ($f, $output, @question, $sth, $proceed);
if (WebGUI::Privilege::canEditPage()) {
if ($_[0]->get("wobjectId") eq "new") {
$proceed = 1;
}
$output = helpIcon(1,$namespace);
$output = '<h1>'.WebGUI::International::get(8,$namespace).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->yesNo("proceed",WebGUI::International::get(1,$namespace),1);
$f->yesNo("proceed",WebGUI::International::get(1,$namespace),$proceed);
$output = $_[0]->SUPER::www_edit($f->printRowsOnly);
unless ($_[0]->get("wobjectId") eq "new") {
$output .= '<p><a href="'.WebGUI::URL::page('func=editQuestion&wid='.$_[0]->get("wobjectId"))