Line # Revision Author
1 8 ahitrov@rambler.ru <frameset border="0" bordercolor="black" rows="40,*" frameborder="1">
2 <frame src="links/title.html?class=<% $class %>" bordercolor="black" marginheight="2" marginwidth="2"
3 name="linktitle" noresize scrolling="no" height="30">
4 <frameset border="0" bordercolor="black" cols="50%,50%" frameborder="1">
5 <frame src="links/source.html<% $sargs %>" bordercolor="gray" marginheight="2" marginwidth="2" name="sourcefrm" noresize scrolling="yes">
6 <frame src="links/destination.html<% $dargs %>" bordercolor="black" marginheight="2" marginwidth="2" name="destfrm" noresize scrolling="yes">
7 </frameset>
8 </frameset>
9
10 <%args>
11 $class => ''
12 $source_class => ''
13 $source_id => ''
14 $dest_class => ''
15 $dest_id => ''
16 $save => 0
17 $status => 0
18 </%args>
19 <%init>
20
21 my (@source_args, $sargs, @dest_args, $dargs);
22 push @source_args, 'class='.$class if $class;
23 push @source_args, 'source_class='.$source_class if $source_class;
24 push @source_args, 'source_id='.$source_id if $source_id;
25 push @dest_args, 'class='.$class if $class;
26 push @dest_args, 'dest_class='.$dest_class if $dest_class;
27 push @dest_args, 'dest_id='.$dest_id if $dest_id;
28
29 $sargs = @source_args ? '?'.join('&', @source_args) : undef;
30 $dargs = @dest_args ? '?'.join('&', @dest_args) : undef;
31
32 </%init>