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 275 ahitrov $back => undef
19 8 ahitrov@rambler.ru </%args>
20 <%init>
21
22 my (@source_args, $sargs, @dest_args, $dargs);
23 push @source_args, 'class='.$class if $class;
24 push @source_args, 'source_class='.$source_class if $source_class;
25 push @source_args, 'source_id='.$source_id if $source_id;
26 275 ahitrov push @source_args, 'back='.URI::Escape::uri_escape( $back );
27 8 ahitrov@rambler.ru push @dest_args, 'class='.$class if $class;
28 push @dest_args, 'dest_class='.$dest_class if $dest_class;
29 push @dest_args, 'dest_id='.$dest_id if $dest_id;
30 275 ahitrov push @dest_args, 'back='.URI::Escape::uri_escape( $back );
31 8 ahitrov@rambler.ru
32 $sargs = @source_args ? '?'.join('&', @source_args) : undef;
33 $dargs = @dest_args ? '?'.join('&', @dest_args) : undef;
34
35 </%init>