%#============================================================================ %# 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. %# %# %#---------------------------------------------------------------------------- <& navigator.mc, medium_id => $ARGS{medium_id} &> <%perl> my $medium_id = $ARGS{medium_id}; my $parent_id = $ARGS{parent_id}; my $M = new ePortal::App::Diskoteka::Medium; if ( ! $M->restore($medium_id)) { $m->comp("/message.mc", ErrorMessage => "Medium not found"); return; } my $F = $M->stMediumContent; $F->restore_where();

% my $memo = $M->memo; % $memo =~ s/\n/
/og; <% $memo %>

<& /item_caption.mc, title => pick_lang(rus => "Содержимое носителя", eng => "Medium content"), extra => $M->Title &> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> % while($F->restore_next) { <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> % }
NameFilesSizeMemo
<% img(src=>'/images/icons/dir.gif') %> <% $F->Title |h %><% $F->files_count %><% $F->files_size %><% $F->Memo %> <% img(src=>'/images/ePortal/edit.gif', href=>href('file_edit.htm', objid=>$F->id)) %>

% if ($parent_id) { <%perl> my $PARENT = new ePortal::App::Diskoteka::File; $PARENT->restore($parent_id); if ( $PARENT->FileType eq 'file' ) { $PARENT->restore($PARENT->Parent_id); } my $FILES = new ePortal::App::Diskoteka::File; $FILES->restore_where(medium_id => $medium_id, parent_id => $PARENT->id, filetype => 'file'); <& /item_caption.mc, title => pick_lang(rus => "Содержимое папки ".$PARENT->Title, eng => "Folder content".$PARENT->Title) &> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> % while($FILES->restore_next) { <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> <% empty_td(width=>4) %> % }
NameSizeDateMemo
<% img(src=>'/images/icons/generic.gif') %> <% $FILES->Title |h %><% $FILES->FileSize %><% $FILES->FileDate %><% $FILES->Memo %> <% img(src=>'/images/ePortal/edit.gif', href=>href('file_edit.htm', objid=>$FILES->id)) %>

% } %#=== @metags onStartRequest ==================================================== <%method onStartRequest><%perl> %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Название", eng => "Title"}