DiaColloDB-WWW
2 results

 view release on metacpan or  search on metacpan

share/htdocs/help.ttk  view on Meta::CPAN 

		my ($corpus,$txt,$params) = @_;
		my $pform = $params ? (UNIVERSAL::isa($params,'HASH') ? $params : { @$params }) : {};
		my $curl  = $dcurl->{$corpus} // "//kaskade.dwds.de/dstar/$corpus/diacollo/";
		my $url   = escapeHTML($cdb->quri($curl, $pform));
		return "<a class=\"corpuslink\" href=\"$url\">".($txt//$corpus)."</a>";
	      });
[% END %]
[% END FILTER null %]
[% cdb.cgi('header','-type'=>'text/html') %]
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html lang="en-US" xml:lang="en-US" xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title>[% html_title %]</title>
  [% PROCESS "dc-html-head.ttk" favicon_url=diacollo_icon %]
</head>
<body>
    <div class="outer">
      [% PROCESS diacolloBanner %]
      <div class="headers">
	[% PROCESS diacolloHeaderLogo %]

share/htdocs/index.ttk  view on Meta::CPAN 

[% SET root_dir = "../"; ##-- dstar root dir %]
[%
  #------------------------------------------------------------
  # globals
  PROCESS "dc-common.ttk"
%]
[% SET html_title = (diacollo_standalone ? ("DiaCollo: " _ root_title) : (root_title _ ": DiaCollo")) %]
[% END FILTER null %]
[% cdb.cgi('header','-type'=>'text/html') %]
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html lang="en-US" xml:lang="en-US" xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title>[% html_title %]</title>
  [% PROCESS "dc-html-head.ttk" favicon_url=diacollo_icon %]
  <script id="diacolloResponseData" type="text/javascript">
    dcpData = null; //-- populated dynamically to enable GUI functionality when using browser "Save As" function
  </script>
  <script type="text/javascript">
    \$(document).ready(dqReady);
  </script>



( run in 0.716 second using v1.01-cache-2.11-cpan-49f99fa48dc )