[set page_title]Edit Page[/set] [set ui_class]Content[/set] [set help_name]page.main[/set] [set icon_name]admin/icon_pages.gif[/set] @_UI_STD_HEAD_@ [perl] my @choices = split /\s*\0\s*/, $CGI->{ui_page}; my $page; for(@choices) { next if ! $_; $page = $_; $page .= $Config->{HTMLsuffix} if $page !~ /$Config->{HTMLsuffix}$/; $page = "pages/$page" if $page !~ m(^pages/); last; } my ($ary) = $Tag->read_ui_template($page); $Scratch->{ui_template_version} = $ary->[0]->{ui_template_version}; return; [/perl] [if scratch ui_template_version] [include include/page_edit] [else] [include include/page_edit_old] [/else] [/if] @_UI_STD_FOOTER_@