File: base.epl

package info (click to toggle)
libembperl-perl 2.5.0-10%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 7,128 kB
  • sloc: ansic: 21,384; perl: 14,496; javascript: 4,280; cpp: 467; xml: 49; makefile: 33; sh: 24
file content (64 lines) | stat: -rw-r--r-- 1,860 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
[! sub frames  { 0} !]
[! sub subhead { 0} !]
[! sub title   { 'Setup' } !]
[! sub extrahelp { undef } !]

[$sub subhead $]
<center>
<h2>BB-5000 - Setup&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</h2>
</center>
[$endsub$]

[-
$r = shift ;
-]
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
          "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>[+ $r -> title +]</title>


<link type="text/css" href="/form/css/jquery-ui-1.8.7.custom.css" rel="stylesheet" />       
<link type="text/css" href="/form/css/jquery.qtip.css" rel="stylesheet" />  
<link rel="stylesheet" type="text/css" href="/forms/css/EmbperlForm.css">

<script type="text/javascript" src="/forms/js/calendar.js"></script>
<script type="text/javascript" src="/forms/js/calendar-de.js"></script>
<script type="text/javascript" src="/forms/js/calendar-setup.js"></script>

<script type="text/javascript" src="/forms/js/jquery-1.4.4.min.js"></script>
<script type="text/javascript" src="/forms/js/jquery-ui-1.8.7.custom.min.js"></script>
<script type="text/javascript" src="/forms/js/jquery.cookie.js"></script>
<script type="text/javascript" src="/forms/js/jquery.qtip.js"></script>
<script type="text/javascript" src="/forms/js/jquery.dynatree.js"></script>
<script type="text/javascript" src="/forms/js/jquery.layout-latest.js"></script>

<script type="text/javascript" src="/forms/js/EmbperlForm.js"></script>




</head>
<body class="cBody">

[- Execute ('header.epl') -]

<hr>
<div class="cSetupWizardDiv">
[$if $fdat{-msg} $]
<center><span class="cError">[- @msg = split /\n/, $fdat{-msg} -][$foreach $m (@msg)$]<br>[+ $m +][$endforeach$]</span></center>
[- delete $fdat{-msg} ; -]
[$endif$]
[-
Execute ({isa => 'wizard.epl'}) ;
$r -> display ;
-]
</div>

[- Execute ('footer.epl') -]

</body>
</html>