%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2003 Sergey Rusakov. All rights reserved. %# This program is free software; you can redistribute it %# and/or modify it under the same terms as Perl itself. %# %# %#---------------------------------------------------------------------------- %# Editor of list of vailable PageSections %#---------------------------------------------------------------------------- <% $list->draw_list %> %#=== @metags row_info ==================================================== <%method row_info><%perl> my $list = $ARGS{list}; my $obj = $list->{obj}; URL: <% $obj->url %> %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $list = new ePortal::HTML::List( obj => new ePortal::PageSection, after_row => "row_info" ); $list->add_column_image(); $list->add_column( id => "title", url => "ps_edit.htm?objid=#id#"); $list->add_column( id => "component", class => "smallfont"); $list->add_column( id => "params", class => "smallfont"); $list->add_column( id => "width", align => "center"); $list->add_column( id => "xacl_read", align => "center"); $list->add_column_system( delete => 1); $list->add_button_create( url => "ps_edit.htm" ); my $location = $list->handle_request; return $location if $location; $list->{obj}->restore_all(); %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Список секций для дом.страницы", eng => "Sections for home page"} require_admin => 1 %#=== @metags once ========================================================= <%once> my ($list, $obj, $search_object); %#=== @metags cleanup ========================================================= <%cleanup> ($list, $obj, $search_object) = ();