%#============================================================================ %# 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. %# %# %#----------------------------------------------------------------------------

%# %#============================================================================ %# %# %#============================================================================ %# %# %#============================================================================ %#
<% img(src => '/images/Organizer/dairy.gif', href => href('cal_dairy.htm', org_id=> $session{_org_id})) %> <& /item_caption.mc, title => pick_lang(rus => "Ежедневник", eng => "Dairy") &> <% img(src => '/images/Organizer/tasks.gif', href => href('todo_list.htm', org_id=> $session{_org_id})) %> <& /item_caption.mc, title => pick_lang(rus => "Дела и задачи", eng => "To do tasks") &>
<% img(src => '/images/Organizer/contacts.gif', href => href('cont_list.htm', org_id=> $session{_org_id}) ) %> <& /item_caption.mc, title => pick_lang(rus => "Контакты", eng => "Contacts") &> <% img(src => '/images/Organizer/draft.gif', href => href('ann_list.htm', org_id=> $session{_org_id})) %> <& /item_caption.mc, title => pick_lang(rus => "Годовщины", eng => "Anniversary") &>
<% img(src => '/images/Organizer/memo.gif', href => href('memo_list.htm', org_id=> $session{_org_id}) ) %> <& /item_caption.mc, title => pick_lang(rus => "Заметки", eng => "Notes") &> <% img(src => '/images/Organizer/computer.gif') %> <& /item_caption.mc, title => pick_lang(rus => "Настройка", eng => "Setup") &>

Органайзер - набор полезных программ, облегчающих хранение и поиск личной информации (контакты, дела, заметки). Это то, для чего используют бумажные ежедневники...

Возможен режим работы с несколькими органайзерами одновременно, это необходимо для секретаря, референта, рабочей группы и т.д.

%#=== @metags Title ==================================================== <%method Title><%perl> return pick_lang(rus => "Органайзер: ", eng => "Organizer: ") . $session{_organizer}->Title; %#=== @METAGS items_count ==================================================== <%method items_count><%perl> my $table = $ARGS{table}; my $count = $session{_app}->dbh->selectrow_array("SELECT count(*) FROM $table WHERE org_id=?", undef, $session{_org_id}); $count += 0; (<% $count %>)