1 |
3 |
ahitrov@rambler.ru |
%# vim:syn=mason |
2 |
|
|
|
3 |
|
|
% if ($object->$name) { |
4 |
|
|
<table> |
5 |
|
|
<tr><th>��������</th><th>�������?</th></tr> |
6 |
|
|
% foreach my $geoid ($object->$name) { |
7 |
|
|
<tr><td><% $all_labels->{$geoid} || '����������' %></td><td><input type="checkbox" name="<% $name %>_delete" value="<% $geoid %>"/></td></tr> |
8 |
|
|
% } |
9 |
|
|
</table> |
10 |
|
|
% } |
11 |
|
|
|
12 |
|
|
��������: |
13 |
|
|
<input onkeyup="find_word_<% $name %>()" type="text" name="<% $name."_tmp" %>" size="10" onfocus="key_flag_<% $name %> = 0;" onblur="key_flag_<% $name %> = 1;"<% $prop->{readonly} ? 'readonly' : '' %>> |
14 |
|
|
<select name="<% $name %>_add"<% $prop->{readonly} ? ' disabled' : '' %>> |
15 |
|
|
<option value="" selected="selected"></option> |
16 |
|
|
% foreach my $value (sort { $all_labels->{$a} cmp $all_labels->{$b} } keys %$all_values) { |
17 |
|
|
<option value="<% $value %>"><% $all_labels->{$value} %></option> |
18 |
|
|
% } |
19 |
|
|
</select> |
20 |
|
|
|
21 |
|
|
<script type="text/javascript"> |
22 |
|
|
var key_flag_<% $name %> = 1; |
23 |
|
|
|
24 |
|
|
if (navigator.appName == "Netscape") { |
25 |
|
|
document.captureEvents(Event.KEYUP); |
26 |
|
|
} |
27 |
|
|
|
28 |
|
|
function find_word_<% $name %>() { |
29 |
|
|
var str1 = document.form.<% $name."_tmp" %>.value; |
30 |
|
|
if (str1 == "" || key_flag_<% $name %>) return; |
31 |
|
|
|
32 |
|
|
for (var i = 0; i < document.form.<% $name %>_add.options.length; i++) { |
33 |
|
|
var source = document.form.<% $name %>_add.options[i].text; |
34 |
|
|
source = source.toLowerCase(); |
35 |
|
|
str1 = str1.toLowerCase(); |
36 |
|
|
if ( source.indexOf(str1) == 0) { |
37 |
|
|
document.form.<% $name %>_add.options[i].selected=true; |
38 |
|
|
break; |
39 |
|
|
} |
40 |
|
|
} |
41 |
|
|
} |
42 |
|
|
|
43 |
|
|
</script> |
44 |
|
|
<%args> |
45 |
|
|
$object |
46 |
|
|
$name => undef |
47 |
|
|
$check => undef |
48 |
|
|
$prop => {} |
49 |
|
|
</%args> |
50 |
|
|
<%init> |
51 |
|
|
use locale; |
52 |
|
|
|
53 |
|
|
my ($all_values, $all_labels); |
54 |
|
|
|
55 |
|
|
my $geo_type = $prop->{'geo_type'} || [1, 3]; # �� ��������� �������� ������� ������ � ������ |
56 |
|
|
|
57 |
|
|
foreach my $i (@{$geo_type}) { |
58 |
|
|
my ($err, $msg) = $rpc_client->id->get_geo_tree($i); |
59 |
|
|
return unless $err->{success}; |
60 |
|
|
map { $all_values->{$_} = 1 } @{$msg->{values}}; |
61 |
|
|
$all_labels->{$_} = $msg->{labels}->{$_} foreach keys %{$msg->{labels}}; |
62 |
|
|
} |
63 |
|
|
|
64 |
|
|
</%init> |