Added Poll wobject.

This commit is contained in:
JT Smith 2002-05-21 04:44:21 +00:00
parent 1d7dcd6e9e
commit f656d00c20
6 changed files with 272 additions and 284 deletions

View file

@ -393,7 +393,12 @@ sub www_deleteConfirm {
=cut
sub www_edit {
my ($f, $title, $templatePosition, $endDate);
my ($f, $displayTitle, $title, $templatePosition, $endDate);
if ($_[0]->get("wobjectId") eq "new") {
$displayTitle = 1;
} else {
$displayTitle = $_[0]->get("displayTitle");
}
$title = $_[0]->get("title") || $_[0]->get("namespace");
$templatePosition = $_[0]->get("templatePosition") || 'A';
$endDate = $_[0]->get("endDate") || (time()+315360000);
@ -403,7 +408,7 @@ sub www_edit {
$f->hidden("func","editSave");
$f->readOnly($_[0]->get("wobjectId"),WebGUI::International::get(499));
$f->text("title",WebGUI::International::get(99),$title);
$f->yesNo("displayTitle",WebGUI::International::get(174),$_[0]->get("displayTitle"));
$f->yesNo("displayTitle",WebGUI::International::get(174),$displayTitle);
$f->yesNo("processMacros",WebGUI::International::get(175),$_[0]->get("processMacros"));
$f->select("templatePosition",_getPositions(),WebGUI::International::get(363),[$templatePosition]);
$f->date("startDate",WebGUI::International::get(497),$_[0]->get("startDate"));