Repository List / Contenido / utf8 / samples / promosuite / comps / comps / diaton / left.msn @ r296

<SCRIPT LANGUAGE="JavaScript">
<!--
function tree(arg,item,url) {
	if(!item) { location.href = url; return; }
	var d=''+arg;
	if (document.all[d] && document.all[d].style.display == 'none') {
		document.all[d].style.display = 'block';
	}
	else if (document.all[d] && document.all[d].style.display == 'block') {
		document.all[d].style.display = 'none';
	}
}
//-->
</SCRIPT>

<table cellspacing="0" cellpadding="0" width="180">
<tr></td>
<div style="font:bold 9pt Arial; color:#606060; line-height:105%;">
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a class="vmnu" href="./description.html">Description</a><br>
<div style="height:3px"><spacer type="block" height="3"></div>

<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a class="vmnu" href="./manual.html">Operational manual</a><br>
<div style="height:3px"><spacer type="block" height="3"></div>

% if ( @articles ) {
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a href="javascript:tree('articles',1)">Articles</a>
<div id="articles" style="margin-left:17px; font-weight:normal; font-size:8pt; display:<% $place eq 'articles' ? 'block' : 'none' %>;">
%	foreach my $doc ( @articles ) {
%		my ($b1, $b2) = $id && $id == $doc->id ? ('<b>','</b>') : ('','');
- <a class="vmnu" href="./article.html?id=<% $doc->id %>"><% $b1.$doc->name.$b2 %><br>
<div style="height:3px"><spacer type="block" height="3"></div>
%	}
</div>
<div style="height:3px"><spacer type="block" height="3"></div>
% }
% if ( @tests ) {
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a href="javascript:tree('tests',1)">Tests</a>
<div id="tests" style="margin-left:17px; font-weight:normal; font-size:8pt; display:<% $place eq 'tests' ? 'block' : 'none' %>;">
%	foreach my $doc ( @tests ) {
%		my $file = $doc->get_image('file');
%		my ($b1, $b2) = $id && $id == $doc->id ? ('<b>','</b>') : ('','');
%		if ( ref $file && exists $file->{filename} ) {
- <a class="vmnu" href="<% $file->{filename} %>"><% $doc->name %></a><br>
<div style="height:3px"><spacer type="block" height="3"></div>
%		} else {
- <a class="vmnu" href="./article.html?id=<% $doc->id %>"><% $b1.$doc->name.$b2 %></a><br>
<div style="height:3px"><spacer type="block" height="3"></div>
%		}
%	}
</div>
<div style="height:3px"><spacer type="block" height="3"></div>
% }
<%doc>
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a class="vmnu" href="/pdf/Diaton_User_guide_page1.pdf">User's Guide 1 (pdf)</a><br>
<div style="height:3px"><spacer type="block" height="3"></div>
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a class="vmnu" href="/pdf/Diaton_User_guide_page2.pdf">User's Guide 2 (pdf)</a><br-->
<div style="height:3px"><spacer type="block" height="3"></div>
</%doc>
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a class="vmnu" href="./practicum.html">Advice of Experienced User</a><br>
<div style="height:3px"><spacer type="block" height="3"></div>
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a class="vmnu" href="./training.html">Training Video (avi)</a><br>
<div style="height:3px"><spacer type="block" height="3"></div>
<img src="/i/<% $prj %>/bullet.gif" align="absmiddle" class="bullet"><a class="vmnu" href="./cert.html">Certificates and approvals</a><br>
</div>
</td></tr>
</table>
<%args>

	$place	=> undef
	$id	=> undef

</%args>
<%init>

  my $prj = $request->{project};
  my $profile = $request->{project_profile};
  my $root = $request->{project_section};

  my ($articles_section) = exists $request->{article_section} ? ($request->{article_section}) :
				$keeper->get_sections ( s => $root->id, class => 'promosuite::SubSection', alias => 'articles', limit => 1 );
  $request->{article_section} ||= $articles_section;
  my $get_documents = $articles_section->_sorted ? 'get_sorted_documents' : 'get_documents';
  my @articles = $keeper->$get_documents (
		s	=> $articles_section->id,
		class	=> ['promosuite::Article','promosuite::Multimedia'],
		status	=> 1,
		light	=> 1,
	);

  my ($tests_section) = exists $request->{tests_section} ? ($request->{tests_section}) :
				$keeper->get_sections ( s => $root->id, class => 'promosuite::SubSection', alias => 'tests', limit => 1 );
  $request->{tests_section} ||= $tests_section;
  $get_documents = $tests_section->_sorted ? 'get_sorted_documents' : 'get_documents';
  my @tests = $keeper->$get_documents (
		s	=> $tests_section->id,
		class	=> ['promosuite::Article','promosuite::Multimedia'],
		status	=> 1,
	);

</%init>