[set page_perm]page[/set] [set page_title][L]Content editor[/L][/set] [set ui_class]Content[/set] [set help_name]page.editor[/set] [set icon_name]icon_pages.gif[/set] @_UI_STD_HEAD_@ [form-session-id] [if scratch ui_error]

> [scratchd ui_error]

[/if] [if cgi ui_content_op] [/if] [calc] $cwd = $Session->{ui_cwd}; sub tmp_display_in_progress { my ($type) = shift; my $store; return unless exists $Session->{content_edit} and $Session->{content_edit}; return unless $store = $Session->{content_edit}{$type}; my $out = ''; for (sort keys %$store) { defined $store->{$_} or delete $store->{$_}, next; $store->{$_}{ui_name} or delete $store->{$_}, next; $out .= $Tag->page( { href => '__UI_BASE__/content_editor', form => 'auto', ui_name => $_, ui_type => $type, }); $out .= "$_ ("; $out .= $Tag->page( { href => '@@MV_PAGE@@', form => 'auto', ui_name => $_, ui_type => $type, ui_content_op => 'cancel', }); $out .= "[L]cancel[/L])
"; } return unless $out; $out = '[L]In process[/L]
' . $out . '
'; return $out; } return; [/calc] [warnings auto=1] [if type=explicit compare="[error all=1 show_var=1 keep=1]"] [L]The following errors occurred:[/L]

> [error all=1 keep=1 show_error=1 show_label=1 joiner="
> "]

[/if]
[L]Edit pages[/L]

[if session content_edit] [L]Purge all in-process (including page, template, component edits)[/L]
[/if] [calc] tmp_display_in_progress('page'); [/calc] [L]New page[/L]

[table-organize columns=3 columnize=1 interpolate=1 min-rows=15] [file-navigator initial_dir="__UI_PAGE_DIR__" start_open="__UI_PAGE_DIR__" top-of-tree="__UI_PAGE_DIR__" template=|%s| edit_only=1 edit_all=1 details=0 edit_page=content_editor edit_form="ui_name=~RN~&ui_type=page" ] [/table-organize]

@_UI_STD_FOOTER_@