Added UI Level.

This commit is contained in:
JT Smith 2002-10-06 04:17:23 +00:00
parent 428200daad
commit 602cb9a7a7

View file

@ -168,38 +168,149 @@ sub www_editPage {
$f->hidden("parentId",$page{parentId}); $f->hidden("parentId",$page{parentId});
$f->hidden("op","editPageSave"); $f->hidden("op","editPageSave");
$f->submit if ($page{pageId} ne "new"); $f->submit if ($page{pageId} ne "new");
$f->raw('<tr><td colspan=2><b>'.WebGUI::International::get(103).'</b></td></tr>'); $f->raw(
$f->readOnly($page{pageId},WebGUI::International::get(500)); -value=>'<tr><td colspan=2><b>'.WebGUI::International::get(103).'</b></td></tr>',
-uiLevel=>5
);
$f->readOnly(
-value=>$page{pageId},
-label=>WebGUI::International::get(500),
-uiLevel=>3
);
$f->text("title",WebGUI::International::get(99),$page{title}); $f->text("title",WebGUI::International::get(99),$page{title});
$f->text("menuTitle",WebGUI::International::get(411),$page{menuTitle}); $f->text(
$f->text("urlizedTitle",WebGUI::International::get(104),$page{urlizedTitle}); -name=>"menuTitle",
$f->url("redirectURL",WebGUI::International::get(715),$page{redirectURL}); -label=>WebGUI::International::get(411),
$f->readOnly(WebGUI::Template::selectTemplate($page{templateId}),WebGUI::International::get(356)); -value=>$page{menuTitle},
$f->textarea("synopsis",WebGUI::International::get(412),$page{synopsis}); -uiLevel=>1
$f->textarea("metaTags",WebGUI::International::get(100),$page{metaTags}); );
$f->yesNo("defaultMetaTags",WebGUI::International::get(307),$page{defaultMetaTags}); $f->text(
$f->raw('<tr><td colspan=2><hr size=1><b>'.WebGUI::International::get(105).'</b></td></tr>'); -name=>"urlizedTitle",
-label=>WebGUI::International::get(104),
-value=>$page{urlizedTitle},
-uiLevel=>3
);
$f->url(
-name=>"redirectURL",
-label=>WebGUI::International::get(715),
-value=>$page{redirectURL},
-uiLevel=>8
);
$f->readOnly(
-value=>WebGUI::Template::selectTemplate($page{templateId}),
-label=>WebGUI::International::get(356),
-uiLevel=>5
);
$f->textarea(
-name=>"synopsis",
-label=>WebGUI::International::get(412),
-value=>$page{synopsis},
-uiLevel=>3
);
$f->textarea(
-name=>"metaTags",
-label=>WebGUI::International::get(100),
-value=>$page{metaTags},
-uiLevel=>7
);
$f->yesNo(
-name=>"defaultMetaTags",
-label=>WebGUI::International::get(307),
-value=>$page{defaultMetaTags},
-uiLevel=>5
);
$f->raw(
-value=>'<tr><td colspan=2><hr size=1><b>'.WebGUI::International::get(105).'</b></td></tr>',
-uiLevel=>5
);
%hash = WebGUI::SQL->buildHash("select styleId,name from style where name<>'Reserved' order by name"); %hash = WebGUI::SQL->buildHash("select styleId,name from style where name<>'Reserved' order by name");
$f->select("styleId",\%hash,WebGUI::International::get(105),[$page{styleId}],'','','', $f->select(
' &nbsp; <a href="'.WebGUI::URL::page('op=listStyles').'">'.WebGUI::International::get(6).'</a>'); -name=>"styleId",
$f->yesNo("recurseStyle",'','','',' &nbsp; '.WebGUI::International::get(106)); -options=>\%hash,
$f->raw('<tr><td colspan=2><hr size=1><b>'.WebGUI::International::get(107).'</b></td></tr>'); -label=>WebGUI::International::get(105),
$f->date("startDate",WebGUI::International::get(497),$page{startDate}); -value=>[$page{styleId}],
$f->date("endDate",WebGUI::International::get(498),$page{endDate}); -subtext=>' &nbsp; <a href="'.WebGUI::URL::page('op=listStyles').'">'.WebGUI::International::get(6).'</a>',
-uiLevel=>5
);
$f->yesNo(
-name=>"recurseStyle",
-subtext=>' &nbsp; '.WebGUI::International::get(106),
-uiLevel=>9
);
$f->raw(
-value=>'<tr><td colspan=2><hr size=1><b>'.WebGUI::International::get(107).'</b></td></tr>',
-uiLevel=>9
);
$f->date(
-name=>"startDate",
-label=>WebGUI::International::get(497),
-value=>$page{startDate},
-uiLevel=>9
);
$f->date(
-name=>"endDate",
-label=>WebGUI::International::get(498),
-value=>$page{endDate},
-uiLevel=>9
);
%hash = WebGUI::SQL->buildHash("select users.userId,users.username from users,groupings %hash = WebGUI::SQL->buildHash("select users.userId,users.username from users,groupings
where (groupings.groupId=4 or groupings.groupId=3) and groupings.userId=users.userId where (groupings.groupId=4 or groupings.groupId=3) and groupings.userId=users.userId
order by users.username"); order by users.username");
$f->select("ownerId",\%hash,WebGUI::International::get(108),[$page{ownerId}],'','','', $f->select(
' &nbsp; <a href="'.WebGUI::URL::page('op=listUsers').'">'.WebGUI::International::get(7).'</a>'); -name=>"ownerId",
$f->yesNo("ownerView",WebGUI::International::get(109),$page{ownerView}); -options=>\%hash,
$f->yesNo("ownerEdit",WebGUI::International::get(110),$page{ownerEdit}); -label=>WebGUI::International::get(108),
$f->group("groupId",WebGUI::International::get(111),[$page{groupId}],'','','', -value=>[$page{ownerId}],
' &nbsp; <a href="'.WebGUI::URL::page('op=listGroups').'">'.WebGUI::International::get(5).'</a>'); -subtext=>' &nbsp; <a href="'.WebGUI::URL::page('op=listUsers').'">'.WebGUI::International::get(7).'</a>',
$f->yesNo("groupView",WebGUI::International::get(112),$page{groupView}); -uiLevel=>9
$f->yesNo("groupEdit",WebGUI::International::get(113),$page{groupEdit}); );
$f->yesNo("worldView",WebGUI::International::get(114),$page{worldView}); $f->yesNo(
$f->yesNo("worldEdit",WebGUI::International::get(115),$page{worldEdit}); -name=>"ownerView",
$f->yesNo("recursePrivs",'','','',' &nbsp; '.WebGUI::International::get(116)); -label=>WebGUI::International::get(109),
-value=>$page{ownerView},
-uiLevel=>9
);
$f->yesNo(
-name=>"ownerEdit",
-label=>WebGUI::International::get(110),
-value=>$page{ownerEdit},
-uiLevel=>9
);
$f->group(
-name=>"groupId",
-label=>WebGUI::International::get(111),
-value=>[$page{groupId}],
-subtext=>' &nbsp; <a href="'.WebGUI::URL::page('op=listGroups').'">'.WebGUI::International::get(5).'</a>',
-uiLevel=>9
);
$f->yesNo(
-name=>"groupView",
-label=>WebGUI::International::get(112),
-value=>$page{groupView},
-uiLevel=>9
);
$f->yesNo(
-name=>"groupEdit",
-label=>WebGUI::International::get(113),
-value=>$page{groupEdit},
-uiLevel=>9);
$f->yesNo(
-name=>"worldView",
-label=>WebGUI::International::get(114),
-value=>$page{worldView},
-uiLevel=>9
);
$f->yesNo(
-name=>"worldEdit",
-label=>WebGUI::International::get(115),
-value=>$page{worldEdit},
-uiLevel=>9
);
$f->yesNo(
-name=>"recursePrivs",
-subtext=>' &nbsp; '.WebGUI::International::get(116),
-uiLevel=>9
);
$f->submit; $f->submit;
$output .= $f->print; $output .= $f->print;
return $output; return $output;