1 |
3 |
ahitrov@rambler.ru |
%# vim:syn=mason |
2 |
|
|
<style> |
3 |
|
|
.td { font:11px Verdana; padding:2px 4px; } |
4 |
|
|
</style> |
5 |
|
|
% unless ($error) { |
6 |
|
|
|
7 |
|
|
% if (@ids) { |
8 |
|
|
<table width="95%" cellpadding="2" cellspacing="1" bgcolor="gray"> |
9 |
|
|
<tr bgcolor="silver"><th width="99%">��������</th><th width="1%">�������?</th></tr> |
10 |
|
|
% my $i = 0; |
11 |
|
|
% foreach my $id (@ids) { |
12 |
|
|
<tr bgcolor="<% $i++ % 2 ? '#f0f0f0' : 'white' %>"> |
13 |
|
|
<td class="td"><% (ref($list{$id}) && $list{$id}->name) || '����������' %></td> |
14 |
|
|
<td align="center"><input type="checkbox" name="<% $name %>_delete" value="<% $id %>"/></td></tr> |
15 |
|
|
% } |
16 |
|
|
</table> |
17 |
|
|
% } |
18 |
|
|
|
19 |
|
|
<table cellspacing="0" cellpadding="2" border="0" width="95%" |
20 |
|
|
style="border-bottom:1px solid gray; border-left:1px solid gray; border-right:1px solid gray;"> |
21 |
|
|
<tr bgcolor="#e0e0f0"><td class="td" width="5%" nowrap><b>��������:</b> |
22 |
|
|
<input onkeyup="find_word_<% $name %>()" type="text" name="<% $name %>_tmp" size="10" onfocus="key_flag_<% $name %> = 0;" onblur="key_flag_<% $name %> = 1;"> |
23 |
|
|
</td> |
24 |
|
|
<td width="94%"> |
25 |
|
|
<input type="hidden" name="<% $name %>_add" id="<% $name %>_hidden"> |
26 |
|
|
<select id="<% $name %>_select" class="selects" onchange="<% $name %>_changed();" style="width:100%"> |
27 |
|
|
<option value=""></option> |
28 |
|
|
% for ( sort { $sort{$a->id} <=> $sort{$b->id} } values %list ) { |
29 |
|
|
<option value="<% $_->id %> <% $_->class %>"><% $_->name . '(' . ( $prop->{lookup_opts}->{show_in_select} ? $_->{$prop->{lookup_opts}->{show_in_select}} : 'no' ) . ')' %></option> |
30 |
|
|
% } |
31 |
|
|
</select> |
32 |
|
|
</td> |
33 |
|
|
<td width="1%" style="padding:0 7px;"><a href="#" onclick="return <% $name %>_popup();" title="����� ��������"><img src="/contenido/i/lookup-19x19.gif" width="19" height="19" class="bb gb"></a></td> |
34 |
|
|
</tr> |
35 |
|
|
</table> |
36 |
|
|
|
37 |
|
|
<script type="text/javascript"> |
38 |
|
|
var key_flag_<% $name %> = 1; |
39 |
|
|
|
40 |
|
|
if (navigator.appName == "Netscape") { |
41 |
|
|
document.captureEvents(Event.KEYUP); |
42 |
|
|
} |
43 |
|
|
|
44 |
|
|
function find_word_<% $name %>() { |
45 |
|
|
var str1 = document.form.<% $name %>_tmp.value; |
46 |
|
|
if (str1 == "" || key_flag_<% $name %>) return; |
47 |
|
|
|
48 |
|
|
for (var i = 0; i < document.form.<% $name %>_select.options.length; i++) { |
49 |
|
|
var source = document.form.<% $name %>_select.options[i].text; |
50 |
|
|
source = source.toLowerCase(); |
51 |
|
|
str1 = str1.toLowerCase(); |
52 |
|
|
if ( source.indexOf(str1) > -1) { |
53 |
|
|
document.form.<% $name %>_select.options[i].selected=true; |
54 |
|
|
<% $name %>_changed(); |
55 |
|
|
break; |
56 |
|
|
} |
57 |
|
|
} |
58 |
|
|
} |
59 |
|
|
|
60 |
|
|
function <% $name %>_popup() { |
61 |
|
|
var s = document.getElementById('<% $name %>_select'); |
62 |
|
|
if (!s.value) { |
63 |
|
|
alert('��� ���������� ��������'); |
64 |
|
|
return false; |
65 |
|
|
} |
66 |
|
|
var re = /^(\d+)\s+(.+)$/; |
67 |
|
|
var matches = re.exec(s.value); |
68 |
|
|
window.open('/contenido/document.html?class=' + matches[2] + '&id=' + matches[1]); |
69 |
|
|
return false; |
70 |
|
|
} |
71 |
|
|
|
72 |
|
|
function <% $name %>_changed() { |
73 |
|
|
var h = document.getElementById('<% $name %>_hidden'); |
74 |
|
|
var s = document.getElementById('<% $name %>_select'); |
75 |
|
|
|
76 |
|
|
if (s.value) { |
77 |
|
|
var re = /^(\d+)\s+(.+)$/; |
78 |
|
|
var matches = re.exec(s.value); |
79 |
|
|
h.value = matches[1]; |
80 |
|
|
} else { |
81 |
|
|
h.value = ''; |
82 |
|
|
} |
83 |
|
|
} |
84 |
|
|
</script> |
85 |
|
|
|
86 |
|
|
% } else { |
87 |
|
|
<font color="red"><% $error %></font> |
88 |
|
|
% } |
89 |
|
|
|
90 |
|
|
<%args> |
91 |
|
|
$object |
92 |
|
|
$name => undef |
93 |
|
|
$check => undef |
94 |
|
|
$prop => {} |
95 |
|
|
</%args> |
96 |
|
|
<%init> |
97 |
|
|
my (%list, %sort, $error); |
98 |
|
|
|
99 |
|
|
# ���� ��� �������� � ���� ���� integer[] �� ��� �������� ������, ���� � data, �� ������ �� ������. |
100 |
|
|
# ��������� ����� |
101 |
|
|
my @ids = ref($object->$name) eq 'ARRAY' ? @{ $object->$name } : $object->$name; |
102 |
|
|
|
103 |
|
|
if ($prop && ref($prop) && ref($prop->{lookup_opts}) eq 'HASH') { |
104 |
|
|
my $i = 0; |
105 |
|
|
foreach my $obj ($keeper->get_documents(%{$prop->{lookup_opts}}, order => ['name','reverse'])) { |
106 |
|
|
$list{$obj->id} = $obj; |
107 |
|
|
$sort{$obj->id} = $i++; |
108 |
|
|
} |
109 |
|
|
} else { |
110 |
|
|
$error = '������ �������� �������� lookup_opts � ���������'; |
111 |
|
|
} |
112 |
|
|
</%init> |