| 1 |
3 |
ahitrov@rambler.ru |
<table width="95%" cellspacing="0" cellpadding="0" border="0"> |
| 2 |
|
|
<tr valign="top"> |
| 3 |
|
|
<td width="40%"><b>[ <a href="javascript:show_layer('<% $name %>', 1, 16)">�������������</a> ]</b> |
| 4 |
|
|
<table><tr><td></td></tr></table> |
| 5 |
|
|
<& /contenido/components/select.msn, name => 'obj_list_'.$name, height=>170, width=>'100%', values => \@start, multiple => 1, size => 10 &></td> |
| 6 |
|
|
<td width="10" nowrap> </td> |
| 7 |
|
|
<td width="60%"> |
| 8 |
|
|
<img src="/contenido/i/_.gif" width="1" height="1" id="pos_<% $name %>"><br><span id="span_<% $name %>" style="position: absolute; left:0px; top:0px; visibility: hidden; width:100%; z-index:1000;"> |
| 9 |
|
|
<fieldset style="padding: 0 1 1 0;"> |
| 10 |
|
|
<legend style="font-size:85%; padding: 0 0 5 0;">[<a href="javascript:hide_layer('<% $name %>')">�������</a>]</legend> |
| 11 |
|
|
<table width="100%" border="0" celspacing="0" cellpadding="5" bgcolor="#efefef"> |
| 12 |
|
|
<tr> |
| 13 |
|
|
<td> |
| 14 |
|
|
<input style="font-size:9pt;width:70px;" type="button" value="<< ���." onClick="sel_wo_del(iobjs_<% $name %>.document.form, document.form.obj_list_<% $name %>)"><br><br> |
| 15 |
|
|
<input style="font-size:9pt;width:70px;" type="button" value="����. >>" onClick="del(document.form.obj_list_<% $name %>)"> |
| 16 |
|
|
</td> |
| 17 |
|
|
<td width="100%"><fieldset style="margin: 4 0 4 0"><iframe id="iobjs_<% $name %>" src="obj_list/objects_view.html?id=<% $start_id %>&classes=<% $classes %>" height="120" width="100%" frameborder="1" ></iframe></fieldset></td> |
| 18 |
|
|
</tr> |
| 19 |
|
|
</table> |
| 20 |
|
|
</span> |
| 21 |
|
|
</fieldset> |
| 22 |
|
|
</td> |
| 23 |
|
|
</tr> |
| 24 |
|
|
</table> |
| 25 |
|
|
<input type="hidden" name="<% $name %>" value="<% $check %>"> |
| 26 |
|
|
<%args> |
| 27 |
|
|
|
| 28 |
|
|
$name => undef |
| 29 |
|
|
$params => {} |
| 30 |
|
|
$check => undef |
| 31 |
|
|
$options => undef |
| 32 |
|
|
|
| 33 |
|
|
</%args> |
| 34 |
|
|
<%init> |
| 35 |
|
|
|
| 36 |
|
|
use vars qw( $project ); |
| 37 |
|
|
|
| 38 |
|
|
my @ids = split(',', $check); |
| 39 |
|
|
my @start = (); |
| 40 |
|
|
foreach my $id (@ids) |
| 41 |
|
|
{ |
| 42 |
|
|
my $local_object = $keeper->get_document_by_id($id); |
| 43 |
|
|
push @start, $id, $local_object->name if $local_object; |
| 44 |
|
|
} |
| 45 |
|
|
|
| 46 |
|
|
my $start_id = 1; |
| 47 |
|
|
my $classes = ''; |
| 48 |
|
|
if ( ref($options) && (exists($options->{$name})) && (ref($options->{$name}))) |
| 49 |
|
|
{ |
| 50 |
|
|
$start_id = $options->{$name}->[0]; |
| 51 |
|
|
$classes = $options->{$name}->[1]; |
| 52 |
|
|
} |
| 53 |
|
|
|
| 54 |
|
|
</%init> |