summaryrefslogtreecommitdiff
path: root/httemplate/elements/pickcolor.html
blob: d410ebfc7a68623b8ddf8ce133a0edb6c37c90bf (plain)
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
<INPUT TYPE="hidden" NAME="<% $opt{'field'} %>" ID="<%$id%>" VALUE="<%$value%>">
<TABLE BGCOLOR="#FFFFFF" ID="showcolor<%$unum%>">
<TR>
  <TD STYLE="border:1px solid blue;background-color:#<%$value%>" WIDTH=16 HEIGHT=16 ID="currcolor<%$unum%>"></TD>
  <TD> <A HREF="javascript:void(0);" onClick="change_clicked<%$unum%>()">change</A></TD>
</TR>
</TABLE>
<TABLE BGCOLOR="#FFFFFF" ID="pickcolor<%$unum%>" STYLE="display:none">
% for (1..$rows) {
  <TR>
%   for (1..$cols) {
%     last unless @colors;
%     my $color = shift(@colors);
      <TD STYLE="border:1px solid blue;cursor:pointer;cursor:hand" BGCOLOR="#<% $color %>" WIDTH=16 HEIGHT=16 onClick="color_clicked<%$unum%>('<%$color%>')"></TD>
%   }
  </TR>
% }
</TABLE>
<SCRIPT TYPE="text/javascript">

  function change_clicked<%$unum%>() {
    document.getElementById('showcolor<%$unum%>').style.display = 'none';
    document.getElementById('pickcolor<%$unum%>').style.display = '';
  }

  function color_clicked<%$unum%>(color) {
    document.getElementById('<%$id%>').value = color; //update hidden
    if ( color == '' ) { color = 'ffffff'; }
    document.getElementById('currcolor<%$unum%>').style.backgroundColor = '#' + color;
    document.getElementById('showcolor<%$unum%>').style.display = '';
    document.getElementById('pickcolor<%$unum%>').style.display = 'none';
  }

</SCRIPT>
<%init>

my %opt = @_;

my $value = length($opt{curr_value}) ? $opt{curr_value} : $opt{value};

my $unum = int(rand(100000));

my $id = $opt{'id'} || $opt{'field'}.$unum;

my @colors = (
  '', #none/white
  'FF6666', #red
  'FF9966', #orange
  'FFFF66', #yellow
  '66FF66', #green
  '66FFFF', #cyan?
  '6666FF', #blue
  'CC66FF', #purple?  FF66FF looks more like pink.
);

my $rows = 2;

my $cols = int(.5+scalar(@colors)/$rows);

</%init>