File: hourglass.mhtml

package info (click to toggle)
libhtml-mason-perl 1%3A1.58-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,796 kB
  • sloc: perl: 8,618; sh: 49; makefile: 2
file content (46 lines) | stat: -rw-r--r-- 935 bytes parent folder | download | duplicates (11)
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
<%def .show>
<div class=hourglass id=<%$id%> align=center>
<img src=lib/hourglass.png width=64 height=64>
</div>
<div class=hourglasscontent id=<%$cid%>>
<script language="JavaScript"> document.getElementById("<%$cid%>").style.display = "none"; </script>
% $m->flush_buffer;
<%args>
$id
</%args>
<%init>
 my $cid = "${id}_content";
</%init>
</%def>

<%def .hide>
</div>
<script language="JavaScript">
document.getElementById("<%$id%>").style.display = "none";
document.getElementById("<%$cid%>").style.display = "block";
</script>
% $m->flush_buffer;
<%args>
$id
</%args>
<%init>
 my $cid = "${id}_content";
</%init>
</%def>

<%init>
$id =~ s/[^A-Za-z0-9]+/_/g;
if ($op eq 'show') {
  return $m->comp(".show", id => $id);
}
elsif ($op eq 'hide') {
  return $m->comp(".hide", id => $id);
}
else {
  die "\"\$op\" argument to hourglass.m must be \"show\" or \"hide\"\n";
}
</%init>
<%args>
$op
$id => "hourglass$ENV{UNIQUE_ID}"
</%args>